DIM GRID(9,7) REM WAS8BIT TOUCHSCREEN CELL SIZE 1,1 BG 1 PAL 2 FOR X=0 TO 9 FOR Y=0 TO 7 CELL X,Y,2 NEXT Y NEXT X SPRITE 0,0,0,6 SPRITE 0 PAL 2 FOR I=1 TO 7 X=0 Y=I SPRITE I,X*16,Y*16,4 SPRITE I SIZE 1 PRIO 0 GRID(X,Y)=I NEXT I FOR I=1 TO 7 II=I+7 X=5 Y=I SPRITE II,X*16,Y*16,7 SPRITE II SIZE 1 PRIO 0 GRID(X,Y)=II NEXT I FOR I=1 TO 7 II=I+14 X=9 Y=I SPRITE II,X*16,Y*16,9 SPRITE II SIZE 1 PRIO 0 GRID(X,Y)=II NEXT I ISTART=0 XSTART=0 YSTART=0 DO IF TOUCH THEN IF ISTART=0 THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN ISTART=1 XSTART=TOUCH.X\16 YSTART=TOUCH.Y\16 BG 0 PAL 1 PRIO 1 'NUMBER 0,0,HIT,1 'NUMBER 1,0,GRID(XSTART,YSTART),1 'NUMBER 3,0,XSTART,2 'NUMBER 6,0,YSTART,2 ELSE ISTART=-1 END IF ELSE IF ISTART=1 THEN X=TOUCH.X\16 Y=TOUCH.Y\16 SX=X*16 SY=Y*16 SPRITE HIT,SX,SY, END IF ELSE IF ISTART=-1 THEN ISTART=0 IF ISTART=1 THEN ISTART=0 XSTOP=SX\16 YSTOP=SY\16 'NUMBER 3,1,XSTOP,2 'NUMBER 6,1,YSTOP,2 IF GRID(XSTOP,YSTOP)>0 THEN SPRITE HIT,XSTART*16,YSTART*16, ELSE GRID(XSTOP,YSTOP)=GRID(XSTART,YSTART) GRID(XSTART,YSTART)=0 END IF END IF END IF WAIT VBL LOOP #1:MAIN PALETTES 000C303C003F3F0000153F2A003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FF808080808080800000000000000000 FF000000000000000000000000000000 00000000000000000000030F1F1F3F3F 00000000000000000000E0F8FCFCFEFE 80000000000000008000000000000000 0000030F1F1F3F3F0000000000000000 0000C0F0F8F8FCFC0000000000000000 0000030F1F1F3F3F0000030F1F1F3F3F 0000C0F0F8F8FCFC0000C0F0F8F8FCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080800000000000000000 00000000000000000000000000000000 00000000000000003F3F3F1F1F0F0300 0000000000000000FEFEFEFCFCF8E000 00000000000000000000000000000000 3F3F1F1F0F0300000000000000000000 FCFCF8F8F0C000000000000000000000 3F3F1F1F0F0300003F3F1F1F0F030000 FCFCF8F8F0C00000FCFCF8F8F0C00000