TILEMASTER2004 DATA V1
SCRIPT: 60
0 M "You use a wand"
0 CCheckItem -CHARGES 0 == 0 220
20 CheckItem 255 1 21
0 CheckItem 256 1 21
0 GOTO 50
21 CheckItem 257 1 22
0 CheckItem 258 1 22
0 GOTO 50
22 CheckItem 259 1 23
0 CheckItem 260 1 23
0 GOTO 50
23 CheckItem 261 1 25
0 CheckItem 262 1 25
0 GOTO 50
25 CM "Both this wand and the 3 other related wands in your inventory begin to glow brightly!  Do you wish to channel this extra power? "
0 Verify 140
50 CheckFlagSwitch SFLAG  0 100  1 110  2 120  3 130
0 M "ERROR (Summon element entity script): Invalid SFLAG"
0 BREAK
100 CM "DIRECT"
0 SelectCreateAlly C95 200
0 FX 3 104
0 CreateAlly 95 -SETHOSTILE
0 GOTO 210
110 CM "DIRECT"
0 SelectCreateAlly C96 200
0 FX 3 104
0 CreateAlly 96 -SETHOSTILE
0 GOTO 210
120 CM "DIRECT"
0 SelectCreateAlly C97 200
0 FX 3 104
0 CreateAlly 97 -SETHOSTILE
0 GOTO 210
130 CM "DIRECT"
0 SelectCreateAlly C98 200
0 FX 3 104
0 CreateAlly 98 -SETHOSTILE
0 GOTO 210
140 CM "DIRECT"
0 SelectCreateAlly C99 200
0 FX 3 104
0 CreateAlly 99 -SETHOSTILE
0 GOTO 210
200 BREAK ABORT
210 CCheckItem -CHARGES 0 == 1 215
0 BREAK
215 TakeItemEx TARGET
0 GiveItem -REFID
0 BREAK TRM
220 M "The wand has no charges remaining, but unlike many other wands, has not disintegrated.  Perhaps it can be recharged."
