RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT FOR Y=0 TO 15 FOR X=2 TO 17 PAL RND(6)+1 CELL X,Y,1 NEXT X NEXT Y I=RND(6)+1 ITOUCH=0 DO IF TOUCH THEN IF ITOUCH=0 THEN TX1=TOUCH.X TY1=TOUCH.Y ITOUCH=1 END IF ELSE IF ITOUCH=1 THEN TX2=TOUCH.X TY2=TOUCH.Y ITOUCH=0 DX=ABS(TX1-TX2) DY=ABS(TY1-TY2) IF DX>16 AND DY<16 THEN CALL ANI(I,1) IF DY>16 AND DX<16 THEN CALL ANI(I,2) IF DX<16 AND DY<16 THEN CALL ANI(I,3) END IF END IF WAIT VBL LOOP SUB ANI(CP,T) IF T=1 THEN A1=1 A2=7 ELSE IF T=2 THEN A1=7 A2=13 ELSE IF T=3 THEN A1=13 A2=19 ADD CP,1,1 TO 7 END IF FOR A=A1 TO A2 FOR Y=0 TO 15 FOR X=2 TO 17 P=CELL.A(X,Y) IF P=CP THEN PAL P CELL X,Y,A END IF NEXT X NEXT Y WAIT 6 NEXT A END SUB #1:MAIN PALETTES 003F2A15003B302000382410003C2814 002E0C08000F0A05000B060200332211 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C4281999981423C003C7E7E7E7E3C00 182440484840241800183E3E3E3E1800 181824242424181800001C1C1C1C0000 18181818181818180000000000000000 18182424242418180000383838380000 182402121202241800187C7C7C7C1800 3C4281999981423C003C7E7E7E7E3C00 003C42819942000000003C7E7E3C3C00 00003CC3C33C00000000003C3C3C0000 000000FFFF0000000000000000000000 00003CC3C33C000000003C3C3C000000 0000429981423C00003C3C7E7E3C0000 3C4281999981423C003C7E7E7E7E3C00 003C424242423C0000003C3C3C3C0000 00001824241800000000001818000000 00000018180000000000000000000000 00001824241800000000001818000000 003C424242423C0000003C3C3C3C0000 3C4281999981423C003C7E7E7E7E3C00