RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT SCROLL 0,-4,-4 DIM MAP(8,8) X2=0 Y2=0 CELL SIZE 1,1 SPRITE 0,,,32 SPRITE 1,,,32 SPRITE 0 SIZE 1 SPRITE 1 SIZE 1 XSPR=0 YSPR=0 XSPR1=144 YSPR1=0 NEWGAME: IWIN=0 REPLAY: FOR I=1 TO 32 C=99 BG 1 WHILE C<>0 X1=RND(7)+1 Y1=RND(7) C=CELL.C(X1,Y1) WEND C=99 WHILE C<>0 OR (X1=X2 AND Y1=Y2) X2=RND(7)+1 Y2=RND(7) C=CELL.C(X2,Y2) WEND R=RND(2) P=RND(6)+1 C=(RND(6)+1)*2 N=RND(6)+1 P2=RND(6)+1 C2=(RND(6)+1)*2 N2=RND(6)+1 BG 1 PAL P CELL X1,Y1,C BG 0 PAL 0 NUMBER X1*2,Y1*2,N,1 IF R=0 THEN N2=N ELSE IF R=1 THEN C2=C ELSE IF R=2 THEN P2=P END IF BG 1 PAL P2 CELL X2,Y2,C2 BG 0 PAL 0 NUMBER X2*2,Y2*2,N2,1 PLAY 0,RND(20)+20,1 SOUND 0 WAIT 30 NEXT I FOR S=20 TO 40 STEP 2 PLAY 0,S,1 SOUND 0 WAIT 5 NEXT S WAIT 15 PLAY 0,40,10 SOUND 0 WAIT 15 PLAY 0,40,10 SOUND 0 WAIT 15 SPRITE 0,XSPR,YSPR, SPRITE 1,XSPR1,YSPR1, ITOUCH=0 DO IF TOUCH THEN TX=TOUCH.X\16 TY=TOUCH.Y\16 IF ITOUCH=0 THEN PX=TX PY=TY BG 1 C=CELL.C(TX,TY) P=CELL.A(TX,TY) BG 0 N=CELL.C(TX*2,TY*2)-208 TRACE TX,TY,P,C,N ITOUCH=1 SPRITE 0,TX*16,TY*16, PLAY 0,30,1 SOUND 0 WAIT 15 PLAY 0,29,1 SOUND 0 ELSE IF ITOUCH=1 THEN PX1=TX PY1=TY BG 1 C1=CELL.C(TX,TY) P1=CELL.A(TX,TY) BG 0 N1=CELL.C(TX*2,TY*2)-208 TRACE TX,TY,P1,C1,N1 ITOUCH=2 SPRITE 1,TX*16,TY*16, PLAY 0,32,1 SOUND 0 WAIT 15 PLAY 0,31,1 SOUND 0 ITOUCH=2 END IF ELSE IF ITOUCH=2 THEN WAIT 30 ITOUCH=0 IDO=0 IF P=P1 AND C<>C1 AND N<>N1 THEN IDO=1 IF P<>P1 AND C=C1 AND N<>N1 THEN IDO=1 IF P<>P1 AND C<>C1 AND N=N1 THEN IDO=1 SPRITE 0,XSPR,YSPR, SPRITE 1,XSPR1,YSPR1, IF IDO=0 THEN PLAY 0,20,10 SOUND 0 ELSE PLAY 0,35,15 SOUND 0 BG 1 CELL PX,PY,0 CELL PX1,PY1,0 BG 0 CELL PX*2,PY*2,0 CELL PX1*2,PY1*2,0 END IF WAIT 30 END IF WAIT VBL LOOP #1:MAIN PALETTES 0000003F003B3400003C0C0000383C00 000C2A15002F2A1500362A15001B2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 0000071F1F3F3F3F0000000000000000 0000E0F8F8FCFCFC0000000000000000 000103070F1F3F7F0000000000000000 0080C0E0F0F8FCFE0000000000000000 00003F3F3F3F3F3F0000000000000000 0000FCFCFCFCFCFC0000000000000000 0060783F3F1F1F1F0000000000000000 00061EFCFCF8F8F80000000000000000 0001011B1F0F1F7F0000000000000000 008080D8F8F0F8FE0000000000000000 003C7E7E7F7F3F0F0000000000000000 003C7E7EFEFEFCF00000000000000000 00552A5F3F5F3F5F0000000000000000 00AA54FAFCFAFCFA0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F3F3F1F1F0700000000000000000000 FCFCFCF8F8E000000000000000000000 7F3F1F0F070301000000000000000000 FEFCF8F0E0C080000000000000000000 3F3F3F3F3F3F00000000000000000000 FCFCFCFCFCFC00000000000000000000 1F1F1F3F3F7860000000000000000000 F8F8F8FCFC1E06000000000000000000 7F1F0F1F1B0101000000000000000000 FEF8F0F8D88080000000000000000000 0F3F7F7F7E7E3C000000000000000000 F0FCFEFE7E7E3C000000000000000000 5F3F5F3F5F2A55000000000000000000 FAFCFAFCFA54AA000000000000000000 07182040408080800718204040808080 E018040202010101E018040202010101 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808040402018078080804040201807 01010102020418E001010102020418E0 #15:MAIN SOUND 280031661000B0001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000