TILEMASTER2004 DATA V1
SCRIPT: 40
0 SetRedraw 0
0 DBG "DBG: Running map start script"
0 CCheckPos -MAP 249 -TAG 10
0 GOTO N20
10 Script 319
0 GOTO N102
20 Script 328
0 CCheckPos -MAP 254 -TAG 102
GOTO N101
101 CreateVFrame 1040 -ECOUNT 14
0 EditVFrame 1040 -FRAME 405 -ECOLOR 127 127 127 -EREV 0 0 1 1 -EBOX 112 48 112 48 -ECOLOR 0 0 0 -ECOLOR 32 32 32 -EREV 0 0 0 0 -ELINE 112 48 114 48 -EREV 0 1 0 1 -ELINE 112 48 114 48 -EREV 1 0 1 0 -ELINE 112 48 114 48 -EREV 1 1 1 1 -ELINE 112 48 114 48
0 CreateVFrame 1041 -ECOUNT 12
0 EditVFrame 1041 -FRAME 405 -ECOLOR 127 127 127 -EREV 0 1 0 1 -ELINE 24 38 47 44 -EREV 0 0 0 0 -EVFILL 24 38 47 44 -ECOLOR 0 0 0 -ELINE 24 38 25 38 -ELINE 46 44 47 44 -EREV 0 1 0 1 -ELINE 24 38 25 38 -ELINE 46 44 47 44
0 CreateVFrame 1042 -ECOUNT 12
0 EditVFrame 1042 -FRAME 405 -ECOLOR 127 127 127 -EREV 1 1 1 1 -ELINE 24 38 47 44 -EREV 1 0 1 0 -EVFILL 24 38 47 44 -ECOLOR 0 0 0 -ELINE 24 38 25 38 -ELINE 46 44 47 44 -EREV 1 1 1 1 -ELINE 24 38 25 38 -ELINE 46 44 47 44
0 CreateVTile 1040 -FPCOUNT 10 -COPY 400 -FRAME 7 0 1040 -FRAME 8 0 1041 -FRAME 9 0 1042 -CONARRAY 3 -CONDF POS -CONDIR 0 7 N -CONDIR 1 8 E -CONDIR 2 9 W -NAME "Sand, strange adjacent wall"
0 GOTO N120
102 CreateVFrame 1040 -ECOUNT 14
0 EditVFrame 1040 -ECOLOR 127 127 127 -EREV 0 0 1 1 -EBOX 112 48 112 48 -ECOLOR 0 0 0 -ECOLOR 32 32 32 -EREV 0 0 0 0 -ELINE 112 48 114 48 -EREV 0 1 0 1 -ELINE 112 48 114 48 -EREV 1 0 1 0 -ELINE 112 48 114 48 -EREV 1 1 1 1 -ELINE 112 48 114 48
0 CreateVFrame 1041 -ECOUNT 12
0 EditVFrame 1041 -ECOLOR 127 127 127 -EREV 0 1 0 1 -ELINE 24 38 47 44 -EREV 0 0 0 0 -EVFILL 24 38 47 44 -ECOLOR 0 0 0 -ELINE 24 38 25 38 -ELINE 46 44 47 44 -EREV 0 1 0 1 -ELINE 24 38 25 38 -ELINE 46 44 47 44
0 CreateVFrame 1042 -ECOUNT 12
0 EditVFrame 1042 -ECOLOR 127 127 127 -EREV 1 1 1 1 -ELINE 24 38 47 44 -EREV 1 0 1 0 -EVFILL 24 38 47 44 -ECOLOR 0 0 0 -ELINE 24 38 25 38 -ELINE 46 44 47 44 -EREV 1 1 1 1 -ELINE 24 38 25 38 -ELINE 46 44 47 44
0 CreateVTile 1040 -FPCOUNT 10 -FRAME 7 0 1040 -FRAME 8 0 1041 -FRAME 9 0 1042 -CONARRAY 3 -CONDF POS -CONDIR 0 7 N -CONDIR 1 8 E -CONDIR 2 9 W -NAME "Strange adjacent wall"
120 CCheckPos -MAP 249 -TAG 121  -MAP 250 -TAG 122  -MAP 251 -TAG 123  -MAP 252 -TAG 124  -MAP 253 -TAG 125  -MAP 254 -TAG 126  -MAP 255 -TAG 127  -MAP 256 -TAG 128
0 BREAK
121 AlterTiles 1040 6 3
0 BREAK
122 AlterTiles 1040 9 8
0 BREAK
123 AlterTiles 1040 4 6
0 BREAK
124 AlterTiles 1040 2 14
0 BREAK
125 AlterTiles 1040 2 14
0 BREAK
126 AlterTiles 1040 9 4
0 BREAK
127 AlterTiles 1040 14 14
0 BREAK
128 AlterTiles 1040 2 8
