TITLE: WAIT 3 RANDOMIZE TIMER X=15 Y=88 S=1 GAMEPAD 1 BX=0 J=0 JSPD=4 ESPD=1 GEMS=10 AX=0 AY=-10 EX=180 EY=INT(RND*100) D=20 AD=INT(RND*30) GS=11 SPRITE 9,EX-AD,EY+AD,GS P=0 C=0 D=0 G=0 E=0 Q=0 ES=5 ES1=6 ES2=7 ES3=8 ES4=9 BY=0 L=0 BOSX=180 BOSY=64 BOSS=0 O=0 ATTR(1) DO CLS PRINT"" PRINT"" PRINT" CAVE" PRINT"" PRINT" -PLAYER" PRINT" -GEM" PRINT" -ENEMIS" PRINT"" PRINT"" PRINT"" PRINT"" PRINT" 'Z' TO PLAY" SPRITE 1,64,32,24 SPRITE 2,64,42,11 SPRITE 3,64,52,9 IF BUTTON(0,0) THEN GOTO GAME IF BUTTON(0,1) THEN GOTO HOW WAIT VBL LOOP HOW: SPRITE OFF CLS WAIT 10 PRINT"PRESS 'Z' TO SHOOT AND 'X' TO JUMP, DODGE THE FYING FRUITS AND GRAB GEMS TO THROW THEM" PRINT"" PRINT"'Z' GO BACK" DO IF BUTTON(0,0) THEN GOTO TITLE LOOP GAME: CLS SPRITE OFF WAIT 25 DO CLS BG COPY 0,0,32,20 TO 0,0 IF L=1 THEN SPRITE OFF 3 SPRITE 1,X,Y,S SPRITE 2,0,9,11 SPRITE 3,AX,AY,GS SPRITE 4,EX,EY+O,ES SPRITE 5,EX+P,EY+P,ES1 SPRITE 6,EX-E,EY-E,ES2 SPRITE 7,EX+D,EY-D,ES3 SPRITE 8,EX-C,EY+C,ES4 SPRITE 9,EX-G,EY,GS SCROLL 0,BX,BY BX=BX+ESPD AX=AX+2 EX=EX-ESPD IF SPRITE HIT(1,9) THEN GEMS=GEMS+1 SPRITE OFF 9 G=0 END IF IF EY+O>=88 THEN SPRITE OFF 4 IF EY+D>=88 THEN SPRITE OFF 5 IF EY-D>=88 THEN SPRITE OFF 6 IF EY-AD>=88 THEN SPRITE OFF 7 IF EY+D>=88 THEN SPRITE OFF 8 IF EY>=88 THEN SPRITE OFF 4 IF EX<=-50 THEN EX=180 EY=INT(RND*300) D=INT(RND*50) AD=INT(RND*-50) G=INT(RND*40) Q=0 G=INT(RND*50) P=INT(RND*50) E=INT(RND*50) D=INT(RND*50) C=INT(RND*50) ESPD=ESPD+0.1 T=0 ES=5 ES1=6 ES2=7 ES3=8 ES4=9 GS=11 END IF IF SPRITE HIT(3,4) THEN GEMS=GEMS+1 Q=1 AY=-10 GS=10 MUSIC 0 O=100 BY=BY+1 WAIT 8 BY=BY-1 END IF IF SPRITE HIT(3,5) THEN P=100 AY=-10 ES=10 MUSIC 0 BY=BY+1 WAIT 8 BY=BY-1 END IF IF SPRITE HIT(3,6) THEN E=200 L=1 ES1=10 MUSIC 0 BY=BY+1 WAIT 8 BY=BY-1 END IF IF SPRITE HIT(3,7) THEN D=200 AY=-10 MUSIC 0 ES2=10 BY=BY+1 WAIT 8 BY=BY-1 END IF IF SPRITE HIT(3,8) THEN C=200 AY=-10 MUSIC 0 ES3=10 BY=BY+1 BY=BY-1 END IF IF SPRITE HIT(1,9) THEN G=100 AY=-10 ES4=10 BY=BY+1 BY=BY-1 MUSIC 8 END IF IF P>=100 THEN SPRITE OFF 5 IF E>=100 THEN SPRITE OFF 6 IF D>=100 THEN SPRITE OFF 7 IF C>=100 THEN SPRITE OFF 8 IF Q=1 THEN SPRITE OFF 4 FOR I=5 TO 8 IF SPRITE HIT(1,I) THEN GOTO GAMEOVER END IF NEXT I IF AX>=150 THEN AY=-10 GS=GS+0.1 IF GS>=14.9 THEN GS=11 BG 1 ATTR(1) TEXT 2,1,""+STR$(GEMS)+"" BG 0 S=S+0.1 IF S>=2.9 THEN S=1 IF BUTTON TAP(0,0) AND Y>=86 THEN J=1 END IF IF BUTTON TAP(0,1) AND GEMS>0 THEN AX=X AY=Y GEMS=GEMS-1 MUSIC 15 END IF IF Y<88 THEN Y=Y+2 IF J>=1 THEN J=J+1 S=4 Y=Y-JSPD END IF IF J>=10 THEN JSPD=2.3 S=4 END IF IF J>=15 THEN J=0 S=4 JSPD=4 END IF WAIT VBL LOOP GAMEOVER: WAIT 10 CLS SPRITE OFF ATTR(1) PRINT" GAME OVER" PRINT"" PRINT" GEMS:"+STR$(GEMS)+"" PRINT"" PRINT" 'Z' PLAY AGAIN" DO IF BUTTON(0,0) THEN GOTO TITLE LOOP #1:MAIN PALETTES 003F3000003F3F0000151500003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 003C343C181C10000000000000000000 003C343C183808000000000000000000 003C343E581818000000000000000000 003C343E581C20000000000000000000 20103C12127E04000000006C6C003800 00100800003E221C0000001C3E001C00 000001020206083C0001000505000600 003C12127E46040000006C6C00383800 0030283E68FCA000180C174197005000 00422400044222000002200000400200 0000000C0400000000183C72FB7E3C18 0000181000000000081C266F7F3E1C08 0000002030000000183C7EDF4E3C1800 000000000818000010387CFEF6643810 00000000000000000000000000000000 00000000000000000000000000000000 DDBB00EEDD00BE7D0000000000000000 FFC3BDBDBDBDC3FF0000000000000000 82B02322000820200000000000000000 00003008040830000000000000000000 00000000000111300000000000000001 000040E0B0F0F84800603010480C04B4 00000000000000000000000000000000 003C343C181818000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0B070207050700000000010002000000 58FCF8D2EC820000A600002000000000 #3:MAIN BG 00002010120011001100110011001100 11001100110011001100120011001100 11001100110011001100110011001100 11001100110011001100110011001200 11001100000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001302000000000000000000000000 00000000000000000000000000000000 00000000000000001302000000000000 00000000000000000000000000000000 00000000000013020000000000000000 00000000000013021302000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000130200000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 13020000000000000000000000000000 00000000000000000000000000000000 13020000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000130200000000000000000000 00000000000000000000000000000000 13021302000000000000000000000000 00000000000000000000000013020000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000110011001100120011001100 11001100110011001100110011001100 11001100110011001100110011001100 11001200110011001100110011001100 11001100130013001300130013001300 13001300130013001300130013001300 13001300130013001300130013001300 13001300130013001300130013001300 13001300000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 2800303A000450001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00014040400340404040404040404040 40404040404040404040404040404040 02404040404040404040404040404040 40404040404040404040404003844040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 3D0F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3D0F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 520F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3E0F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3E0F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000