TOUCHSCREEN RANDOMIZE TIMER REM WAS8BIT SPRITE 1,,,65 SPRITE 2,,,65 SPRITE 1 SIZE 1 SPRITE 2 SIZE 1 CELL SIZE 1,1 CELL SIZE 0,1 DIM GLOBAL ITEM(15),IPAL(15),XDIR(3),YDIR(3) GLOBAL C1,C2,XT1,YT1,XT2,YT2,ITRACE FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 1,0,0,1,-1,0,0,-1 FOR I=1 TO 15 READ ITEM(I) IPAL(I)=RND(7) NEXT I DATA 2,4,6,8,10,12,14,32,34,36,38,40,42,44,46 BG 1 NEWGAME: CELL 4,3,73 WAIT 120 ILEVEL=0 CLS LEVELUP: SPRITE OFF INC ILEVEL CELL 3,3,94+ILEVEL*2 WAIT 120 CELL 5,3,75 WAIT 120 BG 1 CLS R=RND(15)+1 FOR I=1 TO 48 STEP 2 ADD R,1,1 TO 15 CALL POPIT(R) CALL POPIT(R) NEXT I DONEXT: ITOUCH=0 SPRITE OFF WSPR=0 ISPR=65 ITRACE=0 DO IF TAP THEN TX=TOUCH.X\16 TY=TOUCH.Y\16 BG 1 C=CELL.C(TX,TY) IF C>0 THEN INC ITOUCH IF ITOUCH=1 THEN XT1=TX YT1=TY C1=CELL.C(TX,TY) SPRITE 1,TX*16,TY*16, PLAY 0,60,10 SOUND 0 ELSE IF ITOUCH=2 THEN XT2=TX YT2=TY C2=CELL.C(TX,TY) SPRITE 2,TX*16,TY*16, PLAY 0,60,5 SOUND 0 GOTO CHECK ITOUCH=3 END IF ELSE IF ITOUCH=1 THEN BG 0 PAL 0 CELL TX,TY,71 ITRACE=1 PLAY 0,50,1 SOUND 2 END IF END IF END IF ADD WSPR,1,0 TO 4 IF WSPR=0 THEN ADD ISPR,2,65 TO 69 SPRITE 1,,,ISPR SPRITE 2,,,ISPR END IF WAIT VBL LOOP CHECK: DREC$="" BG 1 FOR I=1 TO 60 ADD WSPR,1,0 TO 1 IF WSPR=0 THEN ADD ISPR,2,65 TO 69 SPRITE 1,,,ISPR SPRITE 2,,,ISPR END IF WAIT VBL NEXT I IF ABS(XT1-XT2)=1 AND YT1-YT2=0 AND C1=C2 THEN CELL XT1,YT1,0 CELL XT2,YT2,0 PLAY 0,65,10 SOUND 0 ELSE IF ABS(YT1-YT2)=1 AND XT1-XT2=0 AND C1=C2 THEN CELL XT1,YT1,0 CELL XT2,YT2,0 PLAY 0,65,10 SOUND 0 ELSE IF ITRACE=0 OR (XT1=XT2 AND YT1=YT2) THEN PLAY 0,70,10 SOUND 1 ITRACE=0 END IF END IF IF ITRACE=1 THEN BG 0 X=XT1 Y=YT1 XX=0 YY=0 DX=0 DY=0 CX=0 CY=0 IGO=1 WHILE IGO=1 IGO=0 FOR I=0 TO 3 BG 1 CCC=CELL.C(X+XDIR(I),Y+YDIR(I)) IF CCC=C1 AND X+XDIR(I)=XT2 AND Y+YDIR(I)=YT2 THEN CX=XT2 CY=YT2 DREC$=DREC$+STR$(I) END IF BG 0 CC=CELL.C(X+XDIR(I),Y+YDIR(I)) IF CC>0 THEN XX=X+XDIR(I) YY=Y+YDIR(I) DREC$=DREC$+STR$(I) CELL XX,YY,0 PLAY 0,40,1 SOUND 2 WAIT 6 IGO=1 END IF NEXT I X=XX Y=YY WEND TRACE "TRICK" IF CX=XT2 THEN TRICK=0 FOR I=1 TO LEN(DREC$)-1 V1=VAL(MID$(DREC$,I,1)) V2=VAL(MID$(DREC$,I+1,1)) IF V1<>V2 THEN INC TRICK NEXT I IF TRICK<3 THEN BG 1 CELL XT1,YT1,0 CELL XT2,YT2,0 PLAY 0,65,10 SOUND 0 TRACE "YES" ELSE PLAY 0,70,10 SOUND 1 TRACE "NO" END IF END IF END IF CLS 0 BG 1 T=0 FOR Y=1 TO 6 FOR X=1 TO 8 ADD T,CELL.C(X,Y) NEXT X NEXT Y IF T=0 THEN GOTO LEVELUP GOTO DONEXT SUB POPIT(R) BG 1 C=1 WHILE C>0 X=RND(7)+1 Y=RND(5)+1 C=CELL.C(X,Y) WEND PAL IPAL(R) CELL X,Y,ITEM(R) END SUB #1:MAIN PALETTES 003F300C003C2814003F3B1F002E0C08 003B3020000F0A050033221100303C0C #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00061E0C20737777000101331F0C0808 0060783004CEEEEE008080CCF8301010 000101331F0C080800061E0C20737777 008080CCF83010100060783004CEEEEE 0001222440400000000001133F332D3F 00800408000000000000C0E4FE9E6CFC 000000000103070F0000000000000000 003C4E4642427C00000030B8BCBC80F8 00010103077D7D3D0000000000000000 00000080C07C7C780000000000000000 00070F1F237C7BFB00070F1F237071F1 00E0F0F8C43EDEDF00E0F0F8C40E8E8F 000123377F79363F0000000000000000 0080C4ECFECEB4FC0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 6703000D1D1F0F00187C7F7020000000 E6C000B0B8F8F000183EFE0E04000000 187C7F30200000006703000D1D1F0F00 183EFE0C04000000E6C000B0B8F8F000 0000013B7FFDF9701F07013A46BCB970 000080F8FCFEFE7CF8E0807844BEBE7C 1E1D1B172F5020000102040810204000 F0E0C080000000000000000000000000 1F0F1F1F3E3860000000000000000000 F0E0F0F0F8380C000000000000000000 FFFF7F0F0F1F1F0FF1FF780303191C0E FFFFFEF0FCFEFEFC8FFF1EC08C3E7E7C 1F07011F3F7F7F3E0000011E227D7D3E F8E080DCFEBF9F0E0000805C623D9D0E 003C7E7F7F7F3F1F00000C1D3D3D011F 0000000080C0E0F00000000000000000 030F1C1932323232000003060D0D0D0D C0F00888444444440000F070B8B8B8B8 00000010103001010018384B4B4F7F67 0010284482442810007CFEFEFEFEFEFE 00000003090F0F0F00070F0C1630300C 000E0E7EFEBC0CF800C0F0180644FC18 0000071F3F2B6B7F0000000000000000 0000C0F0F8F8FCBC0000000000000000 00000000000C0A0A00070F1F237071F1 000000000030505000E0F0F8C40E8E8F 00071F3F3F7F7F7F00061E0C20737777 00E0F8FCFCFEFEFE0060783004CEEEEE 00366B5D3E5D6B77003E7F7F7F7F7F7F 00181CDADAFE7E6600181CD2D2F2FEE6 0F070301000000000000000000000000 F8F8F8F8FC0E06008040201008040200 3232303011100C030D0D0F0F0E0F0300 44444444880830C0B8B8B8B870F0C000 020202050F00000047070F1F1F0C1C00 10A8FC0000000000FEFEFEFEFE0C1C00 3E3E3F0C101010003F2323036F6F6E40 B0A0F00808080000F0F0F2F6F6F60000 554141202A1F03002A3E3E1F15000000 7C6E9EFEFCF0E0000000000000000000 0E00070C0E030101F1FF7F0F3F7F7F3F 7000E0303060C0808FFFFEF0F0F8F8F0 7F7F7F3D3D1F0F006703000D1D1F0F00 FEFEFEBCBCF8F000E6C000B0B8F8F000 776A407F7F3038007F7F7F7F7F303800 A2A0B05808303800E2E0F0F8F8303800 00000038000000000000102810000000 6D80800080800080DB00808000808000 B6010100010100016D01000101000101 DB00808000808000B680008080008080 6D01000101000101DB00010100010100 B6800080800080806D80800080800080 DB00010100010100B601010001010001 000000100814327F000103070111317E 00000010205098FC000080C0001018FC CE294E89EE00898A0000000000000000 56512224270087480000000000000000 00FF00FF006454640000000000000000 00FF00FF00EAAAE40000000000000000 648AEEAA4A0000650000000000000000 8BDAAB8A8B00006E0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 800080800080806D80800080800080B6 01000101000101B600010100010100DB 80800080800080B600808000808000DB 00010100010100DB010100010100016D 00808000808000DB800080800080806D 010100010100016D01000101000101B6 32140810000000003111010703010000 9850201000000000181000C080000000 AB52004EA94EA94E0000000000000000 C4580077222222720000000000000000 444600FF00FF00000000000000000000 A4A400FF00FF00000000000000000000 F59595959595F5620000000000000000 6E49496E4E4969690000000000000000 00000000000000000000000000000000 9A929A91D80001000000000000000000 5A525A529B0080800000000000000000 9A929A91D80003040000000000000000 5A525A529B00C0200000000000000000 9A929A91D80003040000000000000000 5A525A529B00C0200000000000000000 9A929A91D80004040000000000000000 5A525A529B0020200000000000000000 9A929A91D80007040000000000000000 5A525A529B00E0000000000000000000 9A929A91D80003040000000000000000 5A525A529B00C0200000000000000000 9A929A91D80007000000000000000000 5A525A529B00E0200000000000000000 9A929A91D80003040000000000000000 5A525A529B00C0200000000000000000 00000000000003000000000000000000 808080808080E0000000000000000000 00000304040407000000000000000000 2020C0000000E0000000000000000000 00000100000403000000000000000000 2020C0202020C0000000000000000000 04040700000000000000000000000000 2020E020202020000000000000000000 04040700000403000000000000000000 0000C0202020C0000000000000000000 04040704040403000000000000000000 0000C0202020C0000000000000000000 00000000000000000000000000000000 20202020202020000000000000000000 04040304040403000000000000000000 2020C0202020C0000000000000000000 #15:MAIN SOUND 1800005410F900001800006614F90000 1800F033100000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000