RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT DIM GLOBAL MAP(9,7),POP(9,7),TYP(63) X1=RND(9) Y1=RND(7) X2=0 Y2=0 X3=0 Y3=0 MAP(X1,Y1)=1 CALL GETSPOT(X2,Y2) MAP(X2,Y2)=2 CALL GETSPOT(X3,Y3) MAP(X3,Y3)=3 FOR IY=0 TO 7 FOR IX=0 TO 9 X=IX*2 Y=IY*2 IF MAP(IX,IY)=0 THEN CELL X,Y,2 CELL X+1,Y,3 CELL X,Y+1,15 CELL X+1,Y+1,31 END IF IF MAP(IX,IY)=1 THEN CELL X,Y,2 CELL X+1,Y,3 CELL X,Y+1,8 CELL X+1,Y+1,31 END IF IF MAP(IX,IY)=2 THEN CELL X,Y,4 CELL X+1,Y,3 CELL X,Y+1,9 CELL X+1,Y+1,31 END IF IF MAP(IX,IY)=3 THEN CELL X,Y,4 CELL X+1,Y,3 CELL X,Y+1,10 CELL X+1,Y+1,31 END IF NEXT IX NEXT IY SPRITE 0,0,0,1 ISPR=0 DO IF TOUCH THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) AND ISPR=0 THEN PLAY 0,90,1 ISPR=HIT XSPR=SPRITE.X(HIT) YSPR=SPRITE.Y(HIT) END IF IF ISPR>0 THEN SPRITE ISPR,TOUCH.X-8,TOUCH.Y-8, END IF ELSE IF ISPR>0 THEN CX=(TOUCH.X+8)\16-1 CY=(TOUCH.Y+8)\16-1 CC=CELL.C(CX*2,CY*2) IF CC=4 AND TYP(ISPR)=1 THEN CELL CX*2,CY*2,5 SPRITE ISPR,-8,-8,0 POP(XSPR\16,YSPR\16)=0 ELSE SPRITE ISPR,XSPR,YSPR, END IF ISPR=0 END IF END IF IWAIT=(IWAIT+1) MOD 60 IF IWAIT=0 THEN IWAIT2=(IWAIT2+1) MOD 3 FOR IY=0 TO 7 FOR IX=0 TO 9 X=IX*2 Y=IY*2 M=MAP(IX,IY) IF M=1 THEN T=CELL.C(X+1,Y+1) IF T=31 AND POP(IX,IY)=0 THEN CELL X+1,Y+1,16 ELSE IF T<30 THEN CELL X+1,Y+1,T+1 ELSE IF T=30 THEN CELL X+1,Y+1,31 POP(IX,IY)=1 REM XPOP=IX REM YPOP=IY SPRITE 1,X*8+4,Y*8+4,32 SPRITE 1 PAL 1 TYP(1)=1 END IF END IF IF M=2 AND IWAIT2=0 THEN IF CELL.C(X,Y)=5 AND POP(IX,IY)=0 THEN T=CELL.C(X+1,Y+1) IF T=31 THEN CELL X+1,Y+1,16 ELSE IF T<30 THEN CELL X+1,Y+1,T+1 ELSE IF T=30 THEN CELL X+1,Y+1,31 POP(IX,IY)=1 REM XPOP=IX REM YPOP=IY SPRITE 2,X*8+4,Y*8+4,33 SPRITE 2 PAL 2 TYP(2)=2 CELL X,Y,4 END IF END IF END IF IF M=3 AND IWAIT2=0 THEN IF CELL.C(X,Y)=5 AND POP(IX,IY)=0 THEN T=CELL.C(X+1,Y+1) IF T=31 THEN CELL X+1,Y+1,16 ELSE IF T<30 THEN CELL X+1,Y+1,T+1 ELSE IF T=30 THEN CELL X+1,Y+1,31 POP(IX,IY)=1 REM XPOP=IX REM YPOP=IY SPRITE 3,X*8+4,Y*8+4,34 SPRITE 3 PAL 3 TYP(3)=3 CELL X,Y,4 END IF END IF END IF NEXT IX NEXT IY END IF WAIT VBL LOOP SUB GETSPOT(X,Y) M=9 WHILE M>0 X=RND(9) Y=RND(7) M=MAP(X,Y) WEND END SUB #1:MAIN PALETTES 003F2A15003C28000030200000003C3F 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000000000000000000000 FF80808080808080FFFFFFFFFFFFFFFF FF01010101010101FFFFFFFFFFFFFFFF FF80808080808080FFDF8FDFFFFFFFFF FFA0F0A080808080FFDF8FDFFFFFFFFF FF01010101010101FFF5FBF5FFFFFFFF FF0B050B01010101FFF5FBF5FFFFFFFF 8C8CBFBF8C8C80FFF3F3C0C0F3F3FFFF B3B38C8CB3B380FFCCCCF3F3CCCCFFFF B3B3808C8C8080FFCCCCFFF3F3FFFFFF 80808080808080FFFFFFFFFFFFFFFFFF 80808080808080FFFFFFFFFFFFFFFFFF 80808080808080FFFFFFFFFFFFFFFFFF 80808080808080FFFFFFFFFFFFFFFFFF 80808080808080FFFFFFFFFFFFFFFFFF 1F1F7F7F7F7F7FFFE1E18181818181FF 07077F7F7F7F7FFFF9F98181818181FF 03037F7F7F7F7FFFFDFD8181818181FF 01017F7F7F7F7FFFFFFF8181818181FF 01011F1F7F7F7FFFFFFFE1E1818181FF 010107077F7F7FFFFFFFF9F9818181FF 010103037F7F7FFFFFFFFDFD818181FF 010101017F7F7FFFFFFFFFFF818181FF 010101011F1F7FFFFFFFFFFFE1E181FF 0101010107077FFFFFFFFFFFF9F981FF 0101010103037FFFFFFFFFFFFDFD81FF 0101010101017FFFFFFFFFFFFFFF81FF 0101010101011FFFFFFFFFFFFFFFE1FF 01010101010107FFFFFFFFFFFFFFF9FF 01010101010103FFFFFFFFFFFFFFFDFF 01010101010101FFFFFFFFFFFFFFFFFF 0018187E7E1818003C66E78181E7663C 00666618186666003C1899E7E799183C 0066660018FFFF7E7E9999FFE7E7FF7E