TILEMASTER2004 DATA V1
LIST: 3
ZLIST: 1
T:
NOINCAP
ZONE: 3 4 29 6
SCRIPT: 140
0 CheckFlag 28 1 0
0 Pos PC -TAG 10 -CHECKTILE 1021
0 BREAK
10 CCheckPos -POS 29 4-6 -TAG 20 -POS 3 4-6 -TAG 21
0 AddKeyWords _SM 72
0 GOTO N30
20 SetFlag 27 0
0 AddKeyWords _SM 71
0 GOTO N30
21 SetFlag 27 1
0 AddKeyWords _SM 71
30 Pos PC -TAG 40 -YOS -1 -CHECKTILE 1021
0 AddKeyWords _ECP 101  _CNP 141  _MPM 301
0 CheckFlag 27 1 N35
0 Pos PC -TAG 31 -XOS -1 -CHECKEMPTY 1
0 GOTO N60
31 Pos PC -TAG 32 -XOS -1 -YOS 1 -CHECKEMPTY 1
0 GOTO N60
32 Pos PC -TAG 70 -XOS -1 -YOS 2 -CHECKEMPTY 1
0 GOTO N60
35 Pos PC -TAG 36 -XOS 1 -CHECKEMPTY 1
0 GOTO N60
36 Pos PC -TAG 37 -XOS 1 -YOS 1 -CHECKEMPTY 1
0 GOTO N60
37 Pos PC -TAG 70 -XOS 1 -YOS 2 -CHECKEMPTY 1
0 GOTO N60
40 Pos PC -TAG 50 -YOS 1 -CHECKTILE 1021
0 AddKeyWords _ECP 102  _CNP 142  _MPM 302
0 CheckFlag 27 1 N45
0 Pos PC -TAG 41 -XOS -1 -CHECKEMPTY 1
0 GOTO N60
41 Pos PC -TAG 42 -XOS -1 -YOS -1 -CHECKEMPTY 1
0 GOTO N60
42 Pos PC -TAG 70 -XOS -1 -YOS -2 -CHECKEMPTY 1
0 GOTO N60
45 Pos PC -TAG 46 -XOS 1 -CHECKEMPTY 1
0 GOTO N60
46 Pos PC -TAG 47 -XOS 1 -YOS -1 -CHECKEMPTY 1
0 GOTO N60
47 Pos PC -TAG 70 -XOS 1 -YOS -2 -CHECKEMPTY 1
0 GOTO N60
50 NOOP
0 AddKeyWords _ECP 103  _CNP 143  _MPM 303
0 CheckFlag 27 1 N55
0 Pos PC -TAG 51 -XOS -1 -CHECKEMPTY 1
0 GOTO N60
51 Pos PC -TAG 52 -XOS -1 -YOS -1 -CHECKEMPTY 1
0 GOTO N60
52 Pos PC -TAG 70 -XOS -1 -YOS 1 -CHECKEMPTY 1
0 GOTO N60
55 Pos PC -TAG 56 -XOS 1 -CHECKEMPTY 1
0 GOTO N60
56 Pos PC -TAG 57 -XOS 1 -YOS -1 -CHECKEMPTY 1
0 GOTO N60
57 Pos PC -TAG 70 -XOS 1 -YOS 1 -CHECKEMPTY 1
0 GOTO N60
60 NOOP
0 BREAK
70 DoKeyWord _SM
71 M "With a loud cracking sound the ice breaks away from the shore!"
0 Pause
72 NOOP
100 SetRedraw 0
0 DoKeyWord _ECP
101 Pos PC -ALTERTILE 9 -YOS 1 -ALTERTILE 9 -YOS 1 -ALTERTILE 9
0 GOTO N109
102 Pos PC -ALTERTILE 9 -YOS -1 -ALTERTILE 9 -YOS -1 -ALTERTILE 9
0 GOTO N109
103 Pos PC -ALTERTILE 9 -YOS -1 -ALTERTILE 9 -YOS 2 -ALTERTILE 9
109 NOOP
300 Party -CHECK !N309
0 DoKeyWord _MPM
301 Pos PC -YOS 1 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N3 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
3 Pos PC -YOS 2 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N309 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
0 GOTO N309
302 Pos PC -YOS -1 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N3 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
3 Pos PC -YOS -2 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N309 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
0 GOTO N309
303 Pos PC -YOS -1 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N3 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
3 Pos PC -YOS 1 -SETTARGET
0 Party -GETTARGETPOSPC -CHECKPC !N309 -SETCREATURE
0 CheckFlag 27 1 N1
0 Pos TARGET -XOS -1 -SETTARGET
0 GOTO N2
1 Pos TARGET -XOS 1 -SETTARGET
2 ScriptVal -POSTOCREATURE
309 NOOP
120 CheckFlag 27 1 N122
121 Move W -SIMPLE -NOTRIG
0 GOTO N140
122 Move E -SIMPLE -NOTRIG
140 DoKeyWord _CNP
141 Pos PC -ALTERTILE 1021 -YOS 1 -ALTERTILE 1021 -YOS 1 -ALTERTILE 1021
0 GOTO N200
142 Pos PC -ALTERTILE 1021 -YOS -1 -ALTERTILE 1021 -YOS -1 -ALTERTILE 1021
0 GOTO N200
143 Pos PC -ALTERTILE 1021 -YOS -1 -ALTERTILE 1021 -YOS 2 -ALTERTILE 1021
200 Party -CHECK !0
0 SetFlag 28 1
0 BREAK
END
T:
NOINCAP
NPCTERRAIN: BLOCKED
P: 3 4 3 6
P: 29 4 29 6
SCRIPT: 0
END
T:
NOINCAP
MOVEONLY
REDRAW: 0
P: 0 4 0 6
P: 32 4 32 6
SCRIPT: 25
0 Party -CHECK !0
0 CCheckPos -POS 0 4-6 -TAG 10
0 CheckMoveAction !E 0
0 AddKeyWords _SIDE 16
0 GOTO N1
0 CheckMoveAction !W 0
10 AddKeyWords _SIDE 15
1 AddKeyWords _SHOW 21
0 PartyIterator -INIT
1 PartyIterator -ETAG N2
0 DoKeyWord _SIDE
15 CCheckPos -POS 0-3 1-9 -NOT -TAG 17
0 GOTO P1
16 CCheckPos -POS 29-32 1-9 -NOT -TAG 17
0 GOTO P1
17 AddKeyWords _SHOW 20
0 GOTO P1
2 DoKeyWord _SHOW
20 M "You realize that if your party isn't all across the water when you leave then they may be stuck!"
21 BREAK
END
