TILEMASTER2004 DATA V1
LIST: 1
T:
MOVEONLY
P: 14 6
SCRIPT: 35
0 M "A very strong, strange, and yet very positive feeling suddenly comes over you, like everything here is alive with some kind of magnificent power.  You think you hear strange music coming from somewhere, but you cannot quite make it out."
0 Pause
0 PartyIterator -INIT
1 PartyIterator -CHECKSPLIT -ETAG N2 -PNAME
0 GivePCMB 4 15 15
0 GOTO P1
2 NOOP
0 CheckFlag 30 1 10
0 SetFlag 30
0 Give XP 7500 -SHOW
0 Pause
0 Party -ACHARTOTARGET -GETPPC -SETACHAR -PNAME
0 CM "The strange feeling leaves you quite invigorated" -NL "You gain 1 point in all attributes!" -NL
0 Give STR 1
0 Give AGI 1
0 Give STA 1
0 Give INT 1
0 Give WIS 1
0 Give CHA 1
0 Party -TARGETTOACHAR
10 PartyIterator -INIT
1 PartyIterator -CHECKSPLIT -ETAG N20
0 CheckItem 256 1 11
0 CheckItem 255 1 12
0 GOTO P1
11 Pause
0 TakeItem 256
0 GiveItem 255
0 GOTO N15
12 Pause
0 SetItem INV 255 -CHARGES MAX
15 Party -PNAME
0 M "Something in your inventory glows briefly!"
0 GOTO P1
20 Script 701
END
