'TITLE: TRAVESTIES OF WAR 'DATE OF CREATION: 08/22/20 'MADE BY NOUSERNAME010 'BG NOTES 'BG 1 - BACKGROUND 'BG 0 - BUTTONS, UNITS, ETC. 'UI NOTES '3,8X4 - TITLE GRAPHIC '1-2 - LOAD BTN GRAPHIC '11-12 - ATTACK BTN GRAPHIC '13-14 - UNIT BTN GRAPHIC '15 - PLUS BTN GRAPHIC '16 - NODE GRAPHIC '17-18 - PLAY BTN GRAPHIC '27-28 - NEXT/ADVANCE BTN GRAPHIC '29-30 - BACK BTN GRAPHIC '31 - MINUS BTN GRAPHIC '32 - CHECKMARK BTN GRAPHIC '33-34 - SAVE BTN GRAPHIC '43 - LEFT ARROW GRAPHIC '44 - RIGHT ARROW GRAPHIC '45 - UP ARROW GRAPHIC '46 - DOWN ARROW GRAPHIC '48 - XMARK BTN GRAPHIC '49-50 - BUY BTN GRAPHIC 'SFX NOTES '0 - EXPLOSION '1 - GUNSHOT '2 - BEEP '#####INIT######################## INIT: TOUCHSCREEN RANDOMIZE TIMER 'PLACEHOLDER DUMPS FOR SUB "VALUE RETURNS" GLOBAL PD1,PD2,PD3 'GLOBALS GLOBAL DIFF,GSTATE,MAXWARFRONTS,TEAMWINNER,DEBUG,GAMETURN,UNITINFONUM,WFMAPNUM,MAXUNITS,SELECTEDWF,MAXMAPUNITS,SELECTEDMAPUNIT,PROMPTTYPE,CX,CY,CC,MAPWIDTH,GMAPHEIGHT,AMAPHEIGHT,MAPDISWIDTH,TLIMIT,BTCOUNT 'SETS CONSTANTS MAXWARFRONTS=5 MAXUNITS=32 MAXMAPUNITS=40 UNITINFONUM=12 WFMAPNUM=3 MAPWIDTH=40 MAPDISWIDTH=20 GMAPHEIGHT=4 AMAPHEIGHT=2 TLIMT=50 '1 ENABLES DEBUG. 0 TURNS IT OFF. SYSTEM DEBUG CAN'T DO EVERYTHING AFTER ALL. DEBUG=0 'GAME VARS '0=RESOURCES '1=FRONTS TAKEN '2=HAS CAPTURED NODE. 0 IF NONE YET. 'REST FOR STATS '3=UNITS MADE '4=UNITS LOST '5=UNITS KILLED DIM GLOBAL TEAMS(1,4) '0=TYPE REFERENCE. 0 IF INACTIVE '1=COUNT '2=HEALTH DIM GLOBAL PUNITS(MAXUNITS-1,2) DIM GLOBAL EUNITS(MAXUNITS-1,2) '0-STATE. 0 IF NOT YET OCCUPIED. '1-XPOS '2-YPOS '3-UNIT REFERENCE. DIM GLOBAL PMAPUNITS(MAXUNITS-1,3) DIM GLOBAL EMAPUNITS(MAXUNITS-1,3) 'UNIT TYPE DATA ARRAY DIM GLOBAL UNITINFO(UNITINFONUM-1,13) RESTORE UNITDATA FOR D=0 TO 13 FOR U=0 TO UNITINFONUM-1 READ V UNITINFO(U,D)=V NEXT U NEXT D 'WARFRONT DATA ARRAY 'SET IN RESETGAME LABEL DIM GLOBAL WFINFO(MAXWARFRONTS-1,4) 'GROUND MAP ARRAY 'USED FOR BATTLESCREEN MAP. 40 COLUMNS, 4 ROWS. 'IF 0=NORMAL GROUND 'IF 1=TRENCH DIM GLOBAL GMAPINFO(MAPWIDTH-1,GMAPHEIGHT-1) 'AIR MAP ARRAY 'USED FOR BATTLESCREEN MAP AIR UNITS. 40 COLUMNS, 2 ROWS. DIM GLOBAL AMAPINFO(MAPWIDTH-1,AMAPHEIGHT-1) '#####MAIN GAME############################# 'CREDIT TEXT IF DEBUG>0 THEN GOTO MAINMENU CALL CTEXT ("NOUSERNAME010",6) CALL CTEXT ("PRESENTS",7) WAIT 240 CLS MAINMENU: 'DRAWS OTHER DETAILS IN THE BG BG 0 BG SOURCE ROM(3) BG COPY 0,0,20,16 TO 0,0 BG 1 PAL 3 BG FILL 0,11 TO 19,15 CHAR 128 BG 0 'DRAWS TITLE GRAPHIC PAL 0 FOR I=0 TO 3 FOR J=0 TO 7 CHARTODRAW=J+3+(16*I) CELL J+6,I+2,CHARTODRAW NEXT J NEXT I 'DRAWS BUTTONS FOR I=0 TO 1 CELL 9+I,7,I+17 CELL 9+I,9,I+1 NEXT I DO IF TAP THEN FOR I=0 TO 1 CALL TTINFO IF CC=I+1 THEN GOTO GAMELOAD IF CC=I+17 THEN GOTO RESETGAME NEXT I END IF WAIT VBL LOOP RESETGAME: DIFF=0 GSTATE=0 TEAMWINNER=-1 GAMETURN=RND(1) FOR I=0 TO 1 TEAMS(I,0)=20 NEXT I IF DEBUG>0 THEN GAMETURN=0 RESTORE INITWFDATA FOR D=0 TO 3 FOR W=0 TO MAXWARFRONTS-1 READ V WFINFO(W,D)=V IF D=2 AND V=0 THEN SELECTEDWF=W NEXT W NEXT D GOTO PREGAME 'GAME INTRO PREGAME: CLS LTY=0 CALL AWTEXT("COMMANDER, WE HAVE SENT YOU THIS LETTER TO ASK OF YOUR HELP.",19,0,LTY) IF DEBUG=0 THEN WAIT 240 CALL AWTEXT("THE DAMNED HERTS HAVE DECLARED WAR ON US. THE ENTIRE CONTINENT OF EURSIA IS IN CHAOS AS OF THIS MOMENT.",19,0,LTY+1) IF DEBUG=0 THEN WAIT 480 CLS LTY=0 CALL AWTEXT("OUR PRESENT SITUATION IS RATHER: ",19,0,LTY) TEXT 4,5,"FAVORABLE (EASY)" TEXT 4,7,"UNKNOWN (NORMAL)" TEXT 4,9,"DIRE (HARD)" FOR I=0 TO 2 CELL 1,I+5+(I*1),32 NEXT I 'SELECT DIFFICULTY WHILE DIFF=0 IF TAP THEN CALL TTINFO IF CX=1 THEN FOR I=0 TO 2 IF CC=32 AND CY=(I+5+(I*1)) THEN DIFF=I+1 END IF NEXT I END IF END IF WAIT VBL WEND CLS IF DEBUG>0 THEN GOTO WFMAP LTY=0 CALL AWTEXT("NEVERTHELESS, YOU SHALL DO YOUR BEST TO AID OUR COUNTRY TO THE BITTER END.",19,0,LTY) WAIT 420 CALL AWTEXT("FOR THE KING OF ENTON!",19,0,LTY+1) WAIT 120 GOTO WFMAP GAMELOAD: CLS PRINT "THAT DOESN'T WORK YET." WAIT 120 CLS GOTO MAINMENU '###GAME LOOPS### WFMAP: PROMPTTYPE=-1 DO 'DRAWS UI CLS USTATE=0 IF GAMETURN=0 THEN IF WFINFO(SELECTEDWF,2)=0 THEN USTATE=1 ELSE USTATE=2 END IF END IF CALL DRAWWFMAPUI(USTATE) 'DRAW MAP BG 1 PAL 3 BG FILL 0,4 TO 19,14 CHAR 128 BG 0 FOR I=0 TO MAXWARFRONTS-1 WCX=WFINFO(I,0) WCY=WFINFO(I,1) CELL WCX,WCY,16 IF WFINFO(I,2)=0 THEN TINT WCX,WCY PAL 1 ELSE IF WFINFO(I,2)=1 THEN TINT WCX,WCY PAL 2 ELSE TINT WCX,WCY PAL 5 END IF NEXT I IF USTATE<>0 THEN TINT WFINFO(SELECTEDWF,0),WFINFO(SELECTEDWF,1) PAL 4 'ENEMY TURN IF GAMETURN=1 THEN 'INITIATES PLAYER TURN TEAMS(0,2)=0 FOR I=0 TO MAXWARFRONTS-1 IF WFINFO(I,2)=0 THEN ADD TEAMS(0,0),WFINFO(I,3) NEXT I GAMETURN=0 END IF 'INPUT IF TAP THEN CALL RESETTINFO CALL TTINFO 'GETS CELL TOUCHED IF CC=16 THEN FOR I=0 TO MAXWARFRONTS-1 IF WFINFO(I,0)=CX AND WFINFO(I,1)=CY THEN SELECTEDWF=I NEXT I END IF 'FOR TWO-TILE WIDE BUTTONS FOR I=0 TO 1 IF CC=I+49 THEN PROMPTTYPE=0 IF CC=I+13 THEN PROMPTTYPE=1 IF CC=I+11 THEN PROMPTTYPE=2 IF CC=I+27 THEN INC GAMETURN NEXT I END IF 'GOES TO WARPROMPT IF NEEDED PAL 0 IF PROMPTTYPE>=0 AND PROMPTTYPE<=1 THEN GOTO WARPROMPT IF PROMPTTYPE=2 THEN WFNEAR=0 UC=0 'CHECKS IF WARFRONT NEEDS BATTLE TO CAPTURE OR IF CAN BE CAPTURED. CALL CHECKWFATTACK(WFNEAR,0) CALL GETUNITCOUNT(0,UC) IF WFNEAR>0 AND TEAMS(0,2)=0 AND UC>0 THEN IF WFINFO(SELECTEDWF,2)=2 THEN WFINFO(SELECTEDWF,2)=0 TEAMS(0,2)=1 CALL CTEXT("WARFRONT CAPTURED!",5) IF NOT DEBUG>0 THEN WAIT 120 ELSE GOTO WARPROMPT END IF ELSE CALL CTEXT("CAN'T ATTACK.",5) WAIT 60 END IF PROMPTTYPE=-1 END IF WAIT VBL LOOP 'PROMPT TYPE '0 - BUY UNITS '1 - LIST UNITS '2 - DEFENDING/ATTACKING WARFRONT WARPROMPT: BUNIT=0 UPAGE=0 CLS BG 1 BG SOURCE ROM(5) BG COPY 0,0,20,16 TO 0,0 BG 0 PAL 0 IF PROMPTTYPE=0 THEN CALL CTEXT("BUY UNITS",1) ELSE IF PROMPTTYPE=1 THEN CALL CTEXT("YOUR UNITS",1) ELSE IF PROMPTTYPE=2 THEN CALL CTEXT("GET READY FOR",1) CALL CTEXT("BATTLE!!!",2) XI=0 YI=0 AXI=0 AYI=0 PAL 5 FOR I=0 TO MAXUNITS-1 IF PUNITS(I,0)<>0 THEN TX=0 TY=0 ISAIR=0 IF UNITINFO(PUNITS(I,0)-1,0)<>4 THEN TX=13-XI TY=YI+7 ELSE ISAIR=1 TX=13-AXI TY=AYI+4 END IF CELL TX,TY,UNITINFO(PUNITS(I,0)-1,1) END IF IF NOT ISAIR>0 THEN INC YI ELSE INC AYI IF YI>=GMAPHEIGHT THEN YI=0 INC XI END IF IF AYI>=AMAPHEIGHT THEN AYI=0 INC AXI END IF NEXT I END IF 'TWO TILE BUTTONS AND BUTTONS PAL 0 FOR I=0 TO 1 IF PROMPTTYPE<>2 THEN CELL 18+I,15,I+29 ELSE CELL 18+I,15,I+27 IF PROMPTTYPE<2 THEN CELL 0+(I*2),15,I+43 NEXT I DO PAL 0 'UI INFO NEEDING TO BE UPDATED. UC=0 CALL GETUNITCOUNT(0,UC) IF PROMPTTYPE<2 THEN BG FILL 1,4 TO 18,14 CHAR 0 IF PROMPTTYPE=0 THEN RESTORE UNITNAMEDATA FOR I=0 TO BUNIT READ UN$ NEXT I TEXT 3,4,UN$ TEXT 1,6,"COST: "+STR$(UNITINFO(BUNIT,12)) RESTORE UNITTYPENAMEDATA FOR I=1 TO UNITINFO(BUNIT,0) READ N$ NEXT I TEXT 1,7,"TYPE: "+N$ TEXT 1,8,"HP: "+STR$(UNITINFO(BUNIT,6)) TEXT 1,9,"ATK: "+STR$(UNITINFO(BUNIT,5)) TEXT 1,10,"RNG: "+STR$(UNITINFO(BUNIT,3)) TEXT 1,11,"CTR RNG: "+STR$(UNITINFO(BUNIT,4)) TEXT 1,12,"SPD: "+STR$(UNITINFO(BUNIT,2)) IF TEAMS(0,0)>=UNITINFO(BUNIT,12) THEN FOR I=0 TO 1 CELL I+10,4,I+49 NEXT I END IF PAL 5 CELL 1,4,UNITINFO(BUNIT,1) ELSE IF PROMPTTYPE=1 THEN FOR I=0+(UPAGE*8) TO ((UPAGE+1)*8)-1 YI=I MOD 8 IF PUNITS(I,0)<>0 THEN PAL 5 CELL 1,YI+4,UNITINFO(PUNITS(I,0)-1,1) PAL 0 RESTORE UNITNAMEDATA FOR J=0 TO PUNITS(I,0)-1 READ N$ NEXT J TEXT 3,YI+4,N$ FOR B=0 TO 1 CELL 16+(B*2),YI+4,45+B NEXT B ELSE PAL 5 TEXT 3,YI+4,"VACANT" END IF NEXT I PAL 0 CALL CTEXT("LIST POS=BATTLE POS",14) CALL CTEXT("PAGE "+STR$(UPAGE+1),12) END IF CALL RESETTINFO CALL TTINFO 'TWO TILE BUTTONS AND BUTTONS IF CC=43 THEN IF PROMPTTYPE=0 THEN ADD BUNIT,-1 ELSE ADD UPAGE,-1 ELSE IF CC=44 THEN IF PROMPTTYPE=0 THEN ADD BUNIT,1 ELSE ADD UPAGE,1 END IF IF CC=45 AND (CY+(UPAGE*8))-4<>0 THEN CALL CHANGEUNITPOS(0,(CY+(UPAGE*8))-4,(CY+(UPAGE*8))-5) IF CC=46 THEN CALL CHANGEUNITPOS(0,(CY+(UPAGE*8))-4,(CY+(UPAGE*8))-3) FOR I=0 TO 1 IF CC=I+29 THEN GOTO WFMAP IF CC=I+49 THEN CALL BUYUNIT(BUNIT) IF CC=I+27 THEN GOTO BATTLESCREEN NEXT I 'CLAMPS VARIABLES IF BUNIT<0 THEN BUNIT=0 IF UPAGE<0 THEN UPAGE=0 IF BUNIT>UNITINFONUM-1 THEN BUNIT=UNITINFONUM-1 IF UPAGE>INT(MAXUNITS/8)-1 THEN UPAGE=INT(MAXUNITS/8)-1 WAIT VBL LOOP 'WHERE THE BATTLE HAPPENS BATTLESCREEN: CLS CALL CTEXT("LOADING...",7) MAPSEG=0 CALL SETMAP(SELECTEDWF) BG SOURCE ROM(4) DO CLS 'DRAW UI PAL 0 BG COPY 0,0,20,16 TO 0,0 'BUTTONS AND TWO-TILE BUTTONS FOR I=0 TO 1 CELL I+0,15,I+43 NEXT I 'DRAW MAP AND UNITS CALL UPDMAP(MAPSEG) 'INPUT CALL RESETTINFO IF TAP THEN CALL TTINFO IF CC=43 AND MAPSEG=1 THEN DEC MAPSEG IF CC=44 AND MAPSEG=0 THEN INC MAPSEG END IF WAIT VBL LOOP '###SUBS#################################### 'TEXT SUBS SUB CTEXT(T$,TY) TEXT (10-LEN(T$))+(LEN(T$)/2),TY,T$ END SUB SUB AWTEXT(T$,L,TX,TY) S$="" W$="" FOR I=0 TO LEN(T$)-1 C$=MID$(T$,I+1,1) W$=W$+C$ IF C$=" " OR I=LEN(T$)-1 THEN S$=S$+W$ IF LEN(S$+W$)>=L OR I=LEN(T$)-1 THEN TEXT TX,TY,S$ S$="" INC TY END IF W$="" END IF NEXT I END SUB 'MAP SUBS SUB INFOC(LX,LY) BG 0 CX=INT(LX/8) CY=INT(LY/8) CC=CELL.C(CX,CY) END SUB 'GETS TOUCH INFO SUB TTINFO BG 0 IF TAP THEN CX = INT(TOUCH.X/8) CY = INT(TOUCH.Y/8) CC = CELL.C(CX,CY) END IF END SUB 'RESETS TOUCH INFO FOR FUTURE USE SUB RESETTINFO CX=-1 CY=-1 CC=-1 END SUB SUB UPDMAP(S) BG 1 FOR I=0 TO MAPDISWIDTH-1 FOR J=0 TO GMAPHEIGHT-1 TC=128 IF GMAPINFO(I+(S*20),J)>0 THEN TC=129 PAL 3 CELL I,J+11,TC NEXT J NEXT I END SUB SUB SETMAP(F) FMAP=WFINFO(F,4) RESTORE WFMAPDATA FOR I=0 TO FMAP FOR C=0 TO MAPWIDTH-1 READ M FOR R=0 TO GMAPHEIGHT-1 GMAPINFO(C,R)=M NEXT R NEXT C NEXT I END SUB 'GAME UI SUBS SUB DRAWUIBG BG SOURCE ROM(4) BG COPY 0,0,20,16 TO 0,0 END SUB SUB DRAWWFMAPUI(US) PRIO 0 PAL 0 BG 1 CALL DRAWUIBG 'UISTATE=0 - ENEMY TURN 'UISTATE=1 - PLAYER WF SELECTED 'UISTATE=2 - ENEMY/NEUTRAL WF SELECTED BG 0 US=US MOD 3 IF US=0 THEN CALL CTEXT("PLEASE WAIT...",1) ELSE FOR I=0 TO 1 CELL I,3,I+49 CELL I+2,3,I+13 IF US=2 THEN CELL I+16,3,I+11 CELL I+18,3,I+27 NEXT I TEXT 1,2,STR$(TEAMS(0,0))+" RESOURCES" IF US=1 THEN TEXT 1,1,"ENTON FRONT" ELSE IF US=2 THEN IF WFINFO(SELECTEDWF,2)=1 THEN TEXT 1,1,"HERMANIA FRONT" ELSE TEXT 1,1,"NEUTRAL FRONT" END IF END IF END IF 'FOOTER BG 0 IF GAMETURN=0 THEN CALL CTEXT("ENTON TURN",15) IF GAMETURN=1 THEN CALL CTEXT("HERMANIA TURN",15) END SUB 'GAME SUBS SUB BUYUNIT(U) ADD TEAMS(0,0),-UNITINFO(U,12) USLOT=-1 FOR B=0 TO MAXUNITS-1 IF PUNITS(B,0)=0 THEN USLOT=B B=MAXUNITS END IF NEXT B IF USLOT<>-1 THEN PUNITS(USLOT,0)=U+1 END IF END SUB SUB CHANGEUNITPOS(T,U,V) FOR I=0 TO 2 IF T=0 THEN SWAP PUNITS(U,I),PUNITS(V,I) IF T=1 THEN SWAP EUNITS(U,I),EUNITS(V,I) NEXT I END SUB SUB GETUNITCOUNT(T,UC) UC=0 FOR U=0 TO MAXUNITS-1 UNITFOUND=0 IF T=0 THEN IF PUNITS(U,0)>0 THEN UNITFOUND=1 ELSE IF T=1 THEN IF EUNITS(U,0)>0 THEN UNITFOUND=1 ELSE TRACE "INVALID TEAM" U=MAXUNITS END IF IF UNITFOUND>0 THEN INC UC END IF NEXT U END SUB SUB CHECKWFATTACK(V,T) 'CHECKS IF NEAR TO ENTON FRONT ON ITS LEFT. NEAR TO HERMANIA FRONT ON ITS RIGHT IF ENEMY. NWCOL=WFINFO(SELECTEDWF,0)-1 WFFOUND=0 WFNEAR=0 IF WFINFO(SELECTEDWF,2)<>0 THEN WHILE NWCOL>=0 AND NWCOL<=19 AND WFFOUND=0 TRACE NWCOL FOR I=0 TO 15 FOR W=0 TO MAXWARFRONTS-1 IF WFINFO(W,1)=I AND WFINFO(W,0)=NWCOL THEN WFFOUND=1 IF WFINFO(W,2)=0 THEN WFNEAR=1 END IF NEXT W NEXT I IF T=0 THEN DEC NWCOL ELSE INC NWCOL WEND END IF V=WFNEAR END SUB '###GAME DATA################################## 'ROW0: UNIT TYPE. 1=INFANTRY 2=LIGHTARMORED 3=HEAVYARMORED 4=AIR 'ROW1: UNIT CHAR. 'ROW2: UNIT MOVESPEED 'ROW3: UNIT RANGE 'ROW4: UNIT COUNTERATTACK RANGE. 0 IF NONE. 'ROW5: UNIT DAMAGE 'ROW6: UNIT HEALTH 'ROW7: UNIT ADVANTAGE, 0 IF NONE, 5=AGAINST BOTH ARMOR, 6=AGAINST LIGHT AND INFANTRY 'ROW8: UNIT WEAKNESS, 0 IF NONE, 5=TO BOTH ARMOR, 6=TO LIGHT AND INFANTRY, 7 TO ALL GROUND 'ROW9: UNIT CAN ATTACK AIR. 0 IF NOT. IF UNIT IS AIR, IF IT CAN ATTACK GROUND INSTEAD 'ROW10: UNIT CAN ATTACK IN ITS OWN ZONE. 0 IF NOT. 'ROW11: UNIT CAN CROSS TRENCH WITH NO MOVE PENALTY. 0 IF NOT. 'ROW12: UNIT PURCHASE COST 'ROW13: DEFAULT UNIT POSITION VALUE. 0-FRONT, 1-MIDDLE, 2-BACK. THIS CAN BE CHANGED INGAME. UNITDATA: DATA 1, 1, 1, 1, 3, 2, 3, 2, 2, 4, 4, 4 DATA 64,65,66,67,68,69,70,71,72,73,74,75 DATA 3, 1, 2, 1, 4, 6, 5, 2, 2, 5, 4, 2 DATA 3, 5, 5, 2, 2, 2, 3, 7, 4, 3, 3, 2 DATA 2, 1, 2, 0, 2, 3, 1, 0, 0, 3, 0, 0 DATA 4, 4, 4, 6, 8, 6, 8,10, 8, 6, 8, 1 DATA 10, 4, 2, 4,20,10,17, 6, 4,15,10, 5 DATA 0, 6, 1, 1, 6, 0, 1, 5, 4, 0, 6, 6 DATA 3, 6, 6, 6, 0, 4, 0, 7, 7, 0, 0, 0 DATA 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1 DATA 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0 DATA 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1 DATA 5,10,10,15,30,20,25,25,20,30,35,15 DATA 0, 1, 2, 1, 1, 0, 1, 2, 2, 1, 2, 0 'UNIT NAMES UNITNAMEDATA: DATA "INFTRY","MORTAR","SNIPER","MACHGN","TANK ","L.ARMR","H.ARMR","ARTLRY","FLAK ","WRIGHT","BOMBER","BLOON " 'UNIT TYPE NAMES UNITTYPENAMEDATA: DATA "INFTRY","ARMR-L","ARMR-H","AIR" 'INITIAL WAR FRONT DATA. COL REPRESENTS INDIVIDUAL WARFRONT. 'ROW0=XPOS 'ROW1=YPOS 'ROW2=ALIGNMENT. 0=ENTON. 1=HERMANIA. 2=NONE 'ROW3=RESOURCE YIELD 'ROW4=MAPDATAREF. NUMBER DETERMINES WHICH DATA ROW TO COPY FROM. INITWFDATA: DATA 1,10,18, 3,16 DATA 7, 7, 7, 7, 7 DATA 0, 2, 1, 2, 2 DATA 10,25,10,20,20 DATA 0, 0, 0, 0, 0 'NODE GROUND DATA. GROUND WIDTH MUST ALWAYS BE 40 NUMS LONG 'EACH ROW REPRESENTS MAP COLUMN '0=NORMAL GROUND '1=TRENCH WFMAPDATA: DATA 0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 #1:MAIN PALETTES 1B3815100038201000380201002C1810 1B172B02003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 007F7F7F7F7F7F00FFB1B5B5B5B591FF 00FEFEFEFEFEFE00FF135515555553FF 007F7F7F7F7F7F7FFFFFC0C0F3F3F3F3 00FFFFFFFFFFFFFFFFFF838199998383 00FFFFFFFFFFFFFFFFFF860232320232 00FFFFFFFFFFFFFFFFFF646464646404 00FFFFFFFFFFFFFFFFFF2121E76161F9 00FFFFFFFFFFFFFFFFFF0202CECECECE 00FFFFFFFFFFFFFFFFFF41414F43434F 00FEFEFEFEFEFEFEFFFF0F0F3F0F0FCF 007F7F7F7F7F7F00FFFFFFF0C3C7FFFF 00FEFEFEFEFEFE00FFFFFF03FFFFFFFF 007F7F7F7F7F7F00FFE7C3C3C3E781FF 00FEFEFEFEFEFE00FFE7C3C3C3E781FF 007E7E7E7E7E7E00FFE7E78181E7E7FF 00003C24243C00000000183C3C180000 007F7F7F7F7F7F00FF8BAB8BBBBBB9FF 00FEFEFEFEFEFE00FF1555155B5B5BFF 7F7F7F7F7F7F7F7FF3F3FFFFFFFFC0C0 FFFFFFFFFFFFFFFF9999FFFFFFFC0000 FFFFFFFFFFFCFFFF3333FFFFFF03003F FFFFFFFFFF0000FF0C9CFFFFFFFFFFFF FFFFFFFFFF0000FF2121FFFFFFFFFFFF FFFFFFFFFF0000FFCECEFFFFFFFFFFFF FFFFFFFFFF0000FF4141FFFFFFFFFFFF FEFEFEFEFE1E1EFE0F0FFFFFFFFFFFFF 007F7F7F7F7F7F00FFDDCCC4C4CCDDFF 00FEFEFEFEFEFE00FFDFCF4747CFDFFF 007F7F7F7F7F7F00FFFFEFC0EFFEFFFF 00FEFEFEFEFEFE00FFFFFF03FB03FFFF 007E7E7E7E7E7E00FFFFFF8181FFFFFF 007E7E7E7E7E7E00FFFFFDFBF7AFDFFF 007F7F7F7F7F7F00FF91B5B5D1D595FF 00FEFEFEFEFEFE00FF51575157B7B1FF 7F7F7F7F7F7F7F7FC0C0C0FFFFFFE1C0 FFFFFFFFFFFFFFFF01001FFFFFFF8181 FFFFFFFFFFFFFFFFBF7FFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF3C3C FFFFFFFFFFFFFFFFFFFFFFFFFFFFC381 FEFEFEFEFEFEFEFEFFFFFFFFFFFF0703 007E7E7E7E7E7E00FFF9E18181E1F9FF 007E7E7E7E7E7E00FF9F878181879FFF 007E7E7E7E7E7E00FFE7E7C3C38181FF 007E7E7E7E7E7E00FF8181C3C3E7E7FF 007E7E7E7E7E7E00FFFFC3C3C3E7FFFF 007E7E7E7E7E7E00FFBDDBF7EFDBBDFF 007F7F7F7F7F7F00FFE7E78181E7E7FF 00FEFEFEFEFEFE00FFC7838383C701FF 7F7F7F7F7F7F7F00CCCCCCCCC0E1FFFF FFFFFFFFFFFFFF009F87879F9F9FFFFF FFFFFFFFFFFFFF00FFFFFFFFFFFFFFFF FFFFFFFFFFFFFF00FFFFFFFFFFFFFFFF FFFFFFFFFFFFFF00FFFFFFFFFFFFFFFF FFFFFFFFFFFFFF00242424240099FFFF FFFFFFFFFFFFFF00999981819999FFFF FEFEFEFEFEFEFE00333307073333FFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00144000021000000000144000021000 000040040C100000000000440C001000 00000000201800000000000000780000 00000000281C080000000000083C0800 0000003F4182FC0000000E3F7FFEFC00 000000180000420000000018707E4200 00001E006000C30000001E789FFFC300 03060C183A604A0003060C183E6A4E00 040C083830004200040C0818307E4200 000006060E060006000006C6773F0606 00000006060E0606000000C67EC77E06 14545414242C00003C7E7E3C24243C18 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000400000020000FFFFBFFFFFFDFFFF 7E7E7E7E7E7E7E7EBDBDBDBDBDBDBDBD 3C3C3C00003C3C3CFFFFFFFFFFC3FFFF FF3200FFFF4D00FFFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 007F7F7F7F7F7F7FFFFFFFFFFFFFFFFF 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00FEFEFEFEFEFEFEFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FEFEFEFEFEFEFEFEFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F00FFFFFFFFFFFFFFFF FFFFFFFFFFFFFF00FFFFFFFFFFFFFFFF FEFEFEFEFEFEFE00FFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 183C3C3C3C183C181824242424182418 6CFEFE7E240000006C92925A24000000 247EFF7E7EFF7E24245A815A5A815A24 083E7F7E3F7F3E080836414631413608 62F7FE7C3E7FEF4662959A742E59A946 1C3E7E7EFFFE7F3A1C224A46919A453A 183C3C78300000001824244830000000 0C1E3C78783C1E0C0C1224484824120C 30783C1E1E3C78303048241212244830 00247E7EFF7E7E2400245A6681665A24 00183C7EFF7E3C180018246681662418 000000183C3C78300000001824244830 0000007EFF7E00000000007E817E0000 00000000183C3C180000000018242418 060F1E3C78F0E040060912244890A040 3C7EFFFFFFFF7E3C3C4299918999423C 183C7C3C3C7EFF7E182444242466817E 3C7EFF7E3C7EFF7E3C429972244E817E 3C7EFF7E6FFF7E3C3C4299726999423C 66FFFFFF7F0F0F066699998179090906 7EFFFEFE7F7FFE7C7E819E827979827C 1C3E7CFEFFFF7E3C1C224C829999423C 7EFF7F1E3C7878307E81791224484830 3C7EFF7EFFFF7E3C3C4299429999423C 3C7EFF7F7FFF7E3C3C4299417999423C 0000183C183C18000000182418241800 0000183C183C78300000182418244830 000C1E3C783C1E0C000C12244824120C 00007EFF7EFF7E0000007E817E817E00 0030783C1E3C78300030482412244830 3C7EFF7E3C183C183C42997224182418 3C7EFFFFFFFE7E3C3C429991919E423C 183C7EFFFFFFFF661824429981999966 7CFEFFFEFFFFFE7C7C8299829999827C 3C7EFFF6F6FF7E3C3C4299969699423C 78FCFEFFFFFEFC787884929999928478 7EFFFEFCF8FEFF7E7E819E84989E817E 7EFFFEFCF8F0F0607E819E8498909060 3C7EFEFFFFFF7E3C3C429E919999423C 66FFFFFFFFFFFF666699998199999966 3C7E3C3C3C3C7E3C3C4224242424423C 1E3F1F0F6FFF7E3C1E2119096999423C 66FFFEFCFCFEFF666699928484929966 60F0F0F0F0FEFF7E60909090909E817E 42E7FFFFFFFFFF6642A5998181999966 66FFFFFFFFFFFF666699898191999966 3C7EFFFFFFFF7E3C3C4299999999423C 7CFEFFFEFCF0F0607C8299829C909060 3C7EFFFFFFFE7F3E3C4299999592413E 7CFEFFFEFCFEFF667C82998284929966 3E7FFE7E3F7FFE7C3E419E423979827C 7EFF7E3C3C3C3C187E81662424242418 66FFFFFFFFFF7E3C669999999999423C 66FFFFFFFF7E3C186699999999422418 66FFFFFFFFFFE742669999818199A542 66FF7E3C7EFFFF666699422442999966 66FFFF7E3C3C3C186699994224242418 7EFF7E3C78FEFF7E7E817224489E817E 3C7E7C78787C7E3C3C424C48484C423C 60F0783C1E0F07026090482412090502 3C7E3E1E1E3E7E3C3C4232121232423C 183C7EFF660000001824429966000000 00000000007EFF7E00000000007E817E #3:MM BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 4B0A000000004B010000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000004B0A0000 00000000000000004B01000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00004901000000000000000000000000 00000000000000000000000000000000 490A0000000000014A01000000000000 00000000000000000000000000000000 00000000490A00000000000000004A01 00000001000000000000000000000000 00000000000000000000000000000000 00004A0A000000000000000000000000 00000000000100010001000100010001 00010001000100000000000000014501 0001420144010001460100010001400A 0001400A0001440A410A0001460A0001 470A0001000147010001000145010001 40014001000100010001430A0001400A 0001450A0001480A0001000147010001 00014801000141010001430100014001 0001400A0001450A00010001420A0001 0001470A000000004601000000000000 40010000000000000000000000000000 0000410A00000000470A000000004201 00000000000046010000000040014001 0000000000000000480A000000000000 00000000 #4:UI BG 00001410900091009100910091009100 91009100910091009100910091009100 910091009100910091009200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200B000B100 B100B100B100B100B100B100B100B100 B100B100B100B100B100B100B100B100 B100B200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000090009100 91009100910091009100910091009100 91009100910091009100910091009100 91009200 #5:MENU BG 00001410900091009100910091009100 91009100910091009100910091009100 910091009100910091009200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200B000B100B100B100B100B100 B100B100B100B100B100B100B100B100 B100B100B100B100B100B20090009100 91009100910091009100910091009100 91009100910091009100910091009100 91009200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200A000A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A200A000A100A100A100A100A100 A100A100A100A100A100A100A100A100 A100A100A100A100A100A200B000B100 B100B100B100B100B100B100B100B100 B100B100B100B100B100B100B100B100 B100B200 #14:SFX 3800F18805B000003100205C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040