PSX Chipmunk BASIC plane.bas example
STDRAGUT 1998

40 CLEARSPRITE : CLS
45 FNTPRINT "PRESS L2 TO QUIT"
46 FNTPRINT "GRAPHICS BY DINES"
50 LOADTIM "shoot.tim"
60 SETSPRITE 50,31,19
70 SPRITEMAP 50,384,0,0,79,0,480,1
80 RANDOMIZE TIMER
90 RANDOMIZE TIMER
1000 mycolor = 61
1010 myx = 150
1020 myy = 180
1030 mystep = 5
1100 SETSPRITE 60,31,20
1110 SETSPRITE 61,31,20
1120 SETSPRITE 62,31,20
1130 SPRITEMAP 60,384,0,0,0,0,480,1
1140 SPRITEMAP 61,384,0,33,0,0,480,1
1150 SPRITEMAP 62,384,0,66,0,0,480,1
1160 SETSPRITE 63,128,8
1170 SPRITEMAP 63,384,0,0,43,0,480,1
1172 SPRITEXY 63,80,220
1173 SHOWSPRITE 63
1200 bgndy = 64
1210 SETSPRITE 200,368,310
1220 SPRITEMAP 200,512,0,0,0,0,480,1
1230 SPRITEXY 200,184,120
1240 FOR i = 0 TO 3
1250 MOVEIMAGE 384,184,32,64,512,i*64
1260 MOVEIMAGE 384,184,32,64,544,i*64
1270 MOVEIMAGE 384,184,32,64,576,i*64
1280 MOVEIMAGE 384,184,32,64,608,i*64
1290 NEXT i
1300 SHOWSPRITE 200
1400 nbnmy = 2
1410 nmystep = 2
1420 DIM nmy(nbnmy,3)
1430 FOR i = 0 TO nbnmy-1
1440 nmy(i,0) = RANDOM(300)+30 : nmy(i,1) = RANDOM(200)+20 : nmy(i,2) = 0
1450 SETSPRITE 10+i,31,19
1460 NEXT i
1470 DIM nmytex(5)
1480 nmytex(0) = 79  :nmytex(1) = 100 : nmytex(2) = 121
1490 nmytex(3) = 142 : nmytex(4) = 163
1990 GOTO 2900
2000 HIDESPRITE 60 : HIDESPRITE 61 : HIDESPRITE 62
2010 SHOWSPRITE mycolor
2020 VSYNC
2050 IF(PAD AND 8192) = 8192 AND myx < 360 THEN myx = myx+mystep : mycolor = 62
2060 IF(PAD AND 32768) = 32768 AND myx > 10 THEN myx = myx-mystep : mycolor = 60
2070 IF(PAD AND 4096) = 4096 AND myy > 10 THEN myy = myy-mystep
2080 IF(PAD AND 16384) = 16384 AND myy < 230 THEN myy = myy+mystep
2090 IF PAD = 1 THEN END
2210 bgndy = bgndy-1
2220 IF bgndy = 0 THEN bgndy = 64
2230 SPRITEMAP 200,512,0,0,bgndy,0,480,1
2400 FOR i = 0 TO nbnmy-1
2410 nmy(i,1) = nmy(i,1)+nmystep
2420 SPRITEXY 10+i,nmy(i,0),nmy(i,1)
2500 IF nmy(i,1) < 250 THEN GOTO 2590
2510 nmy(i,1) = -20 : nmy(i,0) = RANDOM(300)+30
2520 SPRITEMAP 10+i,384,0,0,nmytex(random(5)),0,480,1
2530 SHOWSPRITE 10+i
2590 NEXT i
2900 SPRITEXY 60,myx,myy
2910 SPRITEXY 61,myx,myy
2920 SPRITEXY 62,myx,myy
2930 GOTO 2000

back