REM ================== REM === INITIALIZE === REM ================== REM TOUCHSCREEN REM WASHAW GAMES COPY $E000,$1000 TO $9000 ISAVE=0 ' GLOBAL IISTAMP,IIPAINT,ISTAMP,IPAINT IISTAMP=16 IIPAINT=0 ISTAMP=0 IPAINT=0 GLOBAL IBG0,IBG1,BGDRAW,BGVIEW IBG0=1 IBG1=1 BGDRAW=0 BGVIEW=2 ' FOR BGI=0 TO 1 BG BGI FOR YY=0 TO 15 CELL 0,YY,0 CELL 19,YY,0 NEXT YY ATTR(0) CELL 19,8,11 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 NEXT BGI CALL PAINTSET(0) CALL STAMPSET(0) REM ================= REM === MAIN LOOP === REM ================= REM 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=8 AND TX=19 AND IISTAMP=208 THEN IIPAINT=-1 CALL PAINTSET(ISTAMP) END IF 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 IF TY=13 THEN ADD BGDRAW,1,0 TO 1 CALL CHANGEDRAWTO CALL DVCHECK(1) WAIT 15 END IF IF TY=15 THEN ADD BGVIEW,1,0 TO 2 CALL CHANGEVIEW CALL DVCHECK(2) WAIT 15 END IF ELSE CALL DRAWCELL(TX,TY) ISAVE=1 WAIT VBL END IF ELSE IF ISAVE=1 THEN PLAY 0,90,1 ISAVE=0 COPY $9000,$1000 TO $E000 END IF END IF WAIT VBL LOOP REM ================== REM === SUBROUTINES=== REM ================== REM SUB CHANGEVIEW FOR BGI=0 TO 1 BG BGI ATTR(0) CELL 18,15,7+BGVIEW NEXT BGI IF BGVIEW=0 THEN DISPLAY (,1,0,,) IF BGVIEW=1 THEN DISPLAY (,0,1,,) IF BGVIEW=2 THEN DISPLAY (,1,1,,) END SUB ' SUB CHANGEDRAWTO FOR BGI=0 TO 1 BG BGI ATTR(0) CELL 18,13,7+BGDRAW NEXT BGI END SUB ' SUB DVCHECK(V) IF BGVIEW<2 THEN IF V=1 THEN BGVIEW=BGDRAW CALL CHANGEVIEW ELSE IF V=2 THEN BGDRAW=BGVIEW CALL CHANGEDRAWTO END IF END IF END SUB ' SUB STAMPSET(V) FOR BGI=0 TO 1 BG BGI CELL 0,ISTAMP,0 ATTR(0) CELL 0,V,2 ATTR (IPAINT) FOR I=0 TO 15 CELL 1,I,I+IISTAMP+(IIPAINT*16) NEXT I NEXT BGI ISTAMP=V END SUB ' SUB PAINTSET(V) FOR BGI=0 TO 1 BG BGI CELL 19,IPAINT,0 ATTR(0) CELL 19,V,3 FOR I=0 TO 7 ATTR (I,,,,) CELL 18,I,4+IIPAINT NEXT I NEXT BGI IPAINT=V CALL STAMPSET(ISTAMP) END SUB ' SUB DRAWCELL(X,Y) BG BGDRAW ATTR(IPAINT) CELL X,Y,ISTAMP+IISTAMP+(IIPAINT*16) END SUB REM ================== REM === DATA FILES === REM ================== REM #1:MAIN PALETTES 003F2A1505383420002E0C04003E3C28 003A3530003B332200382410002F1702 #2:MAIN CHARACTERS 00000000000000000000000000000000 2070A820082A1C080000000000000000 0F0989F989090F000E0E8EFE8E0E0E00 00E020FF20E000000020E03FE0200000 0066FFFFFFFF6600001E000000001E00 0066000000006600001EFFFFFFFF1E00 0066FFFFFFFF6600001EFFFFFFFF1E00 00629092909265000006020202020700 00268212821247000060909090906000 00669292929267000000000000000000 00003C7E3C000000003C5A995A3C0000 00000018180000000000000000000000 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 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 0042667E7E6666000000000000000000 0066767E6E6666000000000000000000 003C666666663C000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000