You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
1.9 KiB
100 lines
1.9 KiB
DECLARE SUB pause (time!) |
|
DECLARE SUB fire () |
|
DECLARE SUB laser () |
|
DECLARE SUB pop () |
|
DECLARE SUB icbm () |
|
DECLARE SUB trees () |
|
DECLARE SUB baloons () |
|
CLS |
|
SCREEN 12 |
|
trees |
|
baloons |
|
laser |
|
pop |
|
fire |
|
SYSTEM |
|
|
|
SUB baloons |
|
FOR q = 1 TO 100 |
|
CIRCLE (q, 100), 10, 4, , , 2 |
|
LINE (0 + q, 110)-(-100 + q * 2, 150 + q / 10), 7 |
|
pause .05 |
|
CIRCLE (q, 100), 10, 0, , , 2 |
|
LINE (q, 110)-(-100 + q * 2, 150 + q / 10), 0 |
|
NEXT q |
|
CIRCLE (0 + q, 100), 10, 4, , , 2 |
|
LINE (q, 110)-(-100 + q * 2, 150 + q / 10), 7 |
|
END SUB |
|
|
|
SUB fire |
|
FOR noo = 1 TO 3 |
|
PLAY "T160O0L32EFGEFDC" |
|
FOR n = 1 TO 6 |
|
FOR q = 1 TO 60 'hight of flame |
|
a = SIN(n + q / 10) * 10 |
|
FOR b = 1 TO q / 6 'width of flame |
|
PSET (100 + (noo * 20) + a + b, 480 - 60 + q), 4 |
|
NEXT b |
|
NEXT q |
|
pause .001 |
|
FOR q = 1 TO 60 'hight of flame |
|
a = SIN(n + q / 10) * 10 |
|
FOR b = 1 TO q / 6 'width of flame |
|
PSET (100 + (noo * 20) + a + b, 480 - 60 + q), 0 |
|
NEXT b |
|
NEXT q |
|
NEXT n |
|
NEXT noo |
|
FOR i = 1 TO 3 |
|
PLAY "T160O0L32EFGEFDC" |
|
NEXT i |
|
FOR f = 1 TO 650 |
|
CIRCLE (190, 480), f, 4 |
|
pause .000001 |
|
NEXT f |
|
END SUB |
|
|
|
SUB laser |
|
FOR b = 1 TO 15 |
|
LINE (640, 300)-(100, 100), b |
|
pause .005 |
|
NEXT b |
|
LINE (640, 300)-(100, 100), 0 |
|
END SUB |
|
|
|
SUB pause (time) |
|
t = TIMER + time |
|
DO: LOOP WHILE TIMER < t |
|
END SUB |
|
|
|
SUB pop |
|
FOR i = 1 TO 3 |
|
PLAY "T160O0L32EFGEFDC" |
|
NEXT i |
|
FOR r = 1 TO 20 |
|
CIRCLE (100, 100), r, 4 |
|
pause .0001 |
|
NEXT r |
|
FOR r = 1 TO 380 |
|
CIRCLE (100, 100 + r), 20 + r / 10, 4 |
|
PAINT (100, 100 + r), 4, 4 |
|
pause .00001 |
|
PAINT (100, 100 + r), 0, 0 |
|
NEXT r |
|
CIRCLE (100, 100 + r - 1), 20 + r / 10, 0 |
|
FOR i = 1 TO 3 |
|
PLAY "T160O0L32EFGEFDC" |
|
NEXT i |
|
END SUB |
|
|
|
SUB trees |
|
DRAW "bm0,430" |
|
FOR t = 0 TO 11 |
|
tree$ = "c2g10r5g10r5g10r5g10r50h10r5h10r5h10r5h10bd40r2d1c6d4l4u5c2r2bu40" |
|
DRAW "br50X" + VARPTR$(tree$) |
|
NEXT t |
|
CIRCLE (190, 480), 10, 5, , , .5 |
|
PAINT (190, 478), 5, 5 |
|
pause .5 |
|
END SUB |
|
|
|
|