RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT DIM WW(4),SS(4) WW(0)=8 WW(1)=12 WW(2)=16 WW(3)=24 WW(4)=32 SS(0)=1 SS(1)=1 SS(2)=1 SS(3)=2 SS(4)=3 REPLAY: SPRITE OFF TICK=1 IMAX=0 VAIT=1 PLOT=-1 GOSUB ADDSPR ISPRITE=0 ITOUCH=0 DO IF TOUCH THEN IF ITOUCH=0 THEN SPRITE 0,TOUCH.X,TOUCH.Y,1 IF SPRITE HIT(0) THEN ITOUCH=1 PLAY 0,90,1 ISPRITE=HIT IDX=TOUCH.X-SPRITE.X(HIT) IDY=TOUCH.Y-SPRITE.Y(HIT) SPRITE OFF 0 END IF ELSE SPRITE ISPRITE,TOUCH.X-IDX,TOUCH.Y-IDY, END IF ELSE ISPRITE=0 ITOUCH=0 END IF FOR I=1 TO IMAX IF I<>ISPRITE THEN X=SPRITE.X(I) Y=SPRITE.Y(I) S=(SPRITE.C(I)-2)\2 W=WW(S) IF Y<((16*8)-W) THEN IF SPRITE HIT(I) THEN SPRITE I,X,Y-1, ELSE SPRITE I,X,Y+1, IF SPRITE HIT(I) THEN SPRITE I,X,Y, IF RND(5)=0 THEN DX=X+RND(1)*2-1 IF DX>=0 AND (DX+W)<=160 THEN SPRITE I,DX,Y+RND(1), IF SPRITE HIT(I) THEN SPRITE I,X,Y, END IF END IF END IF END IF END IF END IF NEXT I ADD TICK,1,1 TO 120 IF TICK=1 THEN IF NOT TOUCH THEN GOSUB ADDSPR END IF ADD VAIT,1,1 TO 3 IF VAIT=1 THEN WAIT VBL LOOP ADDSPR: IF IMAX<63 THEN INC IMAX II=IMAX ELSE ADD PLOT,1,0 TO 63 II=PLOT GOTO SKIP1 C=SPRITE.C(II) X=SPRITE.X(II)\8 Y=SPRITE.Y(II)\8 PAL RND(7) CELL X,Y,C CELL X+1,Y,C+1 CELL X,Y+1,C+16 CELL X+1,Y+1,C+17 SKIP1: END IF S=RND(2) IF RND(12)=0 THEN S=3 IF RND(36)=0 THEN S=4 C=(S+1)*2 IF S=4 THEN C=11 W=WW(S) SPRITE II,RND(158-W)+1,0,C SPRITE II SIZE SS(S) PAL RND(7) IF SPRITE HIT(II) THEN SPRITE OFF II IF PLOT>-1 THEN DEC PLOT ELSE DEC IMAX END IF RETURN #1:MAIN PALETTES 1A2A1500003C281400382410000C0804 000F0A05000B060100332211003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000008000000000000000 FF818181818181FF007F7F7F7F7F7F7F 00000000000000000000000000000000 0F30404080808080000F3F3F7F7F7F7F 00C02020101010100000E0E0F0F0F0F0 00182442412010080000183C3E3F1F0F 00182442820408100000183E7EFCF8F0 000001010101013F0000000000000000 7E81000000000000007EFFFFFFFFFFFF 00008080808080FC0000000000000000 00000000000000000000000000000000 0102040810204080000103070F1F3F7F 80402010080402010080C0E0F0F8FCFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 4040300F000000007F7F3F0F00000000 2020C00000000000E0E0C00000000000 08102041422418000F0F1F3F3E3C1800 1008048242241800F0F8FCFE7E3C1800 40808080808080403F7F7F7F7F7F7F7F 0000000000000000FFFFFFFFFFFFFFFF 0201010101010102FEFFFFFFFFFFFFFE 0102040810204080000103070F1F3F7F 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 80402010080402010080C0E0F0F8FCFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F010101010100003F01010101010000 000000000000817EFFFFFFFFFFFFFF7E FC80808080800000FC80808080800000 80402010080402017F7F3F1F0F070301 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0102040810204080FFFEFCF8F0E0C080 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8040201008040201FF7F3F1F0F070301 0102040810204080FFFEFCF8F0E0C080