RANDOMIZE TIMER GAMEPAD 1 SPR=1 MOVER=0 MOVEL=0 BX=-10 BY=0 TIM=0 EX=64 EY=78 ES=7 SPD=0.5 SCR=0 ES2=7 XC=-40 YC=60 X=64 Y=80 PX=10 PY=5 DIM HX(5) DIM HY(5) DIM HS(5) DIM HASP(5) DIM HOS(5) DIM CLX(1) DIM CLY(1) DIM CLON(1) DIM CIMG(1) FOR I=0 TO 5 HX(I)=INT(RND*153) HY(I)=80+INT(RND*70) HASP(I)=0.5 HOSV=INT(RND*2) IF HOSV=0 THEN HOS(I)=0 IF HOSV=1 THEN HOS(I)=6 HS(I)=48+HOS(I) NEXT I FOR I=0 TO 1 CLX(I)=-40 CLY(I)=20+INT(RND*20) CLON(I)=0 NEXT I SPRITE.A 5,(0,0,0,0,1) SPRITE.A 6,(4,0,0,0,1) SPRITE.A 7,(4,0,0,0,3) SPRITE.A 1,(0,0,0,1,0) TITLE: STOP CLS SPRITE OFF SCROLL 1,0,0 BG 1 BG COPY 0,0,32,16 TO -3,0 BG 0 ATTR(3,0,0,0,0) WAIT 10 PRINT" ---------" PRINT" *STAR WARP*" PRINT" ---------" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT" PRESS 'Z' TO BEGIN" PRINT"" PRINT" 'X' TO HI-SCORES" DO IF BUTTON TAP(0,1) THEN GOTO BOARD IF BUTTON TAP(0,0) THEN GOTO GAME WAIT VBL LOOP GAME: ATTR(3,0,0,0,0) CLW SPR=1 MOVER=0 MOVEL=0 BX=-10 BY=0 TIM=0 EX=64 EY=78 ES=7 SPD=0.3 EX2=89 EY2=80 XC=-40 YC=60 X=64 Y=110 PX=10 SCR=0 PY=5 SX=0 PRINT" READY" WAIT 2*60 PRINT" GO" WAIT 1*60 CLW REM ---GAME_LOOP--- DO IF SPRITE HIT(20,21) THEN PLAY 0,65 SOUND 2,3,8,5 SCR=SCR+3 END IF IF SPRITE HIT(20,23) THEN PLAY 0,65 SOUND 2,3,8,5 SCR=SCR+3 BX=-10 EX2=-10 END IF REM ---SPRITES--- SPRITE 1,X,Y,SPR IF BUTTON TAP(0,0) THEN PLAY 0,71 ELSE STOP IF SPRITE HIT(1,21) THEN GOTO GAMEOVER IF SPRITE HIT(1,23) THEN GOTO GAMEOVER BY=BY-3 SPRITE 20,BX,BY,5 IF BY<=80 THEN BX=-20 SPRITE 5,PX,PY,10 PX=PX+0.01 IF PX>160 THEN PX=-20 FOR I=0 TO 1 IF INT(RND*100)=50 AND CLON(I)=0 THEN CLX(I)=-40 CLY(I)=20+INT(RND*20) CLON(I)=1 IF I=0 THEN CIMG(I)=17 SPRITE.A 40+I,(4,INT(RND*2),0,0,1) END IF IF I=1 THEN CIMG(I)=70 SPRITE.A 40+I,(4,INT(RND*2),0,0,3) END IF END IF IF CLON(I)=1 THEN CLX(I)=CLX(I)+0.1 SPRITE 40+I,CLX(I),CLY(I),CIMG(I) END IF IF CLX(I)>160 THEN CLON(I)=1 END IF NEXT I FOR I=0 TO 5 IF HY(I)>85 THEN HS(I)=49+HOS(I) END IF IF HY(I)>105 THEN HS(I)=50+HOS(I) END IF IF HY(I)>115 THEN HS(I)=51+HOS(I) END IF IF HY(I)>125 THEN HS(I)=52+HOS(I) END IF IF HY(I)>130 THEN HX(I)=INT(RND*153) HY(I)=80 HOSV=INT(RND*2) IF HOSV=0 THEN HOS(I)=0 SPRITE.A I+50,(4,0,0,0,0) END IF IF HOSV=1 THEN HOS(I)=6 SPRITE.A I+50,(1,0,0,0,0) END IF HS(I)=48+HOS(I) END IF HY(I)=HY(I)+HASP(I) SPRITE I+50,HX(I),HY(I),HS(I) NEXT I REM MOVEMENT IF LEFT(0) THEN MOVEL=1 ELSE MOVEL=0 IF RIGHT(0) THEN MOVER=1 ELSE MOVER=0 IF DOWN(0) AND Y<120 THEN Y=Y+0.3 IF UP(0) AND Y>70 THEN Y=Y-0.6 IF MOVEL=0 AND MOVER=0 THEN SPR=1 IF BUTTON TAP(0,0) THEN GOSUB RAND IF MOVEL=1 AND MOVER=0 THEN SPR=3 X=X-0.8 SX=SX-0.4 SCROLL 1,SX,0 END IF IF MOVER=1 AND MOVEL=0 THEN SPR=2 X=X+0.8 SX=SX+0.4 SCROLL 1,SX,0 END IF TIM=TIM+1 IF TIM>=40 THEN SPRITE 21,EX,EY,ES SPRITE 23,EX2,EY2,ES EY=EY+SPD EY2=EY2+SPD END IF IF EY>=80 THEN ES=6 SPD=0.6 END IF IF EY>=150 THEN GOSUB AGAIN IF EY2>=150 THEN GOSUB AGAIN2 IF SPRITE HIT(20,21) THEN BX=-20 BY=140 EX=-20 END IF WAIT VBL LOOP RAND: BX=X BY=Y RETURN AGAIN: EY=70 EX=INT(RND*110) ES=7 SPD=0.2 RETURN AGAIN2: EY2=79 EX2=INT(RND*110) ES2=7 SPD=0.8 RETURN BOARD: CLS PRINT" STAR WARP" PRINT" ---------" PRINT" LEADERBOARD" PRINT"" PRINT" 1.CLOUD: 60" PRINT" 2.N/A" PRINT" 3.N/A" PRINT" 4.N/A" PRINT"" PRINT"" PRINT"" PRINT" PRESS 'Z' TO EXIT" DO IF BUTTON TAP(0,0) THEN GOTO TITLE WAIT VBL LOOP GAMEOVER: CLW PRINT" GAME OVER" PRINT" SCORE:"+STR$(SCR)+"" BX=-10 BY=0 SPR=1 MOVER=0 MOVEL=0 TIM=0 ENEMY=0 EX=64 EY=70 ES=7 SPD=0.3 SCR=0 XC=-20 YC=60 X=69 Y=110 SCR=0 PX=10 PY=5 WAIT 2*60 GOTO TITLE #1:MAIN PALETTES 070B3438002C0924003F152A003F3F07 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000187EE7240000000000001818 0000C0F078181C0C0000000000606000 0000030F1E1838300000000000060600 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00000000000000000000181818000000 0000180018180000000018BDE7A51800 00000000181800000000001824241800 00000000181800000000001824241800 00000000000000000000000000000000 000000000007FFFE001F3F3F7F7F7F7F 000000003CFEE20C00E0F0F8F8FCFCF0 00004100000000800000000000000000 00002000000000020000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000071F7EE1000000000000011E 00000000C0FCBE82000000000000407C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C07F0000000000003F007F1F0F000000 F0800000000000000878F0E080000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 84721E07000000007B1F070000000000 5C10E0C000000000A0E0C00000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000080000000000000038000000 000000245E0400000000001C3E3C0000 0000003466240C000000000C1E5E3C00 00000076C78F1E000000000E3F7F3E00 00007AF3C78F0E000000060F3F7F7E00 00000000001010100000000000101010 00000018241818180000000018181818 0000183C663C183C000000001818183C 00183C66E73C183C000000181818183C 182466C3C33C183C0018183C3C18183C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000103070F0E0000000000000001 000000C0E0F0F01800000000000080E0 00000000000000000000000000000000 0000000000011F7E0000000000000001 000000010FF80099000000000007FF7F 00000080FF1F0CFF0000000000E0FFFF 00000000E0F03804000000000000C0F8 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000001010000000000000000 0E0D183B39F5FFFB010307070F0F1F1F 5858DCCCC6E67BFFE0E0F0F0F8F8FCF8 00000000000080C00000000000000000 80888F40473F00007F7F7F3F38000000 1F30C4F98EFF7F3FFFFFFFFF7F7F3F00 F81FED3BFFFEF8C0FFFFFFFFFCF8C000 06FEEC88F0000000FCFCF0F000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000000103070F 0001050E1F3F7EFC000E3AF1E3C79E1C 01030307070F0F0F0000000103030307 F7D3DBF3E2D2A1D47FFFFFFFFFFFFFFF F9AE5E6D2566131EFEFFFFFFFFFFFFFF E0E0F0707070B8780000808080C0C0C0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03030706092165FF0C1C3839777F7FFF F8F040408040F0F838F0C0C080C0F0F8 0F1E1F7F7EFEFCF8070F0F1F1F3F3F1F E8C8191343C7070FFFFFFEFDFFFBFFF5 59AFB58E9AB1D0E0FFFFFFFFFFFF7FFF F818B8CCB6DFDB7BE0E0E0F0F8F8FCFC #3:MAIN BG 00002010000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000450A00084202 00004322442243224422450200004202 00004202420243024402450200000000 00000000000000000000000000000000 00000000000000000008000800080000 00005322542253225422552242020000 00004502520253025402550200000000 0000000060226122612A602A00000000 00000000000000000008622265220000 62026322642263226422652242024302 44024502620263026402650200000000 0000000070227122712A702A00000000 00000000000000000008722275220000 72027302742273227422752252025302 54025502720273027402750200000000 00000000040004000400040004000400 04000400040004000400040004080408 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400040004000400040004000400 04000400