TOUCHSCREEN RANDOMIZE TIMER REM ONE_BITS REM BY WAS8BIT DIM COIN(9,7),TCOIN(9,7) RESET: WAIT VBL CLS FOR I=1 TO 10 SPRITE I,,,0 SPRITE.A I,(4) NEXT I FOR I=11 TO 20 SPRITE I,,,0 SPRITE.A I,(5) NEXT I IDOO=0 IBOO=0 XBOO=0 YBOO=0 IPOO=0 XPOO=0 YPOO=0 FOR X=0 TO 19 ATTR(1) IF INT(RND*3)=0 THEN CELL X,15,INT(RND*2)+2 ELSE CELL X,15,1 END IF ATTR(0) IF INT(RND*2)=0 THEN CELL X,14,10 NEXT X ATTR(0) D=0 WCOIN=1 IJUMP=0 ITOP=0 DO IF TAP THEN IJUMP=1 ITOP=TOUCH.Y\8 END IF WWAIT=(WWAIT+1) MOD 3 IF WWAIT=0 THEN WCOIN=(WCOIN+1) MOD 10 IF WWAIT=0 THEN FOR Y=0 TO 14 FOR X=0 TO 19 C=CELL.C(X,Y) IF WCOIN=0 THEN IF Y<14 AND C>0 AND C<4 THEN C1=CELL.C(X+1,Y) C2=CELL.C(X,Y+1) C3=CELL.C(X+1,Y+1) CC=C*C1*C2*C3 IF CC<>0 AND C<10 AND C1<10 AND C2<10 AND C3<10 THEN ATTR(7) CELL X,Y,96 CELL X,Y+1,112 CELL X+1,Y,97 CELL X+1,Y+1,113 ATTR(0) END IF END IF END IF IF C>9 THEN CD=CELL.C(X,Y+1) IF C=10 THEN IF INT(RND*100)=0 OR IJUMP=1 THEN CELL X,Y,11 IF INT(RND*500)=0 THEN ATTR(2) CELL X,Y,15 ATTR(0) END IF IF INT(RND*250)=0 THEN ATTR(3) CELL X,Y,14 ATTR(0) END IF IF INT(RND*750)=0 AND Y<14 THEN ATTR(6) CELL X,Y,13 ATTR(0) END IF END IF IF C=13 AND INT(RND*25)=0 THEN IF D=0 OR INT(RND*10)=0 THEN D=INT(RND*9) IF D=1 THEN CC=CELL.C(X+1,Y-1) IF CC>0 AND CC<4 AND Y>0 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X+1,Y-1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=2 THEN CC=CELL.C(X+1,Y) IF CC>0 AND CC<4 AND Y<15 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X+1,Y,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=3 THEN CC=CELL.C(X+1,Y+1) IF CC>0 AND CC<4 AND Y<14 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X+1,Y+1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=4 THEN CC=CELL.C(X,Y+1) IF CC>0 AND CC<4 AND Y<14 THEN IF INT(RND*10)=0 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X,Y+1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE ATTR(0) CELL X,Y,10 END IF ELSE IF D=5 THEN CC=CELL.C(X-1,Y+1) IF CC>0 AND CC<4 AND Y<14 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X-1,Y+1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=6 THEN CC=CELL.C(X-1,Y) IF CC>0 AND CC<4 AND Y<15 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X-1,Y,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=7 THEN CC=CELL.C(X-1,Y-1) IF CC>0 AND CC<4 AND Y>0 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X-1,Y-1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF ELSE IF D=8 THEN CC=CELL.C(X,Y-1) IF CC>0 AND CC<4 AND Y>0 THEN CALL DOO(IDOO,80,6,3) ATTR(6) CELL X,Y-1,13 CELL X,Y,0 ATTR(0) ELSE D=INT(RND*9) END IF END IF END IF IF C=14 AND INT(RND*25)=0 THEN IPOO=10 XPOO=X*8+2 YPOO=Y*8+2 CELL X,Y,10 IF CELL.C(X,Y-1)=0 AND INT(RND*3)=0 THEN CELL X,Y-1,10 IF CELL.C(X-1,Y)=0 AND X>=0 THEN CELL X-1,Y,10 IF CELL.C(X+1,Y)=0 AND X<=19 THEN CELL X+1,Y,10 CALL DOO(IDOO,70,3,2) END IF IF C=15 AND INT(RND*25)=0 THEN CALL DOO(IDOO,30,6,1) IBOO=10 XBOO=X*8+2 YBOO=Y*8+2 ATTR(1) CELL X,Y,INT(RND*2)+2 ATTR(0) CC=CELL.C(X,Y+1) IF Y<14 AND CC>=1 AND CC<=3 AND INT(RND*3)=0 THEN CELL X,Y+1,0 END IF IF C=11 THEN IF CD=3 THEN CELL X,Y,10 ELSE IF CD=2 THEN CELL X,Y,(INT(RND*3)*16)+16 CALL DOO(IDOO,60,6,0) ELSE IF CD>0 THEN CELL X,Y,(INT(RND*3)*16)+24 CALL DOO(IDOO,60,3,0) ELSE IF CD=0 THEN CELL X,Y,66 END IF END IF IF C=10 AND CD=0 THEN CELL X,Y,66 END IF IF C>15 THEN IF C=31 THEN CELL X,Y,64 ELSE IF C=47 THEN CELL X,Y,66 ELSE IF C=63 THEN CELL X,Y,68 ELSE IF C<31 THEN IF Y>=ITOP THEN CELL X,Y,64 ELSE IF X=0 THEN IF INT(RND*10)=0 THEN CELL X,Y,C+16 ELSE CELL X,Y,C+32 END IF ELSE IF CELL.C(X-1,Y-1)=0 THEN CELL X,Y,0 CELL X-1,Y-1,C+1 ELSE CELL X,Y,64 END IF ELSE IF C<47 THEN IF Y>=ITOP THEN CELL X,Y,66 ELSE IF CELL.C(X,Y-1)=0 THEN CELL X,Y,0 CELL X,Y-1,C+1 ELSE CELL X,Y,66 END IF ELSE IF C<63 THEN IF Y>=ITOP THEN CELL X,Y,68 ELSE IF X=19 THEN IF INT(RND*10)=0 THEN CELL X,Y,C-16 ELSE CELL X,Y,C-32 END IF ELSE IF CELL.C(X+1,Y-1)=0 THEN CELL X,Y,0 CELL X+1,Y-1,C+1 ELSE CELL X,Y,68 END IF ELSE IF C=64 THEN IF X=0 THEN IF INT(RND*10)=0 THEN CELL X,Y,66 ELSE CELL X,Y,68 END IF ELSE IF CELL.C(X-1,Y+1)=0 THEN CELL X,Y,0 CELL X-1,Y+1,65 ELSE CELL X,Y,66 END IF ELSE IF C=65 THEN CELL X,Y,64 ELSE IF C=66 THEN IF CELL.C(X,Y+1)=0 THEN CELL X,Y,0 CELL X,Y+1,67 ELSE CELL X,Y,10 END IF ELSE IF C=67 THEN CELL X,Y,66 ELSE IF C=68 THEN IF X=19 THEN IF INT(RND*10)=0 THEN CELL X,Y,66 ELSE CELL X,Y,64 END IF ELSE IF CELL.C(X+1,Y+1)=0 THEN CELL X,Y,0 CELL X+1,Y+1,69 ELSE CELL X,Y,66 END IF ELSE IF C=69 THEN CELL X,Y,68 END IF END IF NEXT X NEXT Y IJUMP=0 END IF WAIT VBL CALL BOO(IBOO,XBOO,YBOO) CALL POO(IPOO,XPOO,YPOO) LOOP SUB DOO(IVOICE,INOTE,IDUR,ISOUND) IVOICE=(IVOICE+1) MOD 4 PLAY IVOICE,INOTE,IDUR SOUND ISOUND END SUB SUB BOO(IBOO,X,Y) IF IBOO=10 THEN FOR I=1 TO 10 SPRITE I,,,4 NEXT I END IF IF IBOO>0 THEN IBOO=IBOO-1 IF IBOO=0 THEN FOR I=1 TO 10 SPRITE I,,,0 NEXT I END IF FOR I=1 TO 10 SPRITE I,X+INT(RND*16)-8,Y+INT(RND*16)-8, NEXT I END IF END SUB SUB POO(IPOO,X,Y) IF IPOO=10 THEN FOR I=11 TO 20 SPRITE I,,,4 NEXT I END IF IF IPOO>0 THEN IPOO=IPOO-1 IF IPOO=0 THEN FOR I=11 TO 20 SPRITE I,,,0 NEXT I END IF FOR I=11 TO 20 SPRITE I,X+INT(RND*16)-8,Y+INT(RND*16)-8, NEXT I END IF END SUB #1:MAIN PALETTES 000B030600383424003B0B3F00173F22 0000303C003F373B000C3E08003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 007E000000007E0000007E7E7E7E7E00 00245A7E00245A00000024007E7E5A00 00542A7E00007E0000547E7E7E7E7E00 2050A850200000002070D87020000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00007E5A7E7E420000000024003C0000 0000007E5A7E7E000000000024003C00 00000000000000000000000000000000 0000245A245A00000000002400180000 0000E7BDFFE742000000004218A50000 0000003C7E7E42000000000024003C00 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 807E5A7E7E424200800024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 107E5A7E7E424200100024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 017E5A7E7E424200010024003C000000 007E5A7E7E424280000024003C000080 007E5A7E7E424200000024003C000000 007E5A7E7E424210000024003C000010 007E5A7E7E424200000024003C000000 007E5A7E7E424201000024003C000001 007E5A7E7E424200000024003C000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0718275F5FBFBFBF0000000000000000 E018E4FAFAFDFDFD0000000000000000 00000000000000000718275F5FBFBFBF 0000000000000000E018E4FAFAFDFDFD 0718275F5FBFBFBF0718275F5FBFBFBF E018E4FAFAFDFDFDE018E4FAFAFDFDFD 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 BFBFBF5F5F2718070000000000000000 FDFDFDFAFAE418E00000000000000000 0000000000000000BFBFBF5F5F271807 0000000000000000FDFDFDFAFAE418E0 BFBFBF5F5F271807BFBFBF5F5F271807 FDFDFDFAFAE418E0FDFDFDFAFAE418E0 #15:MAIN SOUND 0800006610FA50003800806C00FF0000 2800106600FF0F003800009919FE0900 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000