08-31-2003, 10:36 PM
08-31-2003, 11:05 PM
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 .
09-01-2003, 12:31 AM
ah. cool
09-01-2003, 04:03 AM
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 SUB
I changed it so that it follows the mouse using someone's mouse drivers, and I removed the beep. Not annoying anymore, but still, cool .
09-01-2003, 04:24 AM
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, cool .cool. it's annoying if someone gets dizzy easy
09-01-2003, 04:33 AM
Hehe... too bad I can't collect all the programs from my old DOS computer, but the A:\ doesn't work .
09-01-2003, 04:36 AM
i bet theres a way
09-01-2003, 04:41 AM
Probably, but it'd cost money
09-01-2003, 04:42 AM
you could take the a: out of a different comp and put it in the dos one
09-01-2003, 04:58 AM
Hmm... I could, but it'd be best if I just moved on and programmed better stuff I think...