RANDOMIZE TIMER GAMEPAD 1 DIM GLOBAL ISPR(63),TSPR(63),EX(63),EY(63) SPRITE 0,72,100,34 SPRITE 0 SIZE 1 PAL 1 SPRITE 1,72,110,32 SPRITE 1 SIZE 1 PAL 1 SPRITE 2,,,36 SPRITE 2 PAL 1 SPRITE 3,,,52 SPRITE 3 PAL 1 SPRITE 4,72,0,13 SPRITE 4 PAL 2 FOR I=5 TO 14 SPRITE I SIZE 0 PAL 0 NEXT I FOR I=15 TO 63 SPRITE I SIZE 1 PAL 0 NEXT I BG 1 PAL 4 FOR X=0 TO 31 FOR Y=0 TO 32 FLIP RND(1),RND(1) CELL X,Y,RND(5)+53 NEXT Y NEXT X BG 0 PAL 4 FOR X=0 TO 31 FOR Y=0 TO 32 FLIP RND(1),RND(1) CELL X,Y,RND(5)+53 NEXT Y NEXT X FLIP 0,0 GLOBAL XSCROLL,YSCROLL,XSCR,YSCR,XPLAYER,YPLAYER XSCROLL=0 YSCROLL=0 XPLAYER=72 YPLAYER=100 XSCR=0 YSCR=0 ILEVEL=0 NEXTLEVEL: INC ILEVEL IF ILEVEL>9 THEN GOTO DOEND COPY $8000+(ILEVEL+208)*16,16 TO $8000+13*16 PLAY 2,48,10 SOUND 2 PLAY 3,55,10 SOUND 2 FOR I=1 TO ILEVEL II=0 CALL GETSPR(II) IF II<64 THEN ISPR(II)=1 SPRITE II,RND(160),0,2 EX(II)=RND(4)-2 EY(II)=RND(1) END IF NEXT I DO EWAIT=(EWAIT+1) MOD 2 IF EWAIT=0 THEN FOR I=15 TO 63 IF ISPR(I)>0 THEN X=SPRITE.X(I) Y=SPRITE.Y(I) ADD X,EX(I),0 TO 160 ADD Y,EY(I),0 TO 120 IF RND(10)=0 THEN EX(I)=RND(4)-2 EY(I)=RND(1) END IF SPRITE I,X,Y, END IF NEXT I END IF IF SPRITE.Y(2)>-8 THEN SPRITE 2,,SPRITE.Y(2)-2, IF BUTTON TAP (0,0) AND SPRITE.Y(2)<0 THEN SPRITE 2,XPLAYER+4,YPLAYER-8, PLAY 1,50,4 SOUND 1 END IF IF SPRITE.Y(3)<125 THEN SPRITE 3,,SPRITE.Y(3)+1, IF BUTTON TAP (0,1) AND SPRITE.Y(3)>120 THEN SPRITE 3,XPLAYER+4,YPLAYER+12, PLAY 1,50,4 SOUND 1 END IF IF RIGHT(0) THEN CALL MOVEPLAYER(1,0) ELSE IF LEFT(0) THEN CALL MOVEPLAYER(-1,0) IF UP(0) THEN CALL MOVEPLAYER(0,-1) ELSE IF DOWN(0) THEN CALL MOVEPLAYER(0,1) CALL DOSCROLL WAIT VBL LOOP DOEND: END SUB DOSCROLL IF XSCROLL>0 THEN INC XSCR DEC XSCROLL ELSE IF XSCROLL<0 THEN DEC XSCR INC XSCROLL END IF IF YSCROLL>0 THEN INC YSCR DEC YSCROLL ELSE IF YSCROLL<0 THEN DEC YSCR INC YSCROLL END IF SCROLL 0,XSCR,YSCR SCROLL 1,XSCR,YSCR END SUB SUB MOVEPLAYER(X,Y) PLAY 0,10,1 SOUND 0 IF X+XPLAYER>0 AND X+XPLAYER<143 THEN XPLAYER=XPLAYER+X IF Y+YPLAYER<100 AND Y+YPLAYER>60 THEN YPLAYER=YPLAYER+Y SPRITE 0,XPLAYER,YPLAYER, XSCROLL=XSCROLL+X*8 YSCROLL=YSCROLL+Y*8 END SUB SUB GETSPR(I) FOR I=15 TO 63 IF ISPR(I)=0 THEN EXIT NEXT I END SUB #1:MAIN PALETTES 002A3020000C082F00303000003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000008000000000000000000000000 00000000000000000000000000000000 10080707050537171008070707073711 0810E0E0A0A0ECE80810E0E0E0E0EC88 00000010080707050000001008070705 0000000810E0E0A00000000810E0E0A0 00000000000000020000000000000002 00000000000000200000000000000020 00000000000006060000000000000606 00000000000060600000000000006060 00000000060703030000000000000000 0000000060E0C0C00000000000000000 000042A5A5420000000042E7E7420000 00000000000000000018242424241800 00000000000030160000000000003010 0000000000000C680000000000000C08 00000000000000000000000000000000 00000000000000000000000000000000 1F1333070E0C3C3C19113000080C3C3C F8C8CCE070303C3C98880C0010303C3C 05070101010000000507010101000000 A0E0808080000000A0E0808080000000 03000000000000000300000000000000 E080000000000000E080000000000000 03010000000000000301000000000000 C080000000000000C080000000000000 07060000000000000000000000000000 E0600000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1F1333070E0C3C3C18103000080C3C3C F8C8CCE070303C3C18080C0010303C3C 071F2F5F5F9F9F8F0718306060E0E0F0 E0F8FCFEFEFFFFFFE018040202010101 00010101003010100000030303032323 0080C0C0404C44440000808080808888 0042C3A5000000000042A54281810000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000060000000000000000 00000000000000600000000000000000 00000000000030160000000000003010 0000000000000C680000000000000C08 8F87834040201807F0F8FC7F7F3F1F07 FDF9F102020418E003070FFEFEFCF8E0 10101010000000002B2B232331303000 4444440400000000B8B888C88C0C0C00 00000000002424000000000024002400 00400000000000000000000000000000 00000000000000000000200000000000 00000010000000000000001000000000 00104000000000000000000000000000 00000000000000000000200040000000 00000820000000000000082000000000 00000000000000000000000000000000 070303070E0C3C3C00000000080C3C3C E0C0C0E070303C3C0000000010303C3C 1F133307060000001810300000000000 F8C8CCE06000000018080C0000000000 #15:MAIN SOUND 38000099000000002F0084BB14F31000 230084A9003AE000280030BF19FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000