TOUCHSCREEN REM WASHAW GAMES GLOBAL IISTAMP,IIPAINT,ISTAMP,IPAINT IISTAMP=16 IIPAINT=0 ISTAMP=0 IPAINT=0 CALL PAINTSET(0) CALL STAMPSET(0) ATTR(0) CELL 18,9,1 CELL 19,9,3 CELL 18,11,1 CELL 19,11,2 CELL 18,13,7 CELL 19,13,3 CELL 18,15,9 CELL 19,15,10 IBG0=1 IBG1=1 BGDRAW=0 DO IF TOUCH THEN TX=INT(TOUCH.X/8) TY=INT(TOUCH.Y/8) IF TX<=1 THEN CALL STAMPSET(TY) ELSE IF TX>=18 THEN IF TY<=7 THEN CALL PAINTSET(TY) IF TY=9 THEN ADD IIPAINT,1,0 TO 2 WAIT 15 CALL PAINTSET(IPAINT) END IF IF TY=11 THEN ADD IISTAMP,64,16 TO 209 WAIT 15 CALL STAMPSET(ISTAMP) END IF ELSE REM GOSUB DRAWCELL RTIME=0 LTIME=0 END IF GOTO SKIP IF TX=0 THEN GOSUB CHANGETEXT IF TX=19 THEN GOSUB CHANGECOLOR IF TX=1 THEN ATTR (0,,,,) TEXT 0,ITXT," " ITXT=TY CELL 0,ITXT,2 END IF IF TX=18 AND TY<8 THEN ATTR (0,,,,) TEXT 19,ICLR," " ICLR=TY CELL 19,ICLR,3 END IF IF TX>1 AND TX<18 THEN ATTR (ICLR,,,,) CELL TX,TY,ITXT+TSET+(CSET*16) END IF SKIP: END IF WAIT VBL LOOP SUB STAMPSET(V) CELL 0,ISTAMP,0 ISTAMP=V ATTR(0) CELL 0,ISTAMP,2 ATTR (IPAINT) FOR I=0 TO 15 CELL 1,I,I+IISTAMP+(IIPAINT*16) NEXT I END SUB SUB PAINTSET(V) CELL 19,IPAINT,0 IPAINT=V ATTR(0) CELL 19,IPAINT,3 FOR I=0 TO 7 ATTR (I,,,,) CELL 18,I,4+IIPAINT NEXT I CALL STAMPSET(ISTAMP) END SUB LEFTPANEL: LY=TY IF LY<>OLY THEN LTIME=0 OLY=LY REM TSET=LY SPRITE 1,,LY*8, ADD LTIME,1,0 TO 30 IF LTIME=20 THEN PLAY 0,90,1 WAIT VBL GOSUB CHANGETEXT WAIT VBL END IF RETURN RIGHTPANEL: IF TY<=7 THEN RY=TY IF RY<>ORY THEN RTIME=0 ORY=RY ICLR=RY SPRITE 2,,RY*8, ADD RTIME,1,0 TO 30 IF RTIME=20 THEN PLAY 0,90,1 WAIT VBL GOSUB CHANGECOLOR WAIT VBL END IF ELSE END IF RETURN DRAWCELL: BG BGDRAW ATTR(ICLR) CELL TX,TY,ITXT+TSET+(CSET*16) PLAY 0,20,1 RETURN CHANGETEXT: REM TSET=TSET+64 REM IF TSET>208 THEN TSET=16 NUMBER 5,4,TSET,3 ADD TSET,64,16 TO 208 PLAY 0,90,10 WAIT 15 NUMBER 5,5,TSET,3 GOSUB DRAWTEXT RETURN DRAWTEXT: ATTR (ICLR,,,,) FOR I=0 TO 15 CELL 1,I,I+TSET+(CSET*16) NEXT I WAIT 15 RETURN CHANGECOLOR: CSET=CSET+1 IF CSET>2 THEN CSET=0 FOR I=0 TO 7 ATTR (I,,,,) CELL 18,I,4+CSET NEXT I GOSUB DRAWTEXT RETURN REM #1:MAIN PALETTES 003F2A1505383420002E0C04003E3C28 003A3530003B332200382410002F1702 #2:MAIN CHARACTERS 00000000000000000000000000000000 2070A820082A1C080000000000000000 0F0989F989090F000E0E8EFE8E0E0E00 00E020FF20E000000020E03FE0200000 0066FFFFFFFF6600001E000000001E00 0066000000006600001EFFFFFFFF1E00 0066FFFFFFFF6600001EFFFFFFFF1E00 00629092909265000006020202020700 00268212821247000060909090906000 00669292929267000000000000000000 00003C7E3C000000003C5A995A3C0000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007E7E7E7E7E7E000000000000000000 00003C3C3C3C00000000000000000000 00000018180000000000000000000000 00666618186666000000000000000000 55005500550055000000000000000000 DBDB00DBDB00DBDB0000000000000000 18420099990042180000000000000000 FF818181818181FF0000000000000000 007E424242427E000000000000000000 00003C24243C00000000000000000000 181818FFFF1818180000000000000000 18181818181818180000000000000000 000000FFFF0000000000000000000000 0103060C183060C00000000000000000 80C06030180C06030000000000000000 00000000000000000000000000000000 0000000000000000007E7E7E7E7E7E00 000000000000000000003C3C3C3C0000 00000000000000000000001818000000 00000000000000000066661818666600 00000000000000005500550055005500 0000000000000000DBDB00DBDB00DBDB 00000000000000001842009999004218 0000000000000000FF818181818181FF 0000000000000000007E424242427E00 000000000000000000003C24243C0000 0000000000000000181818FFFF181818 00000000000000001818181818181818 0000000000000000000000FFFF000000 00000000000000000103060C183060C0 000000000000000080C06030180C0603 00000000000000000000000000000000 007E7E7E7E7E7E00007E7E7E7E7E7E00 00003C3C3C3C000000003C3C3C3C0000 00000018180000000000001818000000 00666618186666000066661818666600 55005500550055005500550055005500 DBDB00DBDB00DBDBDBDB00DBDB00DBDB 18420099990042181842009999004218 FF818181818181FFFF818181818181FF 007E424242427E00007E424242427E00 00003C24243C000000003C24243C0000 181818FFFF181818181818FFFF181818 18181818181818181818181818181818 000000FFFF000000000000FFFF000000 0103060C183060C00103060C183060C0 80C06030180C060380C06030180C0603 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFFFFFFF7E3C0000000000000000 00183C7E7E3C18000000000000000000 0000183C3C1800000000000000000000 3C4281818181423C0000000000000000 00182442422418000000000000000000 00001824241800000000000000000000 FF7E3C18183C7EFF0000000000000000 81C3E7FFFFE7C3810000000000000000 7E3C180000183C7E0000000000000000 0081C3E7E7C381000000000000000000 FF7F3F1F0F0703010000000000000000 80C0E0F0F8FCFEFF0000000000000000 FFFEFCF8F0E0C0800000000000000000 0103070F1F3F7FFF0000000000000000 42BD42424242BD420000000000000000 2424DB2424DB24240000000000000000 00000000000000003C7EFFFFFFFF7E3C 000000000000000000183C7E7E3C1800 00000000000000000000183C3C180000 00000000000000003C4281818181423C 00000000000000000018244242241800 00000000000000000000182424180000 0000000000000000FF7E3C18183C7EFF 000000000000000081C3E7FFFFE7C381 00000000000000007E3C180000183C7E 00000000000000000081C3E7E7C38100 0000000000000000FF7F3F1F0F070301 000000000000000080C0E0F0F8FCFEFF 0000000000000000FFFEFCF8F0E0C080 00000000000000000103070F1F3F7FFF 000000000000000042BD42424242BD42 00000000000000002424DB2424DB2424 3C7EFFFFFFFF7E3C3C7EFFFFFFFF7E3C 00183C7E7E3C180000183C7E7E3C1800 0000183C3C1800000000183C3C180000 3C4281818181423C3C4281818181423C 00182442422418000018244242241800 00001824241800000000182424180000 FF7E3C18183C7EFFFF7E3C18183C7EFF 81C3E7FFFFE7C38181C3E7FFFFE7C381 7E3C180000183C7E7E3C180000183C7E 0081C3E7E7C381000081C3E7E7C38100 FF7F3F1F0F070301FF7F3F1F0F070301 80C0E0F0F8FCFEFF80C0E0F0F8FCFEFF FFFEFCF8F0E0C080FFFEFCF8F0E0C080 0103070F1F3F7FFF0103070F1F3F7FFF 42BD42424242BD4242BD42424242BD42 2424DB2424DB24242424DB2424DB2424 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80100240080020000000000000000000 80042000080042000000000000000000 80020000080040000000000000000000 00422400002442000000000000000000 00244200004224000000000000000000 00101000C60010100000000000000000 00080800224100000000000000000000 00008244001010000000000000000000 0008102A540810000000000000000000 00021428142840000000000000000000 001008542A1008000000000000000000 00402814281402000000000000000000 24428100008142240000000000000000 81422400002442810000000000000000 10081045A20810080000000000000000 28100182418008140000000000000000 00000000000000008010024008002000 00000000000000008004200008004200 00000000000000008002000008004000 00000000000000000042240000244200 00000000000000000024420000422400 000000000000000000101000C6001010 00000000000000000008080022410000 00000000000000000000824400101000 00000000000000000008102A54081000 00000000000000000002142814284000 0000000000000000001008542A100800 00000000000000000040281428140200 00000000000000002442810000814224 00000000000000008142240000244281 000000000000000010081045A2081008 00000000000000002810018241800814 80100240080020008010024008002000 80042000080042008004200008004200 80020000080040008002000008004000 00422400002442000042240000244200 00244200004224000024420000422400 00101000C600101000101000C6001010 00080800224100000008080022410000 00008244001010000000824400101000 0008102A540810000008102A54081000 00021428142840000002142814284000 001008542A100800001008542A100800 00402814281402000040281428140200 24428100008142242442810000814224 81422400002442818142240000244281 10081045A208100810081045A2081008 28100182418008142810018241800814 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 003C303030303C000000000000000000 000C183030180C000000000000000000 00000C1830180C000000000000000000 000030180C1830000000000000000000 0030180C0C1830000000000000000000 003C0C0C0C0C3C000000000000000000 00626408102646000000000000000000 000024187E1824000000000000000000 00083E380E3E08000000000000000000 00247E24247E24000000000000000000 003C666E6E603C000000000000000000 001C34386E643A000000000000000000 003C660C180018000000000000000000 0066663C181818000000000000000000 007E1818181818000000000000000000 003C181818183C000000000000000000 0000000000000000003C303030303C00 0000000000000000000C183030180C00 000000000000000000000C1830180C00 0000000000000000000030180C183000 00000000000000000030180C0C183000 0000000000000000003C0C0C0C0C3C00 00000000000000000062640810264600 0000000000000000000024187E182400 000000000000000000083E380E3E0800 000000000000000000247E24247E2400 0000000000000000003C666E6E603C00 0000000000000000001C34386E643A00 0000000000000000003C660C18001800 00000000000000000066663C18181800 0000000000000000007E181818181800 0000000000000000003C181818183C00 003C303030303C00003C303030303C00 000C183030180C00000C183030180C00 00000C1830180C0000000C1830180C00 000030180C183000000030180C183000 0030180C0C1830000030180C0C183000 003C0C0C0C0C3C00003C0C0C0C0C3C00 00626408102646000062640810264600 000024187E182400000024187E182400 00083E380E3E080000083E380E3E0800 00247E24247E240000247E24247E2400 003C666E6E603C00003C666E6E603C00 001C34386E643A00001C34386E643A00 003C660C18001800003C660C18001800 0066663C181818000066663C18181800 007E181818181800007E181818181800 003C181818183C00003C181818183C00