TILEMASTER2004 DATA V1
SCRIPT: 100
0 CheckFlagSwitch SFLAG 0 100  1 110  2 115
100 CheckSPCost 5 > SP 191 -MULT 2
0 CM "1: " -SPELLNAME 5 " (" -SPCOST 5*2 " SP)" -NL
0 AddKeyWords 1 101
0 CheckSPCost 6 > SP 190 -MULT 2
0 CM "2: " -SPELLNAME 6 " (" -SPCOST 6*2 " SP)" -NL
0 AddKeyWords 2 102
0 CheckSPCost 2 > SP 190 -MULT 2
0 CM "3: " -SPELLNAME 2 " (" -SPCOST 2*2 " SP)" -NL
0 AddKeyWords 3 103
0 CheckSPCost 7 > SP 190 -MULT 2
0 CM "4: " -SPELLNAME 7 " (" -SPCOST 7*2 " SP)" -NL
0 AddKeyWords 4 104
0 CheckSPCost 21 > SP 190 -MULT 2
0 CM "5: " -SPELLNAME 21 " (" -SPCOST 21*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 5 -NL
0 AddKeyWords _SPELL 151
0 GOTO N199
102 CM -SPELLNAME 6 -NL
0 AddKeyWords _SPELL 152
0 GOTO N199
103 CM -SPELLNAME 2 -NL
0 AddKeyWords _SPELL 150
0 GOTO N199
104 CM -SPELLNAME 7 -NL
0 AddKeyWords _SPELL 153
0 GOTO N199
105 CM -SPELLNAME 21 -NL
0 AddKeyWords _SPELL 154
0 GOTO N199
110 AddKeyWords _SPELL 160
0 GOTO N199
115 AddKeyWords _SPELL 165
0 GOTO N199
191 M "You cannot cast any of the spells"
0 GOTO N41
199 NOOP
0 Party -CHECK N10
0 GOTO N20
10 Party -CHECKSPLIT 20
0 CM "Enter party ID (0 for list)"
0 CheckZoom ATTACKTYPE 11
0 M " or T to target creature"
0 AddKeyWords T 20
0 GOTO N12
11 CM -NL
12 CM "WHICH-"
0 Party -SELECT -CHECKPC !40 -CHECKPCDEAD 40 -CHECKISACHAR 40 -SETCREATURE
0 FX 3 104
0 GOTO N50
20 CM "TARGET"
0 SelectTarget 40 0 NOZOOM 41
0 CM -NL
0 Pos TARGET -TAG 30 -SETTARGETCREATURE
0 FX 3 104 -TARGET
0 GOTO N50
30 Party -CHECKSPLIT !40
0 Party -GETTARGETPOSPC -CHECKPC !40 -SETCREATURE
0 FX 3 104 -TARGET
0 GOTO N50
40 M "NONE!"
41 BREAK ABORT
50 DoKeyWord _SPELL
150 Heal 1d10+4 -TARGET
0 Set PCSP -S2 -MULT 2
0 BREAK
151 Heal 1d6 -TARGET
0 Set PCSP -S5 -MULT 2
0 BREAK
152 Heal 1d8+2 -TARGET
0 Set PCSP -S6 -MULT 2
0 BREAK
153 Heal 1d10+15 -TARGET
0 Set PCSP -S7 -MULT 2
0 BREAK
154 Heal MAX -TARGET
0 Set PCSP -S21 -MULT 2
0 BREAK
160 Cure -TARGET
0 BREAK
165 Cure -SLEEP -TARGET
