TOUCHSCREEN DIM CTOUCH(1,1) DIM ATOUCH(1,1) GLOBAL ISET GLOBAL SETMAX GLOBAL IMODE SETMAX=4 ISET=SETMAX-1 IMODE=0 CALL UPSET ATTR(0) CELL 16,0,132 CELL 17,0,133 CELL 16,1,148 CELL 17,1,149 ITOUCH=0 DO IF TOUCH THEN DIV=8+(8*IMODE) DX=TOUCH.X\DIV DY=TOUCH.Y\DIV TX=TOUCH.X\8 TY=TOUCH.Y\8 MM=1+IMODE IF ITOUCH=0 THEN IF TX>15 AND TY<2 THEN ITOUCH=-1 PLAY 0,90,1 ELSE ITOUCH=1 REM SPRITE 0,DX*DIV,DY*DIV, SPRITE 0,TX*8,TY*8, FOR IY=0 TO IMODE FOR IX=0 TO IMODE REM CTOUCH(IX,IY)=CELL.C(DX*MM+IX,DY*MM+IY) REM ATOUCH(IX,IY)=CELL.A(DX*MM+IX,DY*MM+IY) CTOUCH(IX,IY)=CELL.C(TX+IX,TY+IY) ATOUCH(IX,IY)=CELL.A(TX+IX,TY+IY) NEXT IX NEXT IY END IF ELSE IF ITOUCH=1 AND TY>1 THEN REM SPRITE 1,DX*DIV,DY*DIV, SPRITE 1,TX*8,TY*8, END IF ELSE IF ITOUCH=1 THEN ITOUCH=0 SPRITE 0,200,200, SPRITE 1,200,200, IF TY>1 THEN FOR IY=0 TO IMODE FOR IX=0 TO IMODE ATTR(ATOUCH(IX,IY)) REM CELL DX*MM+IX,DY*MM+IY,CTOUCH(IX,IY) CELL TX+IX,TY+IY,CTOUCH(IX,IY) NEXT IX NEXT IY END IF ELSE IF ITOUCH= -1 THEN IF TX<18 THEN PLAY 0,80,1 CALL UPSET ELSE END IF ITOUCH=0 END IF END IF WAIT VBL LOOP SUB UPSET ISET=(ISET+1) MOD SETMAX IF ISET<=1 THEN IMODE=0 ELSE IMODE=1 IF IMODE=0 THEN SPRITE 0,200,200,129 SPRITE 1,200,200,129 SPRITE.A 0,(0,0,0,1,0) SPRITE.A 1,(0,0,0,1,0) ELSE IF IMODE=1 THEN SPRITE 0,200,200,130 SPRITE 1,200,200,130 SPRITE.A 0,(0,0,0,1,1) SPRITE.A 1,(0,0,0,1,1) END IF CALL NEWSET END SUB SUB NEWSET ATTR(ISET) SS=ISET*32 FOR IX=0 TO 15 CELL IX,0,IX+SS CELL IX,1,IX+16+SS NEXT IX END SUB #1:MAIN PALETTES 043F2A0000070824003A252A002F2A15 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000AA000000000000FF55FF0000 00100010001000103828382838283828 000000000A1000100000001F352F3C28 00000000A0100010000000F058E87828 001000100A00000038283C2F351F0000 00100010A0000000382878E858F00000 00100010AA100010382838EF55EF3828 00000000AA100010000000FF55EF3828 001000100A1000103828382F352F3828 00100010AA000000382838EF55FF0000 00100010A0100010382838E858E83828 0000FF00AA00FF00FFFF00FF55FF00FF 4454445444544454BBABBBABBBABBBAB 4454C710AA10C754BBAB38EF55EF38AB 4444C7000000C7448383000000000083 00000000000000000000000000000000 0000AAFFAAFFAA000000AAFFAAFFAA00 287C287C287C287C287C287C287C287C 0000021F32272E7C0000021F32272E7C 000080F098E8A87C000080F098E8A87C 287C2E27321F0200287C2E27321F0200 28FCE8C898F0800028FCE8C898F08000 287C2838AA38287C287C28FF7DFF287C 001082FFAAFF82103828BAFFBAFFBA28 287CAAFFAAFFAA7C287CAAFFAAFFAA7C 287CFF38AA38FF7CFFFF28FF7DFF28FF 4454C6FFEEFFC654BBABBBFFBBFFBBAB 0000AAFFAAFFAA00FFFFAAFFAAFFAAFF 287C287C287C287CABFFABFFABFFABFF 287CAAFFAAFFAA7CABFFAAFFAAFFAAFF 00000000000000000000000000000000 00000000000000000000000000000000 000000FFFFFF00000000000000000000 38383838383838380000000000000000 0000001F3F3F3C380000000000000000 000000F0F8F878380000000000000000 38383C3F3F1F00000000000000000000 383878F8F8F000000000000000000000 383838FFFFFF38380000000000000000 000000FFFFFF38380000000000000000 3838383F3F3F38380000000000000000 383838FFFFFF00000000000000000000 383838F8F8F838380000000000000000 00000000000000000030300006666000 00000000000000002004001280084001 0000000000000000FFCFCFFFF9999FFF 0000000000000000DFFBFFED7FF7BFFE 00000000000000000000000000000000 000000FFFFFF0000000000FFFFFF0000 38383838383838383838383838383838 0000001F3F3F3C380000001F3F3F3C38 000000F0F8F87838000000F0F8F87838 38383C3F3F1F000038383C3F3F1F0000 383878F8F8F00000383878F8F8F00000 383838FFFFFF3838383838FFFFFF3838 000000FFFFFF3838000000FFFFFF3838 3838383F3F3F38383838383F3F3F3838 383838FFFFFF0000383838FFFFFF0000 383838F8F8F83838383838F8F8F83838 00000000000010000000000010381000 00000000040040000000040E44E04000 0000000000101000001038387C101000 0000000000181818183C7EFF7E181818 01013939012121FF01010141712121FF 00001C1C001010FF00000020381010FF 017D7D7D7D0121FF0101818181F921FF 003E3E3E3E0010FF00004040407C10FF 0000003F3F3F3FBC00000000404040C3 000000F0F0F0F01F00000000000000FF 01013F2E2E2020E001013F20303C20E0 0000FC3C3C0404070000FC0444740407 01013839012121FF00020341712121FF C0C01C1C001010FF00008020381010FF 00000F0F0F0F00FF0000001010101FFF 0000F0F0F0F000FF000000000000E0FF 00787800202020F8000080F1212121F9 0000E0E0E00080000000000000C0C0C0 00003F3F3F00002A00000040407F7F7F 0000FEFEFE0000A80000000000FCFCFC 21212171710101012121210181E10101 10103838000000001010004070000000 21217D7D7D7D0101212101818181F901 103E3E3E3E00000010004040407C0000 BFBF87FFFF010101C3C3FFFFFF010101 F0E0E0E0E0000000F0E0E0E0E0000000 20202E2E203F0101202020303C3F0101 04043C3C04FC00000404044474FC0000 22222272720707002222220282E0080E 10103838000000001010004070000000 0F0F0F0F00000000001010101F000000 F0F0F0F00000000000000000E0000000 3838383838383F003939393939383F00 800086068088F800C0C0C0C8CC88F800 002A0001000000007F7F7F7F00000000 00A800C080808080FCFCFCFC80808080 01010103030303FB01010100000504FC 000000F8F8F8F8FF0000000080C08007 01010103030303FB01010100000404FC 000000F8F8F8F8FF00000000C0A0C087 00000003030303030000000000040404 000000F8F8F8F8F800000000E080E080 00000003030303030000000000040404 000000F8F8F8F8F80000006080408060 00000003030303030000000001050404 000000F8F8F8F8F8000000005050A000 003800000000007F007C00003200007F 00000000000000FE00000404A40000FE 01010100303030F001010100303138F7 00E0E0000606060700E0E0808606BE47 01010301010020F801010301010020F8 000080000000041F000080000000041F 20FAF8F90F01010127FFFFFF0F010101 02AF0FCFF8800000F2FFFFFFF8800000 00020000000707010707070700070701 00A0008080F0F000F0F0F0F080F0F000 00020001010101010707070701010101 00A000C0C0C0C0C0F0F0F0F0C0C0C0C0 03000001010101010407070701010101 F800A0000000000000F0F0F000000000 00020000000101010707070700010101 0020008080800000F0F0F0F080800000 7F405540407F0101705F5F5F407F0101 FE02528282FC000002FAFAFA82FC0000 00004000000F0F0100002E11020F0F01 00000000000200002020D00808040000 20000001010301012000000101030101 04000000008000000400000000800000 00000000000000000000000000000000 FF818181818181FF0000000000000000 FF808080808080800000000000000000 FF010101010101010000000000000000 0F30404C92959695000F3F336D6E6F6F F00C023050D0D05000F0FCCEBF3F3FBF 0F30434485858584000F3C3B7B7B7B7F F00CE210906000C000F01CFEFFFFFF3F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FF0000000000000000 01010101010101FF0000000000000000 14141C000040300FEFEFEFFF7F7F3F0F 9151710102020CF0FFFFFFFFFEFEFCF0 020100030443300FFFFFFFFC7B7F3F0F 2191519122C20CF0DFFFFF7FFEFEFCF0