BG COPY 0,0,20,16 TO 0,0 TOUCHSCREEN 'CHECK FOR BUTTON PRESSES DO WHILE TOUCH IF TOUCH.X<16 AND TOUCH.Y>112 THEN GOTO ROADBUTTON END IF IF TOUCH.X<32 AND TOUCH.X>16 AND TOUCH.Y>112 THEN GOTO REMOVEBUTTON END IF WEND LOOP ROADBUTTON: PAL 1 CELL 2,14,3 CELL 3,14,4 CELL 2,15,19 CELL 3,15,20 PAL 2 CELL 0,14,1 CELL 1,14,2 CELL 0,15,17 CELL 1,15,18 GOTO ROADPLACEMENT REMOVEBUTTON: PAL 1 CELL 0,14,1 CELL 1,14,2 CELL 0,15,17 CELL 1,15,18 PAL 2 CELL 2,14,3 CELL 3,14,4 CELL 2,15,19 CELL 3,15,20 GOTO ROADREMOVE ROADPLACEMENT: DO PAL 0 WHILE TOUCH 'VARIABLES X=TOUCH.X Y=TOUCH.Y C=CELL.C(X/8,Y/8) R=CELL.C((X+8)/8,Y/8) L=CELL.C((X-8)/8,Y/8) D=CELL.C(X/8,(Y+8)/8) U=CELL.C(X/8,(Y-8)/8) RGROUP=(R=31 OR R=44 OR R=45 OR R=60 OR R=61 OR R=63 OR R=30) LGROUP=(L=31 OR L=46 OR L=47 OR L=61 OR L=62 OR L=63 OR L=30) DGROUP=(D=15 OR D=45 OR D=46 OR D=60 OR D=61 OR D=62 OR D=30) UGROUP=(U=15 OR U=44 OR U=47 OR U=60 OR U=62 OR U=63 OR U=30) 'ROAD PERMUTATIONS IF C=22 THEN IF UGROUP AND RGROUP AND DGROUP AND LGROUP THEN CELL X/8,Y/8,30 ELSE IF UGROUP AND LGROUP AND DGROUP THEN CELL X/8,Y/8,60 ELSE IF LGROUP AND UGROUP AND RGROUP THEN CELL X/8,Y/8,61 ELSE IF UGROUP AND RGROUP AND DGROUP THEN CELL X/8,Y/8,62 ELSE IF LGROUP AND RGROUP AND DGROUP THEN CELL X/8,Y/8,63 ELSE IF DGROUP AND LGROUP THEN CELL X/8,Y/8,44 ELSE IF UGROUP AND LGROUP THEN CELL X/8,Y/8,45 ELSE IF UGROUP AND RGROUP THEN CELL X/8,Y/8,46 ELSE IF DGROUP AND RGROUP THEN CELL X/8,Y/8,47 ELSE IF RGROUP AND LGROUP THEN CELL X/8,Y/8,31 ELSE CELL X/8,Y/8,15 END IF 'FLIPPING ROADS IF TAP AND C=15 THEN CELL X/8,Y/8,31 IF TAP AND C=31 THEN CELL X/8,Y/8,15 IF TOUCH.X<16 AND TOUCH.Y>112 THEN GOTO ROADBUTTON END IF 'CHECKING FOR BUTTON PRESSES IF TOUCH.X<32 AND TOUCH.X>16 AND TOUCH.Y>112 THEN GOTO REMOVEBUTTON END IF WEND LOOP RETURN ROADREMOVE: DO PAL 0 WHILE TOUCH 'VARIABLES X=TOUCH.X Y=TOUCH.Y C=CELL.C(X/8,Y/8) 'CHECKING FOR ROADS AND REMOVING THEM IF C=44 OR C=45 OR C=46 OR C=47 OR C=15 OR C=31 OR C=60 OR C=61 OR C=62 OR C=63 OR C=30 THEN CELL X/8,Y/8,22 'CHECKING FOR BUTTON PRESSES IF TOUCH.X<16 AND TOUCH.Y>112 THEN GOTO ROADBUTTON END IF IF TOUCH.X<32 AND TOUCH.X>16 AND TOUCH.Y>112 THEN GOTO REMOVEBUTTON END IF WEND LOOP RETURN #1:MAIN PALETTES 2F0904242C2A153F001A152F00000000 FFFFFFFFFFFFFFFF0000000000000000 #2:MAIN CHARACTERS 00000000000000000000000000000000 FF8080BFBFA0A0BBC0FFFFC0405F5F5F FF0303F3F313137300FCFC0E0EEEEEEE FF8080BFA7A3B0BBC0FFFFC0585C4F44 FF0303F39313337300FCFC0E6EEECE8E 00001F302F2B2F2F00001F3F30343030 0000FF00FFFEDFFF0000FFFF00012000 0000F80CF4F4F4B40000F8FC0C0C0C4C FFBFFBFFF0F7B4F4004004000F0F4C0C FFFB7FFF0FEB2F2F00048000F0F43030 DD9E9F8CE1FFFFFF226160733E1C1818 FFFFFFFFFFFFFFFF0000000000000000 0000FFFFFFFFFFFFFFFF000000000000 3F3F3F3F3F3F3F3FC0C0C0C0C0C0C0C0 00003F3F3F3F3F3FFFFFC0C0C0C0C0C0 FBFFBFFFFFFFBDFF1C18581818185A18 00000000000000000000000000000000 A0A0BFBF8080FFFF5F5F40407F7F3F00 1313F3F30303FFFFEEEE0E0EFEFEFE00 B0A3A7BF8080FFFF4F5C58407F7F3F00 331393F30303FFFFCEEE6E0EFEFEFE00 2D2F2F2F2F2D2F2F3230303030323030 FBFFBFFFEFFFBDFF0400400010004200 F4D4F4F4F474F4F40C2C0C0C0C8C0C0C F4F4D7F0FFDDFFFF0C0C2F0F00220000 2F2DEF0FFFFBBFFF3032F0F000044000 00183C3C7EBD180000183C3C7EBD1800 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FBFFBFFFFFFFBDFF1C1858FFFF185A18 FBFFBFFFFFFFBDFF040040FFFF004200 00000000000000000000000000000000 FF8080BFBFBFBFBFC0FFFFC24F52504E FF0000FFFFFFFFFF7FFFFF0002262202 FF0000FFFFFFFFFF80FFFF00314A6B7B FF0303F3F3F3F3F30EFEFE0E8C4C4ECE 2F2F2F2F301F0000303030303F1F0000 F7FF7DFF00FF000008008200FFFF0000 F4D4F4F40CF800000C2C0C0CFCF80000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FBFFBFFFFFFFBDFF040040F8F8185A18 FBFFBFFFFFFFBDFF1C1858F8F8004200 FBFFBFFFFFFFBDFF1C18581F1F004200 FBFFBFFFFFFFBDFF0400401F1F185A18 00000000000000000000000000000000 BFBFBFBF8080FFFF41495E48FFFFFF00 FFFFFFFF0000FFFF22220200FFFFFF00 FFFFFFFF0000FFFF5A4A3100FFFFF800 F3F3F3F30303FFFFCE4E8E0EFEFE0E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FBFFBFFFFFFFBDFF1C1858F8F8185A18 FBFFBFFFFFFFBDFF1C1858FFFF004200 FBFFBFFFFFFFBDFF1C18581F1F185A18 FBFFBFFFFFFFBDFF040040FFFF185A18 #3:MAIN BG 00001410000005001900160016001600 16001600160016001600160016001600 17000000250009001600160000001500 16001600160016000A00160016001600 16001600160016001800070000001500 160016001A0015001600160016001600 16001600160016001600160016001600 16001700000015001600160000001500 16001600160016001600160016001600 160016000A0016001600170000001500 16001600000025000900160016001600 1600160016000A001600160016001600 16001700000025000900160000000000 25000900160016001600160016001600 16001600160016001600170000000000 15001600060006000700250009001600 16001600160016001600160016001600 0800270000001A001500160016001600 18000700250026002600090016001600 16001600160016001700000000000000 15001600160016001600180007000000 00002500260026002600260026002600 2700000000000000150016000A001600 16001600180006000600060007000000 0000000000000500070000001A000000 15001600160016001600160016001600 16001600180007000000000005001900 17000000000000001500160016001600 16001600160016001600160016001700 00000500190008002700000005000600 1900160016001600160016000A001600 16001600160017000000250026002700 00000000150016001600160016001600 16001600160016001600160016001700 1A000000000000000000050019001600 16000A00010102010301040121012201 230124010E010C010C010C010C010C01 0C010C010C010C010C010C0111011201 1301140131013201330134010D010B01 0B010B010B010B010B010B010B010B01 0B010B01 #4:CHARACTERS 00000000000000000000000000000000 FF8080BFBFA0A0BBC0FFFFC0405F5F5F FF0303F3F313137300FCFC0E0EEEEEEE FF8080BFA7A3B0BBC0FFFFC0585C4F44 FF0303F39313337300FCFC0E6EEECE8E 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 A0A0BFBF8080FFFF5F5F40407F7F3F00 1313F3F30303FFFFEEEE0E0EFEFEFE00 B0A3A7BF8080FFFF4F5C58407F7F3F00 331393F30303FFFFCEEE6E0EFEFEFE00