Home | Reviews | GUIpedia | Forum | Fun500
| Dick | you guys like flash games?Ever played this one?
http://www.helicoptergame.net/
Wrote one for text mode dos computer long time ago. Uses the mouse
DEFINT A-Z
RANDOMIZE TIMER
DIM mb, mx, my
DATA &H8BE58955,&H78B0C5E,&HD88933CD,&H890A5E8B
DATA &H85E8B07,&H5E8B0F89,&H5D178906,&H8CA
DATA &H8EA800B8,&H31FF31C0,&H36B0B9C0,&HCBABF3
DIM m(11) AS LONG
FOR i = 0 TO UBOUND(m)
READ m(i)
NEXT
DEF SEG = VARSEG(m(0))
x = 80
y = 1
y1! = 12
DIM c AS SINGLE, b AS LONG
cl = 1
fl = 25
SCREEN 0, , 1, 0
DO
t! = TIMER + .0003
b = b + 1
CALL absolute(3, mb, mx, my, VARPTR(m(0)))
IF b MOD 250 = 0 THEN
cl = cl + 1
fl = fl - 1
END IF
IF fl - cl = 7 THEN
COLOR 15
DO
PRINT "VICTORY!"
LOOP UNTIL INP(&H60) = 1
END IF
IF mb = 1 THEN y1! = y1! - .2 ELSE y1! = y1! + .3
IF x > 1 THEN x = x - 1 ELSE a = -1
IF a THEN
r = INT(RND * 5)
IF r = 2 THEN
a = 0
x = 80
y = INT(RND * 20) + 1
END IF
END IF
CLS
LOCATE y, x
PRINT CHR$(219)
LOCATE y + 1, x
PRINT CHR$(219)
LOCATE y + 2, x PRINT CHR$(219) LOCATE y + 3, x PRINT CHR$(219) LOCATE y + 4, x PRINT CHR$(219) LOCATE cl, 1 PRINT STRING$(80, "*"); LOCATE fl, 1 PRINT STRING$(80, "*"); COLOR 15 LOCATE y1!, 35 PRINT "\_/0\"; COLOR 7 IF x = 40 THEN IF INT(y1!) > (y - 1) AND INT(y1!) < (y + 5) THEN EXIT DO IF y1! < cl + 1 OR y1! > fl - 1 THEN EXIT DO PCOPY 1, 0 WAIT &H3DA, 8 WAIT &H3DA, 8, 8 1 IF TIMER < t! THEN 1 LOOP UNTIL INP(&H60) = 1 LOCATE y1!, 35 COLOR 12 PRINT "*BREAKDOWN*"; COLOR 7 LOCATE 1, 1 PRINT "You survived for"; b PCOPY 1, 0 SLEEP SYSTEM | 2010-05-28 | 11:26 AM |
| Jason | Re:you guys like flash games?wow! thats awesome! how do you use the very bottom line though? | 2010-05-29 | 12:32 AM |
| aguma | Re:you guys like flash games?SYSTEM = END basically | 2010-05-30 | 1:08 PM |
2021 Brandon Cornell