TOUCHSCREEN BG 1 CALL SETPAL(0) PAL 0 IPAL=0 DO IF TOUCH THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 IF TY<=1 THEN P=TX\2-1 IF P>=-1 AND P<=7 THEN CALL SETPAL(P) IF P>=0 THEN PAL P ELSE PAL 0 IPAL=P END IF ELSE TC=CELL.C(TX,TY) TA=CELL.A(TX,TY) IF IPAL>=0 THEN PAL IPAL CELL TX,TY,2 REM PLAY 0,90,1 ELSE CELL TX,TY,0 REM PLAY 1,80,1 END IF FOR Y=2 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) A=CELL.A(X,Y) IF C>0 THEN CU=CELL.C(X,Y-1) CD=CELL.C(X,Y+1) CL=CELL.C(X-1,Y) CR=CELL.C(X+1,Y) AU=CELL.A(X,Y-1) AD=CELL.A(X,Y+1) AL=CELL.A(X-1,Y) AR=CELL.A(X+1,Y) IF CU>0 AND AU=A THEN CU$="1" ELSE CU$="0" IF CD>0 AND AD=A THEN CD$="1" ELSE CD$="0" IF CL>0 AND AL=A THEN CL$="1" ELSE CL$="0" IF CR>0 AND AR=A THEN CR$="1" ELSE CR$="0" CC$=CU$+CR$+CD$+CL$ PAL A IF CC$="0000" THEN CELL X,Y,2 IF CC$="0101" THEN CELL X,Y,4 IF CC$="1010" THEN CELL X,Y,6 IF CC$="0110" THEN CELL X,Y,8 IF CC$="0011" THEN CELL X,Y,10 IF CC$="1001" THEN CELL X,Y,12 IF CC$="1100" THEN CELL X,Y,14 IF CC$="1111" THEN CELL X,Y,32 IF CC$="1000" THEN CELL X,Y,34 IF CC$="0100" THEN CELL X,Y,36 IF CC$="0010" THEN CELL X,Y,38 IF CC$="0001" THEN CELL X,Y,40 IF CC$="0111" THEN CELL X,Y,42 IF CC$="1011" THEN CELL X,Y,44 IF CC$="1101" THEN CELL X,Y,46 IF CC$="1110" THEN CELL X,Y,64 END IF NEXT X NEXT Y END IF END IF WAIT VBL LOOP SUB SETPAL(IPAL) BG 0 FOR I=-1 TO 7 IF I<0 THEN PAL 0 ELSE PAL I IF I=IPAL THEN B=2 ELSE B=0 IF I<0 THEN B=B+4 X=I*2+2 CELL X,0,66+B CELL X+1,0,67+B CELL X,1,82+B CELL X+1,1,83+B NEXT I BG 1 END SUB #1:MAIN PALETTES 003B3020003C281400382420002E0C08 002F0F0A001F0B07002B2312003B3322 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FFFFC3C3C3C3FFFF00013F3F3F3F3F7F FFFF0303030303030001FFFFFFFFFFFF FFFF00000000FFFF0000FFFFFFFFFFFF FFFF0000000000000000FFFFFFFFFFFF C3C3C3C3C3C3C3C33F3F3F3F3F3F3F3F 0303030303030303FFFFFFFFFFFFFFFF FFFEC0C0C0C0C08000013F3F3F3F3F7F FFFF0000000000000000FFFFFFFFFFFF FFFF0303030303010001FFFFFFFFFFFF FFFF0303030303030000FFFFFFFFFFFF 0103030303037FFFFFFFFFFFFFFFFFFF 0303030303030303FFFFFFFFFFFFFFFF C0C0C0C0C0C0FEFF3F3F3F3F3F3F3F7F 0000000000000000FFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000010000000000000001 C0C0C0C0C0C0FFFF3F3F3F3F3F3F3F7F 030303030303FFFFFFFFFFFFFFFFFFFF 000000000000FFFFFFFFFFFFFFFFFFFF 000000000000FFFFFFFFFFFFFFFFFFFF C0C0C0C0C0C0C0C03F3F3F3F3F3F3F3F 0303030303030303FFFFFFFFFFFFFFFF C0C0C0C0C0C0C0C03F3F3F3F3F3F3F3F 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0303030303030303FFFFFFFFFFFFFFFF 000000000000FFFFFFFFFFFFFFFFFFFF 030303030303FFFFFFFFFFFFFFFFFFFF C0C0C0C0C0C0FFFF3F3F3F3F3F3F3F7F 000000000000FFFFFFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 80C1C3C3C3C3FFFF7F3F3F3F3F3F3F7F 0001030303030303FFFFFFFFFFFFFFFF FFFEC0C0C0C0FEFF00013F3F3F3F3F7F FFFE0000000000000001FFFFFFFFFFFF FFFFC3C3C3C3C3C100013F3F3F3F3F3F FFFF0303030303030001FFFFFFFFFFFF FF7F030303037FFF0081FFFFFFFFFFFF FFFF0303030303030001FFFFFFFFFFFF FF7F0000000000000080FFFFFFFFFFFF FFFE0000000000000001FFFFFFFFFFFF 0103030303030301FFFFFFFFFFFFFFFF 0001030303030303FFFFFFFFFFFFFFFF 0000000000007EFFFFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF C0C0C0C0C0C0FFFF3F3F3F3F3F3F3F7F 030303030303FFFFFFFFFFFFFFFFFFFF C0C0C0C0C0C0FFFF3F3F3F3F3F3F3F7F 000000000000FEFFFFFFFFFFFFFFFFFF C0C0C0C0C0C0C0803F3F3F3F3F3F3F7F 0303030303030301FFFFFFFFFFFFFFFF 0000000000003F7FFFFFFFFFFFFFFFFF 030303030303FFFFFFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 0303030303030301FFFFFFFFFFFFFFFF 0000000000003F7FFFFFFFFFFFFFFFFF 000000000000FEFFFFFFFFFFFFFFFFFF 80C0C0C0C0C0C0807F3F3F3F3F3F3F7F 0000000000000000FFFFFFFFFFFFFFFF 00030E1830206040000001070C181030 00C070180C040602000080E03018080C 00030E1830206040000001070F1F1F3F 00C070180C040202000080E0F0F8FEFE 00020A10200060000000000408100000 00405008040006000000002010080000 00020A10200060000000000408140201 00405008040006000000002010284000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C0C0C0C0C0C0C0803F3F3F3F3F3F3F7F 0000000000000000FFFFFFFFFFFFFFFF 40602030180E03003010180C07010000 0206040C1870C0000C081830E0800000 40402030180E03003F3F3F3F1F0F0300 0206040C1870C000FEFEFCFCF8F0C000 00600020100A02000000100804000000 00060004085040000000081020000000 00600020100A02000002140804000000 00060004085040008040281020000000