TILEMASTER2004 DATA V1
SCRIPT: 200
0 DBG "DBG: Test script running"
0 CheckPCTerrain WATER 0
0 CheckPCTerrain 101 0
0 CheckPCTerrain 106 0
0 CheckPCTerrain 107 0
0 Pos PC -TAG 0 -CHECKITEMCOL 1
0 CMessage "You detect activity ahead.  Do you wish to investigate? "
0 Verify 20 -ND
0 BREAK
20 NOOP
0 SetRedraw 0
0 EnterZM -DEFFILE 1
0 CheckPos 100 -1 -1 100
0 CheckPos 101 -1 -1 110
0 CheckPos 102 -1 -1 120
0 CheckPos 103 -1 -1 130
0 CheckPos 104 -1 -1 140
0 Message "It turns out to be nothing."
0 Pause
0 ExitZM
50 SetRedraw 1
0 BREAK
51 SetRedraw 1
0 Random 50 0
0 SetZMRetreat -CREATURE TARGET
0 BREAK
100 DBG "DBG: Grassland"
0 CRandom 75 -  25 500
0 AlterTiles 35 5 5
0 CRandom 35 -  35 210  30 220
0 GOTO 200
110 DBG "DBG: Swamp"
0 AlterTiles 2 4 5
0 AlterTiles 2 3 6 5 6
0 AlterTiles 2 4 7 6 7
0 CRandom 25 -  75 510
0 AlterTiles 35 4 5
0 CRandom 30 -  65 211  5 221
0 GOTO 201
120 DBG "DBG: Forest"
0 AlterTiles 2 5 4 7 6
0 AlterTiles 2 4 5
0 AlterTiles 2 6 3
0 AlterTiles 2 8 6
0 AlterTiles 2 7 7
0 CRandom 75 -  25 520
0 AlterTiles 35 6 5
0 CRandom 35 -  35 212  30 222
0 GOTO 202
130 DBG "DBG: Hills"
0 AlterTiles 111 4 4 6 6
0 AlterTiles 10 6 3
0 CRandom 75 -  25 530
0 AlterTiles 35 5 5
0 CRandom 35 -  35 214  30 224
0 GOTO 204
140 DBG "DBG: Bushes"
0 AlterTiles 2 4 4 6 6
0 AlterTiles 2 7 5
0 AlterTiles 7 4 2
0 AlterTiles 7 3 3
0 AlterTiles 7 2 4
0 AlterTiles 7 8 5 8 6
0 AlterTiles 7 4 8
0 CRandom 75 -  25 540
0 AlterTiles 35 5 5
0 CRandom 35 -  35 215  30 225
0 GOTO 205
200 CreateZMEnemies -CTYPE 10 -EGTAB OMAP -POSDEF 400
0 GOTO 300
201 CreateZMEnemies -CTYPE 10 -EGTAB OMAP -POSDEF 404
0 GOTO 300
202 CreateZMEnemies -CTYPE 10 -EGTAB OMAP -POSDEF 401
0 GOTO 300
204 CreateZMEnemies -CTYPE 10 -EGTAB OMAP -POSDEF 403
0 GOTO 300
205 CreateZMEnemies -CTYPE 10 -EGTAB OMAP -POSDEF 402
0 GOTO 300
210 VerifyRE 200 -ETAB OMAP -TYPE CREATURE -ID 11 -NOT
0 CreateZMEnemies -CTYPE 11 -EGTAB OMAP -POSDEF 400
0 GOTO 300
211 VerifyRE 201 -ETAB OMAP -TYPE CREATURE -ID 11 -NOT
0 CreateZMEnemies -CTYPE 11 -EGTAB OMAP -POSDEF 404
0 GOTO 300
212 VerifyRE 202 -ETAB OMAP -TYPE CREATURE -ID 11 -NOT
0 CreateZMEnemies -CTYPE 11 -EGTAB OMAP -POSDEF 401
0 GOTO 300
214 VerifyRE 204 -ETAB OMAP -TYPE CREATURE -ID 11 -NOT
0 CreateZMEnemies -CTYPE 11 -EGTAB OMAP -POSDEF 403
0 GOTO 300
215 VerifyRE 205 -ETAB OMAP -TYPE CREATURE -ID 11 -NOT
0 CreateZMEnemies -CTYPE 11 -EGTAB OMAP -POSDEF 402
0 GOTO 300
220 VerifyRE 200 -ETAB OMAP -TYPE CREATURE -ID 15 -NOT
0 CreateZMEnemies -CTYPE 15 -EGTAB OMAP -POSDEF 400
0 GOTO 300
221 VerifyRE 201 -ETAB OMAP -TYPE CREATURE -ID 15 -NOT
0 CreateZMEnemies -CTYPE 15 -EGTAB OMAP -POSDEF 404
0 GOTO 300
222 VerifyRE 202 -ETAB OMAP -TYPE CREATURE -ID 15 -NOT
0 CreateZMEnemies -CTYPE 15 -EGTAB OMAP -POSDEF 401
0 GOTO 300
224 VerifyRE 204 -ETAB OMAP -TYPE CREATURE -ID 15 -NOT
0 CreateZMEnemies -CTYPE 15 -EGTAB OMAP -POSDEF 403
0 GOTO 300
225 VerifyRE 205 -ETAB OMAP -TYPE CREATURE -ID 15 -NOT
0 CreateZMEnemies -CTYPE 15 -EGTAB OMAP -POSDEF 402
0 GOTO 300
300 NOOP
0 CRandom 20 -  10 301  10 302  10 303  10 304  10 305  10 306  10 307  10 308
0 GOTO 51
301 MakeMapObj Item 51 5 4
0 GOTO 51
302 MakeMapObj Item 51 5 4 -TRAP 40
0 GOTO 51
303 MakeMapObj Item 51 5 4 -TRAP 41
0 GOTO 51
304 MakeMapObj Item 51 5 4 -TRAP 38
0 GOTO 51
305 MakeMapObj Item 51 5 4 -TRAP 37
0 GOTO 51
306 MakeMapObj Item 51 5 4 -TRAP 42
0 GOTO 51
307 MakeMapObj Item 51 5 4 -TRAP 45
0 GOTO 51
308 MakeMapObj Item 51 5 4 -TRAP 39
0 GOTO 51
400 Def 4 5  6 5  5 6  4 4  6 6  4 6  6 4  5 3  3 5  7 5  7 6  3 4  6 7  5 7  4 3  6 3
401 Def 5 5  6 4  6 6  7 5  5 6  7 4  7 6  4 5  6 3  7 7  8 6  4 4  5 3  6 7  8 5  4 3
402 Def 4 5  6 5  5 6  4 4  6 6  4 6  6 4  3 5  7 4  7 5  4 7  3 6  5 7  6 3  6 7  7 3
403 Def 4 5  6 5  5 6  4 4  6 6  4 6  6 4  7 5  5 3  4 3  5 7  7 4  4 7  6 3  7 6  3 6
404 Def 5 5  4 4  3 5  4 6  5 6  3 4  3 6  6 5  4 3  4 7  6 6  5 7  2 5  6 7  7 5  4 2
500 DBG "DBG: Grassland (non-humanoid)"
0 AlterTiles 9 5 5
0 CRandom 50 -  25 610  25 620
0 GOTO 600
510 DBG "DBG: Swamp (non-humanoid)"
0 AlterTiles 9 4 5
0 CRandom 50 -  25 611  25 621
0 GOTO 601
520 DBG "DBG: Forest (non-humanoid)"
0 AlterTiles 9 6 5
0 CRandom 50 -  25 612  25 622
0 GOTO 602
530 DBG "DBG: Hills (non-humanoid)"
0 AlterTiles 9 5 5
0 CRandom 50 -  25 614  25 624
0 GOTO 604
540 DBG "DBG: Bushes (non-humanoid)"
0 AlterTiles 9 5 5
0 CRandom 50 -  25 615  25 625
0 GOTO 605
600 VerifyRE 620 -ETAB OMAP -TYPE CREATURE -ID 14 -NOT
0 CreateZMEnemies -CTYPE 14 -EGTAB OMAP -POSDEF 400
0 GOTO 700
601 VerifyRE 621 -ETAB OMAP -TYPE CREATURE -ID 14 -NOT
0 CreateZMEnemies -CTYPE 14 -EGTAB OMAP -POSDEF 404
0 GOTO 700
602 VerifyRE 622 -ETAB OMAP -TYPE CREATURE -ID 14 -NOT
0 CreateZMEnemies -CTYPE 14 -EGTAB OMAP -POSDEF 401
0 GOTO 700
604 VerifyRE 624 -ETAB OMAP -TYPE CREATURE -ID 14 -NOT
0 CreateZMEnemies -CTYPE 14 -EGTAB OMAP -POSDEF 403
0 GOTO 700
605 VerifyRE 625 -ETAB OMAP -TYPE CREATURE -ID 14 -NOT
0 CreateZMEnemies -CTYPE 14 -EGTAB OMAP -POSDEF 402
0 GOTO 700
610 VerifyRE 620 -ETAB OMAP -TYPE CREATURE -ID 76 -NOT
0 CreateZMEnemies -CTYPE 76 -EGTAB OMAP -POSDEF 400
0 GOTO 700
611 VerifyRE 621 -ETAB OMAP -TYPE CREATURE -ID 76 -NOT
0 CreateZMEnemies -CTYPE 76 -EGTAB OMAP -POSDEF 404
0 GOTO 700
612 VerifyRE 622 -ETAB OMAP -TYPE CREATURE -ID 76 -NOT
0 CreateZMEnemies -CTYPE 76 -EGTAB OMAP -POSDEF 401
0 GOTO 700
614 VerifyRE 624 -ETAB OMAP -TYPE CREATURE -ID 76 -NOT
0 CreateZMEnemies -CTYPE 76 -EGTAB OMAP -POSDEF 403
0 GOTO 700
615 VerifyRE 625 -ETAB OMAP -TYPE CREATURE -ID 76 -NOT
0 CreateZMEnemies -CTYPE 76 -EGTAB OMAP -POSDEF 402
0 GOTO 700
620 CreateZMEnemies -TERRAIN LAND -ETAB OMAP -EGTAB OMAP -CTYPE 10 -POSDEF 400
0 GOTO 700
621 CreateZMEnemies -TERRAIN LAND -ETAB OMAP -EGTAB OMAP -CTYPE 10 -POSDEF 404
0 GOTO 700
622 CreateZMEnemies -TERRAIN LAND -ETAB OMAP -EGTAB OMAP -CTYPE 10 -POSDEF 401
0 GOTO 700
624 CreateZMEnemies -TERRAIN LAND -ETAB OMAP -EGTAB OMAP -CTYPE 10 -POSDEF 401
0 GOTO 700
625 CreateZMEnemies -TERRAIN LAND -ETAB OMAP -EGTAB OMAP -CTYPE 10 -POSDEF 402
0 GOTO 700
700 NOOP
0 CRandom 70 -  25 701  5 702
0 GOTO 51
701 MakeMapObj Item 56 5 4
0 GOTO 51
702 MakeMapObj Item 56 5 4 -TRAP 45
0 GOTO 51
