TILEMASTER2004 DATA V1
SCRIPT: 100
0 CheckFlagSwitch SFLAG 0 100  1 120  2 125
100 CheckSPCost 66 > SP 191 -MULT 2
0 CM "1: " -SPELLNAME 66 " (" -SPCOST 66*2 " SP)" -NL
0 AddKeyWords 1 101
0 CheckSPCost 67 > SP 190 -MULT 2
0 CM "2: " -SPELLNAME 67 " (" -SPCOST 67*2 " SP)" -NL
0 AddKeyWords 2 102
0 CheckSPCost 65 > SP 190 -MULT 2
0 CM "3: " -SPELLNAME 65 " (" -SPCOST 65*2 " SP)" -NL
0 AddKeyWords 3 103
0 CheckSPCost 68 > SP 190 -MULT 2
0 CM "4: " -SPELLNAME 68 " (" -SPCOST 68*2 " SP)" -NL
0 AddKeyWords 4 104
0 CheckSPCost 69 > SP 190 -MULT 2
0 CM "5: " -SPELLNAME 69 " (" -SPCOST 69*2 " SP)" -NL
0 AddKeyWords 5 105
0 M "0: None"
190 CM "Which? "
0 DoKeyInput
0 M "NONE"
0 GOTO N41
101 CM -SPELLNAME 66 -NL
0 AddKeyWords _SPELL 151
0 GOTO N199
102 CM -SPELLNAME 67 -NL
0 AddKeyWords _SPELL 152
0 GOTO N199
103 CM -SPELLNAME 65 -NL
0 AddKeyWords _SPELL 150
0 GOTO N199
104 CM -SPELLNAME 68 -NL
0 AddKeyWords _SPELL 153
0 GOTO N199
105 CM -SPELLNAME 69 -NL
0 AddKeyWords _SPELL 154
0 GOTO N199
120 AddKeyWords _SPELL 170
0 GOTO N199
125 AddKeyWords _SPELL 175
0 GOTO N199
191 M "You cannot cast any of the spells"
0 GOTO N41
199 NOOP
0 Party -CHECK N10
0 GOTO N40
10 Party -CHECKSPLIT 20
0 M "Enter party ID (0 for list)"
0 CM "WHICH-"
0 Party -SELECT -CHECKPC !40 -CHECKPCDEAD 40 -CHECKISACHAR 40 -UPDATEACHAR -ACHARTOTARGET -SETACHAR -SETUPACHAR
0 GOTO N50
20 CM "TARGET"
0 SelectTarget 40
0 CM -NL
 
0 Pos TARGET -TAG 21 -SETTARGETCREATURE
0 M "Invalid target"
0 GOTO N41
21 Party -GETTARGETPOSPC -CHECKPC !40 -UPDATEACHAR -ACHARTOTARGET -SETACHAR -SETUPACHAR
0 GOTO N50
40 M "NONE!"
41 BREAK ABORT
50 DoKeyWord _SPELL
150 Script -spell-21
0 CheckState ABORT 65
0 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 Set PCSP -S65 -MULT 2
0 BREAK
151 Script -spell-21 -SFLAG 1
0 CheckState ABORT 65
0 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 Set PCSP -S66 -MULT 2
0 BREAK
152 Script -spell-21 -SFLAG 2
0 CheckState ABORT 65
0 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 Set PCSP -S67 -MULT 2
0 BREAK
153 Script -spell-21 -SFLAG 3
0 CheckState ABORT 65
0 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 Set PCSP -S68 -MULT 2
0 BREAK
154 Script -spell-21 -SFLAG 4
0 CheckState ABORT 65
0 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 Set PCSP -S69 -MULT 2
0 BREAK
170 Script -spell-24 -GETSTATE
0 CheckState ABORT 65
0 GOTO N60
175 Script -spell-28 -GETSTATE
0 CheckState ABORT 65
60 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 BREAK
65 Party -UPDATEACHAR -TARGETTOACHAR -SETUPACHAR
0 BREAK ABORT
