+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: New challenge - most annoying program (/thread-1003.html)
New challenge - most annoying program - whitetiger0990 - 08-31-2003
if you take out the beep it dizziing.
i like your avatar.
New challenge - most annoying program - LinkMaster Sab - 08-31-2003
Ya, I know, this is an old program, I just added the BEEP to be annoying. The avatar's a compilation of some 8-bit theater pictures I made for AIM
.
New challenge - most annoying program - whitetiger0990 - 09-01-2003
ah. cool
New challenge - most annoying program - LinkMaster Sab - 09-01-2003
Code:
DECLARE SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%, EX%)
DIM SHARED mouse$
SCREEN 9
DRAW "M320,175"
CLS
MouseDriver 1, bx%, CX%, DX%, lb%, RB%, 1
DO
MouseDriver 3, bx%, CX%, DX%, lb%, RB%, 0
side = INT(RND * 4) + 1
SELECT CASE side
CASE 1
x = INT(RND * 640) + 1
y = 1
CASE 2
x = 640
y = INT(RND * 350) + 1
CASE 3
x = INT(RND * 640) + 1
y = 350
CASE 4
x = 1
y = INT(RND * 350) + 1
END SELECT
col = INT(RND * 16) + 1
LINE STEP(0, 0)-(x, y), col
x$ = LTRIM$(RTRIM$(STR$(CX%)))
y$ = LTRIM$(RTRIM$(STR$(DX%)))
DRAW "BM" + x$ + "," + y$
LOOP UNTIL lb% = -1 OR RB% = -1
DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B
DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53
DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F
DATA 8B,5E,06,89,17,5D,CA,08,00
SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%, EX%)
IF EX% = 1 THEN
mouse$ = SPACE$(57)
FOR I% = 1 TO 57
READ A$
H$ = CHR$(VAL("&H" + A$))
MID$(mouse$, I%, 1) = H$
NEXT I%
CLS
END IF
DEF SEG = VARSEG(mouse$)
CALL Absolute(AX%, bx%, CX%, DX%, SADD(mouse$))
lb% = ((bx% AND 1) <> 0)
RB% = ((bx% AND 2) <> 0)
END SUBI changed it so that it follows the mouse using someone's mouse drivers, and I removed the beep. Not annoying anymore, but still, cool
.
New challenge - most annoying program - whitetiger0990 - 09-01-2003
Quote:I changed it so that it follows the mouse using someone's mouse drivers, and I removed the beep. Not annoying anymore, but still, coolcool. it's annoying if someone gets dizzy easy
New challenge - most annoying program - LinkMaster Sab - 09-01-2003
Hehe... too bad I can't collect all the programs from my old DOS computer, but the A:\ doesn't work
.
New challenge - most annoying program - whitetiger0990 - 09-01-2003
i bet theres a way
New challenge - most annoying program - LinkMaster Sab - 09-01-2003
Probably, but it'd cost money
New challenge - most annoying program - whitetiger0990 - 09-01-2003
you could take the a: out of a different comp and put it in the dos one
New challenge - most annoying program - LinkMaster Sab - 09-01-2003
Hmm... I could, but it'd be best if I just moved on and programmed better stuff I think...