//Necro Book made by Voron 
//For use with Spells made by Taran 
//And edited by Krazy_Jack 
//Further edits by Rudenid

[ITEMDEF i_SPELL_timer] 
NAME=SPELL TIMER 
ID=i_worldgem_bit 
TYPE=T_EQ_SCRIPT 
WEIGHT=0 
LAYER=layer_special 

ON=@Create 
ATTR=attr_invis|attr_decay 
MORE1=5 

ON=@Equip 
TIMER=1 
//SRC.SPELLEFFECT s_paralyze 1000 
ON=@Timer 
if ( <cont> ) 
	if ( <more1> ) 
		//cont.MESSAGE <VALSTR(<more1> )> 
		more1=<more1>-1 
		TIMER=1 
		return 1 
	else 
		//CONT.MESSAGE You can now cast again. 
		Remove 
		RETURN 1 
	endif
endif

[PLEVEL 2] 
spell 

[FUNCTION spell] 
IF <SRC.RESTEST i_SPELL_timer> 
SRC.SYSMESSAGE You cant use this ability yet! 
RETURN 1 
//ELSEIF <src.tag.magus>=0 
//SRC.SYSMESSAGE You have to be a Magus to use these spells! 
//return 1 
ELSEIF <SRC.MANA><=15 
SRC.SYSMESSAGE You do not have the mana to cast this spell right now! 
RETURN 1 
ELSEIF <ARGN>>26 
SRC.SYSMESSAGE THERE IS NO SPELL NUMBER <ARGN>! 
RETURN 1 
ELSE 
SRC.CONSUME=100 ispell_<argn> //So no memory items get left lying around...
SRC.NEWITEM=i_SPELL_timer 
SRC.ACT.EQUIP 
SRC.MANA=<SRC.MANA>+(-15) 
SRC.ANIM 011 
VAR.FACINGX=<SRC.DIR> 
SRC.NEWITEM=ispell_<argn> 
SRC.ACT.P=<SRC.P> 
SRC.ACT.MOVE <EVAL RAND(7)-3> <EVAL RAND(7)-3> 
SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_decay
SRC.ACT.TIMER=5
IF (<SRC.GM>==0)
SRC.CRIMINAL
SRC.KARMA=<SRC.KARMA>+({-50 -10})
IF (<SRC.KARMA><-10000)
SRC.KARMA=-10000
ENDIF
SRC.SPELLEFFECT s_reveal, 100.0
ENDIF
SRC.FONT 8 
SRC.SAY <SRC.ACT.NAME> 
SRC.FONT 3 
VAR.SPELLITEM=<SRC.ACT.UID> 
UID.SPELLITEM.USE 
UID.SPELLITEM.ATTR attr_invis|attr_decay
UID.SPELLITEM.TIMER 5
SRC.DIR=<VAR.FACINGX> 
//IF (<EVAL <SRC.TAG.NECROOK>> = 0)
//	IF !(<SRC.ISGM>)
//		SRC.TARG=<SRC.UID>
//		SRC.SYSMESSAGE The power rejects you, and your spell backfires!
//		UID.SPELLITEM.TRIGGER @TARGON_CHAR
//		UID.SPELLITEM.REMOVE
//	ENDIF
//ENDIF

SRC.UPDATE 
RETURN 1 
ENDIF 

[ITEMDEF ispell_1] 
// Blood Lust 
ID=i_memory 
NAME=Quan Nor 
TYPE=t_eq_script 

ON=@Create 
MORE=3 

ON=@Dclick
MOREY={ 0 300 } 
SRC.SYSMESSAGE Bare minimum skill: 1%
SRC.SYSMESSAGE Mastery skill: 30%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_batwing> && <SRC.RESTEST 1 i_reag_eye_of_newt> ))
SRC.CONSUME=i_reag_batwing 
SRC.CONSUME=i_reag_eye_of_newt 
TARGET Select the creature. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Batwing and Eye of newt! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF <SRC.TARG.BRAIN>>0 
SRC.TARG.ATTACK 
ENDIF 
REMOVE 
RETURN 1 

[ITEMDEF ispell_2] 
// Prismatic Sphere 
ID=i_memory 
NAME=Rel Grav 
TYPE=t_eq_script 

ON=@Create 
MORE=7 

ON=@Dclick 
MOREY={ 0 300 } 
SRC.SYSMESSAGE Bare minimum skill: 1%
SRC.SYSMESSAGE Mastery skill: 30%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_DAEMON_BONE> && <SRC.RESTEST 1 i_reag_DEAD_WOOD> ))
SRC.CONSUME=i_reag_DAEMON_BONE 
SRC.CONSUME=i_reag_DEAD_WOOD 
TIMER=7 
LINK=<SRC.UID> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Daemon Bone and Dead Wood! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE -1 -1 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE -1 0 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE -1 1 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 0 -1 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 0 1 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 1 -1 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 1 0 
LINK.NEWITEM=ispell_2_rock 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 1 1 
REMOVE 
RETURN 1 

[EVENTS e_prism] 
ON=@GetHit 
RETURN 1 

ON=@SpellEffect 
RETURN 1 

[EVENTS e_nopoison]
ON=@SPELLEFFECT
IF ((<ARGN>==20)||(<ARGN>==39))
RETURN 1
ENDIF

ON=@GETHIT
IF (<FLAGS>&statf_poisoned)
SPELLEFFECT s_cure, 100.0
SPELLEFFECT s_greater_heal, 100.0
ENDIF

[ITEMDEF ispell_2_rock] 
ID={ 01771 1 01772 1 } 
NAME=prismatic stone 
TYPE=t_eq_script 

ON=@Create 
COLOR={ 0789 1 07a8 1 } 
TIMER=3 
ATTR=010|attr_decay 
MORE=12 

ON=@DClick 
SRC.EFFECT 1,0,0,0,0 
SRC.DAMAGE <EVAL { 20 40 }> 0a4
SRC.SYSMESSAGE You feel foolish for touching the sphere
RETURN 1 

ON=@Timer 
IF !<MORE2> 
MORE2=<LINK.DIR> 
ENDIF 
IF <LINK.DIR>!=<MORE2> 
MORE=0 
ENDIF 
IF <MORE>==0 
LINK.EVENTS -e_prism 
REMOVE 
ENDIF 
MORE=<MORE>-1 
COLOR={ 0789 1 07a8 1 0783 1 0775 1 0786 1 } 
UPDATE 
TIMER=3 
RETURN 1 
ENDIF 

[ITEMDEF ispell_3] 
// Bestow Curse 
ID=i_memory 
NAME=An Sanct 
TYPE=t_eq_script 

ON=@Create 
MORE=5 

ON=@Dclick 
MOREY={ 800 1200 } 
SRC.SYSMESSAGE Bare minimum skill: 80%
SRC.SYSMESSAGE Mastery skill: >100%

IF <SRC.NECROMANCY> < 80.0
SRC.SYSMESSAGE That spell is beyond your ability
RETURN 1
ENDIF

IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_obsidian> && <SRC.RESTEST 1 i_reag_pumice> ))
SRC.CONSUME=i_reag_obsidian 
SRC.CONSUME=i_reag_pumice 
TARGET Select target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Obsidian and Pumice! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF (<SRC.TARG.FINDID.i_memory_bestow_curse>)
	SRC.SYSMESSAGE The target is already cursed.
	REMOVE
	RETURN 1
ENDIF

SRC.TARG.EFFECT 3,i_fx_glow_spike,60,60,0 
SRC.SFX 579
SRC.NEWITEM i_memory_bestow_curse
SRC.TARG.EQUIP <SRC.ACT.UID>
REMOVE
RETURN 1 

[ITEMDEF i_memory_bestow_curse]
ID=i_memory
NAME=Bestow Curse
TYPE=t_eq_script

ON=@Create
ATTR=attr_magic|attr_move_never|attr_invis

ON=@Equip
SRC.SYSMESSAGE You have been cursed... only a cleric book spell, a grandmaster healer, or special NPC can remove this.
SRC.SYSMESSAGE You will not regenerate hitpoints or mana until this curse is cured.
TIMERd=<SERV.REGEN0>

ON=@Timer
CONT.HITS=<EVAL <CONT.HITS> +(-1)>
CONT.MANA=<EVAL <CONT.MANA> +(-1)>
CONT.STAM=<EVAL <CONT.STAM> +(-1)>

MORE1=<EVAL <MORE1> + 1>

IF (<MORE1> = 200)
MORE1=0
CONT.SYSMESSAGE You are still cursed... you should see a cleric, grandmaster healer, or find a special NPC to cure this.
ENDIF

TIMERd=<SERV.REGEN0>
RETURN 1

[ITEMDEF ispell_4] 
// Ragnarok 
NAME=Cyl Eam Bau 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
MORE=15 

ON=@Dclick 
MOREY={ 700 1500 } 
SRC.SYSMESSAGE Bare minimum skill: 70%
SRC.SYSMESSAGE Mastery skill: >100%
IF <SRC.NECROMANCY> < 70.0
SRC.SYSMESSAGE That spell is beyond your ability
RETURN 1
ENDIF
IF <SRC.MANA> < 50
SRC.SYSMESSAGE You do not have the mana to cast this spell
RETURN 1
ENDIF

SRC.MANA=<SRC.MANA>+(-35)
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_volcanic_ash> && <SRC.RESTEST 1 i_reag_dragon_blood> ))
SRC.CONSUME=i_reag_volcanic_ash 
SRC.CONSUME=i_reag_dragon_blood 
TARGET Select victim. 
MORE2=1 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Volcanic Ash and Dragon Blood! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

IF <SRC.TARG.NPC>==0
SRC.SYSMESSAGE You cannot cast this on a player
TARGET Choose an NPC to cast this spell on
RETURN 1
endif
SRC.TARG.ATTACK 
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF <MORE2>==1 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE -3 -2 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE -2 -3 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE -1 -2 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE 0 -3 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE 1 -2 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE 2 -3 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE 3 -2 
SRC.NEWITEM=ispell_4_fire1 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=30 
SRC.ACT.COLOR={ 0 4 077a 1 } 
SRC.ACT.MOVE 0 1 
MORE2=2 
TIMER=2 
LINK=<SRC.TARG.UID> 
RETURN 1 
ENDIF 

ON=@Timer 
IF <MORE2>==2 
LINK.FLAGS=<LINK.FLAGS>|04 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -1 -1 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 0 -1 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 1 -1 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 1 0 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -1 0 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -1 1 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 0 1 
LINK.NEWITEM=ispell_4_lava 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 1 1 
LINK.NEWITEM=0131e 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 -1 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01321 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 0 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=0131e 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 1 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01326 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01333 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -1 2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01333 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 0 2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01333 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 1 2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01345 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01339 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -1 -2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01339 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 0 -2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01339 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 1 -2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=0132c 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 -2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01348 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 -2 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01342 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 -1 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01342 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 0 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=01342 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 1 
LINK.ACT.TIMER=32 
LINK.ACT.ATTR=attr_decay|010 
LINK.NEWITEM=ispell_4_sparkle1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE -2 -2 
LINK.ACT.LINK=<LINK.UID> 
LINK.NEWITEM=ispell_4_sparkle1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 0 -2 
LINK.ACT.LINK=<LINK.UID> 
LINK.NEWITEM=ispell_4_sparkle1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE 2 -2 
LINK.ACT.LINK=<LINK.UID> 
ENDIF 
REMOVE 
RETURN 1 

[ITEMDEF ispell_4_sparkle1] 
ID=037c4 
TYPE=t_normal 

ON=@Create 
attr=attr_decay|010 
TIMER=20 

ON=@Timer 
LINK.EFFECT 1,0,0,0,0 
EFFECT 1,0,0,0,0 
LINK.DAMAGE <EVAL {10 20}> 014
LINK.NEWITEM=ispell_4_fire1 
LINK.ACT.LINK=<LINK> 
LINK.ACT.P=<P> 
REMOVE 
RETURN 1 

[ITEMDEF ispell_4_fire1] 
ID=03709 
TYPE=t_fire 

ON=@Create 
TIMER=1 
MORE2=0 
ATTR=attr_decay|010 

ON=@Step 
IF (<SRC.CAN>&MT_FIRE_IMMUNE)
RETURN 1
ELSE
SRC.DAMAGE <EVAL {15 25}> 014
RETURN 1 
ENDIF

ON=@Timer 
IF (<MORE>==8)&&(!<MORE2> ) 
MORE2=1 
TIMER=4 
RETURN 1 
ENDIF 
IF <MORE2>==0 
LINK.NEWITEM=ispell_4_fire1 
LINK.ACT.P=<P> 
LINK.ACT.MOVE 0 1 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MORE=<MORE>+1 
MORE2=1 
TIMER=4 
ELSE 
REMOVE 
ENDIF 
RETURN 1 

[ITEMDEF ispell_4_lava] 
ID=012ee 
TYPE=t_fire 

ON=@Create 
TIMER=2 

ON=@Step 
IF (<SRC.CAN>&MT_FIRE_IMMUNE)
RETURN 1
ELSE
SRC.EFFECT 3,03709,1,12,0 
SRC.DAMAGE <EVAL {20 30}> 014
RETURN 1 
ENDIF

ON=@Timer 
IF <COLOR>==0 
COLOR=077a 
ELSE 
COLOR=0 
ENDIF 
UPDATE 
MORE2=<MORE2>+1 
IF <MORE2>==16 
//LINK.NEWITEM=ispell_4_fire1 
//LINK.ACT.LINK=<LINK> 
//LINK.ACT.P=<P> 
//LINK.ACT.MORE=4 
REMOVE 
ENDIF 
TIMER=2 
RETURN 1 

[ITEMDEF ispell_5] 
// Scald 
NAME=Eam Rel 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
MORE=4 

ON=@Dclick 
MOREY={ 350 700 } 
SRC.SYSMESSAGE Bare minimum skill: 35%
SRC.SYSMESSAGE Mastery skill: 70%
IF <SRC.NECROMANCY> < 35.0
SRC.SYSMESSAGE This spell is beyond your ability.
RETURN 1
ENDIF

IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_bone> && <SRC.RESTEST 1 i_reag_pig_iron> ))
SRC.CONSUME=i_reag_bone 
SRC.CONSUME=i_reag_pig_iron 
TARGET Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Bone and Pig Iron! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 

IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.ATTACK 
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

IF !(<SRC.TARG.CAN>&MT_FIRE_IMMUNE)
VAR.DAMAGE1=15
VAR.DAMAGE2=30 
SRC.TARG.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
ENDIF
SRC.NEWITEM=03709 
SRC.ACT.TIMER=2 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.MOVE -1 -1 
SRC.ACT.ATTR=attr_decay|010 
SRC.NEWITEM=03709 
SRC.ACT.TIMER=2 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.MOVE 1 1 
SRC.ACT.ATTR=attr_decay|010 
SRC.NEWITEM=03709 
SRC.ACT.TIMER=2 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.COLOR=077a 
REMOVE 
RETURN 1 


[ITEMDEF ispell_6] 
// Whither Spell 
NAME=Cyl Kur Eam 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
MORE=4 

ON=@Dclick 
MOREY={ 400 800 } 
SRC.SYSMESSAGE Bare minimum skill: 40%
SRC.SYSMESSAGE Mastery skill: 80%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blood_spawn> && <SRC.RESTEST 1 i_reag_serpent_scale> )) 
SRC.CONSUME=i_reag_blood_spawn 
SRC.CONSUME=i_reag_serpent_scale 
TARGET Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Blood spawn and Serpent Scale! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.ATTACK 
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

IF !(<SRC.TARG.CAN>&MT_FIRE_IMMUNE)
VAR.DAMAGE1=20 
VAR.DAMAGE2=40 
SRC.TARG.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
ENDIF
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE -1 -1 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE -1 0 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE -1 1 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE 0 -1 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE 0 1 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE 1 -1 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE 1 0 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.MOVE 1 1 
REMOVE 
RETURN 1 


[ITEMDEF ispell_7] 
// Frostbite Spell 
NAME=Yae Fie Bau 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
MORE=2 

ON=@Dclick 
MOREY={ 650 950 } 
SRC.SYSMESSAGE Bare minimum skill: 65%
SRC.SYSMESSAGE Mastery skill: 95%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blackmoor> && <SRC.RESTEST 1 i_reag_executioners_cap> ))
SRC.CONSUME=i_reag_blackmoor 
SRC.CONSUME=i_reag_executioners_cap 
TARGET Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 BlackMoor and Executioners cap! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.ATTACK 
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

VAR.DAMAGE1=<EVAL <SRC.NECROMANCY>/30> 
VAR.DAMAGE2=<EVAL <VAR.DAMAGE1>+10> 
SRC.TARG.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 0204
SRC.TARG.EFFECT 0,03818,12,1,0 
SRC.TARG.NEWITEM=03709 
SRC.TARG.ACT.TIMER=2 
SRC.TARG.ACT.ATTR=attr_decay|010 
SRC.TARG.ACT.P=<SRC.TARG.P> 
SRC.TARG.ACT.COLOR=0480 
REMOVE 
RETURN 1 

[ITEMDEF ispell_8] 
// Flood 
ID=i_memory 
NAME=Cyl Vex Rel 
TYPE=t_eq_script 

ON=@Create 
MORE=7 

ON=@Dclick 
SRC.SYSMESSAGE Bare minimum skill: 45%
SRC.SYSMESSAGE Mastery skill: 80%
MOREY={ 450 800 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_blood_vial> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_blood_vial 
TIMER=7 
LINK=<SRC.UID> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 fertile Dirt and Blood vial! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -2 -2 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -2 -1 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 2 -2 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -1 -1 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 1 -1 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 2 -1 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 0 -1 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 0 -2 
LINK.NEWITEM=ispell_8_wave1 // 01fa3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 -1 

LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -2 -3 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -1 1 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -1 -2 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -1 0 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 -2 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -2 -1 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 0 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 2 
LINK.NEWITEM=ispell_8_wave2 // 01fa8 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 1 

LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 -2 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 2 -1 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 0 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 1 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 2 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 1 1 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 1 0 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 1 -2 
LINK.NEWITEM=ispell_8_wave3 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE 1 -1 

LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 1 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE -2 1 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -2 2 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -1 2 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P>
LINK.ACT.LINK=<LINK.UID> 
LINK.ACT.MOVE -1 1 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 0 2 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 0 1 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 1 2 
LINK.NEWITEM=ispell_8_wave4 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK.UID>
LINK.ACT.MOVE 2 2 


REMOVE 
RETURN 1 

[ITEMDEF ispell_8_wave1] 
ID=01fb7 

ON=@Create 
COLOR=021
TIMER=1 
MORE2=6 

ON=@Timer 
MOVE 0 -1 
MORE2=<MORE2>-1 
IF <MORE2>==0 
REMOVE 
ENDIF 
TIMER=1 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF
SRC.DAMAGE <EVAL {15 30}> 080
RETURN 0 

[ITEMDEF ispell_8_wave2] 
ID=01fbc 

ON=@Create 
COLOR=021
TIMER=1 
MORE2=6 

ON=@Timer 
MOVE -1 0 
MORE2=<MORE2>-1 
IF <MORE2>==0 
REMOVE 
ENDIF 
TIMER=1 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF
SRC.DAMAGE <EVAL {15 30}> 080
RETURN 0 

[ITEMDEF ispell_8_wave3] 
ID=01fc1 

ON=@Create 
TIMER=1 
MORE2=6 
COLOR=021

ON=@Timer 
MOVE 1 0 
MORE2=<MORE2>-1 
IF <MORE2>==0 
REMOVE 
ENDIF 
TIMER=1 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF
SRC.DAMAGE <EVAL {15 30}> 080
RETURN 0 


[ITEMDEF ispell_8_wave4] 
ID=01fc6 

ON=@Create 
TIMER=1 
MORE2=6 
COLOR=021

ON=@Timer 
MOVE 0 1 
MORE2=<MORE2>-1 
IF <MORE2>==0 
REMOVE 
ENDIF 
TIMER=1 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF
SRC.DAMAGE <EVAL {15 30}> 080
RETURN 0 


[ITEMDEF ispell_9] 
// Flashfire 
ID=i_memory 
NAME=Rel Pul Eam 
TYPE=t_eq_script 

ON=@Create 
MORE=2 

ON=@Dclick 
MOREY={ 600 950 } 
SRC.SYSMESSAGE Bare minimum skill: 60%
SRC.SYSMESSAGE Mastery skill: 95%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_brimstone> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_brimstone 
TIMER=2 
LINK=<SRC.UID> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Fertile Dirt and Brimstone! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 
IF <LINK.DIR>==0 
VAR.XMOVE=0 
VAR.YMOVE=-2 
ELIF <LINK.DIR>==4 
VAR.XMOVE=0 
VAR.YMOVE=2 
ELIF <LINK.DIR>==6 
VAR.XMOVE=-2 
VAR.YMOVE=0 
ELIF <LINK.DIR>==2 
VAR.XMOVE=2 
VAR.YMOVE=0 
ELSE 
LINK.SYSMESSAGE Try turning north, east, south or west when casting this spell! 
REMOVE 
RETURN 1 
ENDIF 

IF <VAR.YMOVE> 
LINK.NEWITEM=ispell_9_fire1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.TAG.MORE=<VAR.YMOVE> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE -2 <VAR.YMOVE> 
LINK.NEWITEM=ispell_9_fire1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.TAG.MORE=<VAR.YMOVE> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE -1 <VAR.YMOVE> 
LINK.NEWITEM=ispell_9_fire1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.TAG.MORE=<VAR.YMOVE> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 0 <VAR.YMOVE> 
LINK.NEWITEM=ispell_9_fire1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.YMOVE> 
LINK.ACT.MOVE 1 <VAR.YMOVE> 
LINK.NEWITEM=ispell_9_fire1 
LINK.ACT.P=<LINK.P> 
LINK.ACT.TAG.MORE=<VAR.YMOVE> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE 2 <VAR.YMOVE> 
REMOVE 
RETURN 1 
ENDIF 

IF <VAR.XMOVE> 
LINK.NEWITEM=ispell_9_fire2 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.XMOVE> 
LINK.ACT.P=<LINK.P> 
LINK.ACT.MOVE <VAR.XMOVE> -2 
LINK.NEWITEM=ispell_9_fire2 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.XMOVE> 
LINK.ACT.MOVE <VAR.XMOVE> -1 
LINK.NEWITEM=ispell_9_fire2 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.XMOVE> 
LINK.ACT.MOVE <VAR.XMOVE> 0 
LINK.NEWITEM=ispell_9_fire2 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.XMOVE> 
LINK.ACT.MOVE <VAR.XMOVE> 1 
LINK.NEWITEM=ispell_9_fire2 
LINK.ACT.P=<LINK.P> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.TAG.MORE=<VAR.XMOVE> 
LINK.ACT.MOVE <VAR.XMOVE> 2 
REMOVE 
RETURN 1 
ENDIF 

REMOVE 
RETURN 1 

[ITEMDEF ispell_9_fire1] 
ID=0398c 
NAME=flashfire 
TYPE=t_script 

ON=@Create 
TIMER=3 
COLOR=0799 
MORE2=0 

ON=@Timer 
MOVE 0 <EVAL <TAG.MORE>/2> 
IF <REGION.GUARDED> 
REMOVE 
ENDIF 
MORE2=<MORE2>+1 
LINK.NEWITEM=ispell_9_lava 
LINK.ACT.P=<P> 
IF <MORE2>==10 
REMOVE 
ELSE 
TIMER=1 
ENDIF 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF

IF !(<SRC.CAN>&MT_FIRE_IMMUNE)
SRC.DAMAGE <EVAL {20 35}> 014
SRC.WALK n
SRC.WALK n
SRC.WALK n
SRC.WALK e
SRC.WALK e
SRC.WALK e
ENDIF
RETURN 0 


[ITEMDEF ispell_9_fire2] 
ID=03996 
NAME=flashfire 
TYPE=t_script 

ON=@Create 
TIMER=3 
COLOR=0799 
MORE2=0 

ON=@Timer 
MOVE <EVAL <TAG.MORE>/2> 0 
IF <REGION.GUARDED> 
REMOVE 
ENDIF 
MORE2=<MORE2>+1 
LINK.NEWITEM=ispell_9_lava 
LINK.ACT.P=<P> 
IF <MORE2>==10 
REMOVE 
ELSE 
TIMER=1 
ENDIF 
RETURN 1 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF

IF !(<SRC.CAN>&MT_FIRE_IMMUNE)
SRC.DAMAGE <EVAL {20 35}> 014
ENDIF
SRC.WALK n
SRC.WALK n
SRC.WALK n
SRC.WALK e
SRC.WALK e
SRC.WALK e
RETURN 0 

[ITEMDEF ispell_9_lava] 
ID=012ee 
TYPE=t_normal 
NAME=molten landscape 

ON=@Create 
ATTR=attr_decay|010 
TIMER=9 

ON=@Step 
SRC.ATTACK LINK.SERIAL
IF (<SRC.KARMA> > 0 && <SRC.FLAGS>&statf_criminal=0)
LINK.CRIMINAL
ENDIF

IF !(<SRC.CAN>&MT_FIRE_IMMUNE)
SRC.DAMAGE=<EVAL {10 20}> 014
ENDIF
SRC.WALK n
SRC.WALK n
SRC.WALK n
SRC.WALK e
SRC.WALK e
SRC.WALK e
RETURN 1 

[ITEMDEF ispell_10] 
// Manabarb 
ID=i_memory 
NAME=Bau Pul 
TYPE=t_eq_script 

ON=@Create 
MORE=9 

ON=@Dclick 
SRC.SYSMESSAGE Bare minimum skill: 35%
SRC.SYSMESSAGE Mastery skill: 70%
MOREY={ 350 700 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blood_spawn> && <SRC.RESTEST 1 i_reag_pig_iron> ))
SRC.CONSUME=i_reag_blood_spawn 
SRC.CONSUME=i_reag_pig_iron 
TARGET Select target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Blood Spawn and Pig Iron! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.ATTACK
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

SRC.TARG.EFFECT 3,i_fx_curse,16,16,0 
SRC.TARG.EFFECT 3,i_fx_curse,16,16,0 
SRC.TARG.EFFECT 3,i_fx_curse,16,16,0 
SRC.NEWITEM=i_fx_sparkle 
SRC.ACT.ATTR=attr_decay 
SRC.ACT.TIMER=2 
SRC.ACT.COLOR=0785 
SRC.ACT.P=<SRC.TARG.P> 
SRC.TARG.EVENTS +e_manabarb 
SRC.TARG.SYSMESSAGE You have been manabarbed
SRC.NEWITEM=ispell_10_delay 
SRC.ACT.LINK=<SRC.TARG.UID> 
SRC.ACT.P=<SRC.TARG.P> 
REMOVE 
RETURN 1 

[ITEMDEF ispell_10_delay] 
ID=i_memory 
TYPE=t_script 

ON=@Create 
ATTR=attr_decay|010 
TIMER=30 

ON=@Timer 
LINK.EFFECT 3,i_fx_sparkle,16,16,0 
LINK.SYSMESSAGE You are no longer manabarbed
LINK.EVENTS -e_manabarb 
REMOVE 
RETURN 1 

[EVENTS e_manabarb] 
ON=@SpellCast 
VAR.TEMP=<EVAL <argn>/8>+1 
DAMAGE <EVAL <VAR.TEMP>*5> 0c4
IF rand(10)==1
SYSMESSAGE You dispel the manabarb.
EVENTS=-e_manabarb
ENDIF
EFFECT 3,i_fx_curse,16,16,0 
RETURN 0 

[EVENTS e_nocastpoison]
ON=@SpellCast
IF (<ARGN>==20)
ACT.SPELLEFFECT s_magic_reflection, 100.0
//SPELLEFFECT s_poison, 200.0
ENDIF

[EVENTS e_manathorn]
ON=@SpellCast
IF (<argn>==56)
MAGERY= (<MAGERY>-(1.0))
RETURN 0

[ITEMDEF ispell_11] 
// Release 
ID=i_memory 
NAME=Del Ock Ala 
TYPE=t_eq_script 

ON=@Create 
MORE=15 

ON=@Dclick 
SRC.SYSMESSAGE Bare minimum skill: 25%
SRC.SYSMESSAGE Mastery skill: 60%
MOREY={ 250 600 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_obsidian> && <SRC.RESTEST 1 i_reag_pumice> ))
SRC.CONSUME=i_reag_obsidian 
SRC.CONSUME=i_reag_pumice 
TARGET Select undead. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Obsidian and Pumice! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

IF !(<SRC.TARG.ISEVENT.e_undead>) 
SRC.SYSMESSAGE That is not undead! 
REMOVE 
RETURN 1 
ELSE 
SRC.TARG.EFFECT 1,0,0,0,0 
SRC.TARG.EFFECT 1,0,0,0,0 
SRC.TARG.EFFECT 1,0,0,0,0 
SRC.TARG.EFFECT 1,0,0,0,0 
SRC.TARG.EFFECT 1,0,0,0,0 
SRC.TARG.ANIM 5
SRC.TARG.BARK 1
SRC.TARG.SUMMONEDPET <SRC.UID>
SRC.TARG.SAY Maasster... what do you command?
SRC.TARG.SPEECH=+spk_return_undead
SRC.SYSMESSAGE Tell it to "return" and it will crumble to dust.

REMOVE 
RETURN 1 
ENDIF 

[SPEECH spk_return_undead]
ON=return
IF (<ISMYPET>)
	FLAGS=statf_conjured
	KARMA=-100
	KILL
	RETURN 1
ENDIF

[ITEMDEF ispell_12] 
// Wraith Form 
ID=i_memory 
NAME=Iln Xyr 
TYPE=t_eq_script 

ON=@Create 
MORE=3 

ON=@Dclick 
MOREY={ 700 950 } 
SRC.SYSMESSAGE Bare minimum skill: 70%
SRC.SYSMESSAGE Mastery skill: 95%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
REMOVE
RETURN 1
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_volcanic_ash> && <SRC.RESTEST 1 i_reag_dragon_blood> ))
SRC.CONSUME=i_reag_volcanic_ash 
SRC.CONSUME=i_reag_dragon_blood 
TIMER=3 
LINK=<SRC.UID> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Volcanic Ash and Dragon Blood! 
REMOVE
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 

IF (<CONT.FINDID.i_newincog>)
CONT.SAYUA 021,0,0,eng,*The incognito interferes with the polymorph!*
REMOVE
RETURN 1
ENDIF

IF (<CONT.FINDID.i_newpoly>)
CONT.FINDID.i_newpoly.TIMER={120 300}
ELSE
CONT.NEWITEM i_newpoly
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.TAG.OLDNAME=<CONT.NAME>
CONT.ACT.TAG.OLDOBODY=<CONT.OBODY>
CONT.ACT.TAG.OLDBODY=<CONT.BODY>
CONT.ACT.TAG.OLDFAME=<CONT.FAME>
CONT.ACT.TAG.OLDKARMA=<CONT.KARMA>
CONT.ACT.TAG.OLDSTR=<CONT.STR>
CONT.ACT.TAG.OLDDEX=<CONT.DEX>
CONT.ACT.TAG.OLDINT=<CONT.INT>
CONT.ACT.TAG.OLDCOLOR=<CONT.COLOR>
CONT.ACT.TIMER={120 300}
ENDIF

CONT.BODY=c_m_wraith
//Wraith
CONT.NAME=Wraith
CONT.COLOR=colors_gray
CONT.STR=90
CONT.DEX=270
CONT.INT=120
CONT.BARK 1
CONT.UPDATE

REMOVE
RETURN 1

//IF <MORE2>==0 
//LINK.TAG.PFORM=1 
//LINK.FLAGS=<LINK.FLAGS>|04 
//TIMER=20 
//LINK.EVENTS +e_particle 
//MORE2=1 
//RETURN 1 
//ELSE 
//LINK.TAG.PFORM=0 
//LINK.EVENTS -e_particle 
//LINK.FLAGS=<LINK.FLAGS>&~04 
//REMOVE 
//RETURN 1 
//ENDIF 

[EVENTS e_particle] 
ON=@itemDClick 
RETURN 1 

ON=@Hit 
RETURN 1 

ON=@GetHit 
RETURN 1 

ON=@SpellEffect 
RETURN 1 

ON=@SpellCast 
SYSMESSAGE You cannot do this in particle form! 
RETURN 1 



[ITEMDEF ispell_13] 
// Mass Harm 
ID=i_memory 
NAME=Vas An Mani 
TYPE=t_eq_script 

ON=@Create 
MORE=10 
MORE2=0 

ON=@Dclick 
IF <SRC.MANA> < 5
SRC.SYSMESSAGE You do not have the mana to cast this spell
REMOVE
RETURN 1
ENDIF

SRC.MANA=<SRC.MANA>+(-5)

SRC.SYSMESSAGE Bare minimum skill: 25%
SRC.SYSMESSAGE Mastery skill: 50%
MOREY={ 250 500 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_bone> && <SRC.RESTEST 1 i_reag_pig_iron> ))
SRC.CONSUME=i_reag_bone 
SRC.CONSUME=i_reag_pig_iron 
TIMER=2 
LINK=<SRC.UID> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Bone and Pig Iron! 
REMOVE
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 
CONT.NEWITEM i_fx_curse
CONT.ACT.TYPE=t_explosion
CONT.ACT.MOREX=<EVAL {10 20}>
CONT.ACT.MOREY=08c
CONT.ACT.MOREZ=10
CONT.ACT.ATTR=attr_move_never
CONT.ACT.P=<CONT.P>
CONT.ACT.TIMERd=1

REMOVE
RETURN 1

//IF <MORE2> 
//LINK.INVIS=0 
//REMOVE 
//RETURN 1 
//ELSE 
//LINK.NEWITEM=ispell_13_smoke 
//LINK.ACT.P=<LINK.P> 
//LINK.ACT.LINK=<LINK.SERIAL>
//LINK.ACT.MOVE -1 -1 
//LINK.NEWITEM=ispell_13_smoke 
//LINK.ACT.P=<LINK.P> 
//LINK.ACT.MOVE 1 -1 
//LINK.NEWITEM=ispell_13_smoke 
//LINK.ACT.P=<LINK.P> 
//LINK.ACT.MOVE -1 1 
//LINK.NEWITEM=ispell_13_smoke 
//LINK.ACT.P=<LINK.P> 
//LINK.ACT.MOVE 1 1 
//LINK.INVIS=1 
//MORE2=1 
//TIMER=5 
//ENDIF 

[ITEMDEF ispell_13_smoke] 
ID=i_fx_smoke 
NAME=smoke screen 

ON=@Create 
TIMER=5
COLOR=079e 
ATTR=attr_decay|010 

On=@Timer
LINK.INVIS 0

[ITEMDEF ispell_14] 
// Firestorm 
ID=i_memory 
NAME=Eam Haum 
TYPE=t_eq_script 

ON=@Create 
MORE=2 

ON=@DCLick 
SRC.SYSMESSAGE Bare minimum skill: 25%
SRC.SYSMESSAGE Mastery skill: 50%
MOREY={ 250 500 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blood_spawn> && <SRC.RESTEST 1 i_reag_serpent_scale> ))
SRC.CONSUME=i_reag_blood_spawn 
SRC.CONSUME=i_reag_serpent_scale 
SRC.NEWITEM=ispell_14_timer 
SRC.ACT.P=<SRC.P> 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.TIMER=2 
REMOVE 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Blood spawn and Serpent Scale! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 


[ITEMDEF ispell_14_timer] 
ID=i_memory 
NAME=Spell 14 Timer 
TYPE=t_script 

ON=@Create 
ATTR=attr_decay 

ON=@Timer 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
LINK.ISPELL_14_FIRE 
REMOVE 

[FUNCTION ISPELL_14_FIRE] 
NEWITEM=03709 
ACT.P=<P> 
ACT.MOVE <EVAL RAND(9)-5> <EVAL RAND(9)-5> 
ACT.ATTR=attr_decay 
ACT.UPDATE 
ACT.TIMER=8 
NEWITEM=03709 
ACT.P=<P> 
ACT.MOVE <EVAL RAND(9)-5> <EVAL RAND(9)-5> 
ACT.UPDATE 
ACT.ATTR=attr_decay 
ACT.TIMER=8 

[ITEMDEF ispell_15] 
// Flamewave 
ID=i_memory 
NAME=Rel Flam 
TYPE=t_eq_script 

ON=@Create 
MORE=4 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 15%
SRC.SYSMESSAGE Mastery skill: 35%
MOREY={ 150 350 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blackmoor> && <SRC.RESTEST 1 i_reag_executioners_cap> ))
SRC.CONSUME=i_reag_blackmoor 
SRC.CONSUME=i_reag_executioners_cap 
TARGET Select target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 BlackMoor and Executioners cap! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

IF <SRC.UID>==<SRC.TARG.UID> 
RETURN 1 
ENDIF 
SRC.TARGET.EFFECT 0,03709,5,16,1 
SRC.TARGET.ATTACK
IF (<SRC.TARGET.KARMA> > 0 && <SRC.TARGET.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

IF !(<SRC.TARG.CAN>&MT_FIRE_IMMUNE)
SRC.TARGET.DAMAGE <EVAL {18 29}> 094
ENDIF
REMOVE 
RETURN 1 

[ITEMDEF ispell_16] 
ID=i_memory 
TYPE=t_script 
NAME=Wall Of Brambles 

ON=@Create 
MORE=5 

ON=@DClick 
MOREY={ 100 350 } 
SRC.SYSMESSAGE Bare minimum skill: 10%
SRC.SYSMESSAGE Mastery skill: 35%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_blood_vial> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_blood_vial 
TARGETG Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 fertile Dirt and Blood vial! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_ground 
IF (<SRC.DIR>==0)||(<SRC.DIR>==1)||(<SRC.DIR>==4)||(<SRC.DIR>==5) 
VAR.MOVEX=1 
VAR.MOVEY=0 
ELSE 
VAR.MOVEX=0 
VAR.MOVEY=1 
ENDIF 
IF (<VAR.MOREX>==1) 
VAR.XINIT=0 
VAR.YINIT=-3 
ELSE 
VAR.XINIT=0 
VAR.YINIT=-3 
ENDIF 

SRC.NEWITEM=ispell_16_bramble 
SRC.ACT.P=<SRC.TARGP> 
SRC.ACT.MOVE <EVAL <VAR.XINIT>> <EVAL <VAR.YINIT>> 
SRC.ACT.MORE=<VAR.MOVEX> 
SRC.ACT.MORE2=<VAR.MOVEY> 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.ISPELL_16_MOVEIT 7 
RETURN 1 

[FUNCTION ISPELL_16_MOVEIT] 
IF (0<ARGS>==0) 
RETURN 1 
ENDIF 
LINK.NEWITEM=ispell_16_bramble 
LINK.ACT.P=<P> 
LINK.ACT.MOVE <EVAL <MORE>> <EVAL <MORE2>> 
LINK.ACT.EFFECT 2,0376a,1,15,1 
IF <MORE> 
MORE=<MORE>+1 
ELSEIF <MORE2> 
MORE2=<MORE2>+1 
ENDIF 
ISPELL_16_MOVEIT <EVAL <ARGS>-1> 
RETURN 0 


[ITEMDEF ispell_16_bramble] 
ID=i_plant_bramble 
TYPE=t_script 

ON=@Create 
COLOR=077a 
ATTR=attr_decay 
TIMER=20 

ON=@DClick 
SRC.EFFECT 3,03709,1,15,1 
SRC.DAMAGE <EVAL {30 45}> 
RETURN 1 

ON=@Timer 
REMOVE 
RETURN 1 

[ITEMDEF ispell_17] 
ID=i_memory 
TYPE=t_script 
NAME=An Mani Hur 

ON=@Create 
MORE=3 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 45%
SRC.SYSMESSAGE Mastery skill: 80%
MOREY={ 450 800 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_brimstone> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_brimstone 
TARGET Select creature. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Fertile Dirt and Brimstone! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.EFFECT 3,0374a,16,16,0
SRC.TARG.SFX snd_spell_mass_curse

SRC.TARG.WOUND <EVAL 15 + RAND(<SRC.NECROMANCY> / 10.0)>
SRC.TARG.ATTACK
REMOVE
RETURN 1

//IF (0<SRC.TARG.MEMORYFINDTYPE.MEMORY_IPET.UID>==0) 
//SRC.SYSMESSAGE This creature is not a pet! 
//RETURN 1 
//ENDIF 
//VAR.OWNER=<SRC.TARG.MEMORYFINDTYPE.MEMORY_IPET.LINK> 
//SRC.TARG.MEMORYFINDTYPE.MEMORY_IPET.COLOR=02095 
//SRC.TARG.FLAGS=<SRC.TARG.FLAGS>|statf_war 
//SRC.NEWITEM=ispell_17_attacker 
//SRC.ACT.LINK=<SRC.TARG.UID>
//SRC.ACT.CONT=<VAR.OWNER> 
//SRC.TARG.EMOTE attack <SRC.UID.OWNER.NAME>. 
//RETURN 1 

[ITEMDEF ispell_17_attacker] 
ID=i_memory 
TYPE=t_eq_script 
NAME=Spell 17 Attacker 

ON=@Create 
TIMER=1 

ON=@Equip 
LINK.ATTACK 
RETURN 1 

ON=@Timer 
LINK.ATTACK 
REMOVE
RETURN 1 

[ITEMDEF ispell_18] 
// Tempest 
ID=i_memory 
TYPE=t_script 
NAME=TEMPEST 

ON=@Create 
MORE=3 

ON=@Dclick 
IF (<REGION.FLAGS>&region_flag_underground)
SRC.SYSMESSAGE It is foolish to even try summoning a storm underground
RETURN 1
ENDIF

SRC.SYSMESSAGE Bare minimum skill: 60%
SRC.SYSMESSAGE Mastery skill: 85%
MOREY={ 600 850 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blood_spawn> && <SRC.RESTEST 1 i_reag_pig_iron> ))
SRC.CONSUME=i_reag_blood_spawn 
SRC.CONSUME=i_reag_pig_iron 
TARGETG Select target! 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Blood Spawn and Pig Iron! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Ground 
SRC.SYSMESSAGE The storm has been seeded. 
SRC.NEWITEM=ispell_18_storm 
SRC.CRIMINAL
SRC.ACT.P=<SRC.TARGP> 
SRC.ACT.LINK=<SRC.UID> 
REMOVE 
RETURN 1 

[ITEMDEF ispell_18_storm] 
ID=i_memory 
TYPE=t_script 
NAME=Spell 18 Executer 

ON=@Create 
TIMER=0 
ATTR=attr_decay 

ON=@Timer 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
ISPELL_18_LIGHTNING 
REMOVE 
RETURN 1 

[FUNCTION ispell_18_lightning] 
LINK.NEWNPC=c_storm_man 
LINK.ACT.P=<P> 
LINK.ACT.MOVE <EVAL RAND(7)-4> <EVAL RAND(7)-4> 
LINK.ACT.WALK W 
LINK.ACT.WALK E 
LINK.NEWITEM=ispell_18_mem 
LINK.ACT.P=<P> 
LINK.ACT.MOVE <EVAL RAND(7)-4> <EVAL RAND(7)-4> 
LINK.NEWITEM=ispell_18_mem 
LINK.ACT.P=<P> 
LINK.ACT.MOVE <EVAL RAND(7)-4> <EVAL RAND(7)-4> 
LINK.NEWITEM=ispell_18_mem 
LINK.ACT.P=<P> 
LINK.ACT.MOVE <EVAL RAND(7)-4> <EVAL RAND(7)-4> 


[EVENTS ispell_e_18] 
ON=@ItemStep 
SRC.ACT.EFFECT 2,03709,1,15,1 
RETURN 0 

ON=@Click 
RETURN 1 

[CHARDEF c_storm_man] 
ID=01a8 
CAN=mt_equip|mt_walk 
TEVENTS=ispell_e_18 


ON=@Create
KARMA=-2000

ON=@NPCRestock 
ITEMNEWBIE=ispell_18_mem 

ON=@Death
CRIMINAL 1
RETURN 0

[ITEMDEF ispell_18_mem] 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
TIMER=0 
ATTR=attr_decay 

ON=@Step 
IF !(<SRC.ID>==c_h_necromancer || <SRC.ID>==c_h_necromancer_f)
SRC.EFFECT 3,03709,1,15,1 
SRC.DAMAGE <EVAL {15 30}> 034
ENDIf

ON=@Timer 
IF (<CONT> ) 
CONT.EFFECT 1,0,0,0,0 
CONT.REMOVE 
ELSE 
IF (<MORE> ) 
REMOVE 
ELSE 
MORE=1 
TIMER=3 
ENDIF 
ENDIF 
RETURN 1 

[ITEMDEF i_lightning_effect]
ID=i_worldgem_bit
NAME=Lightning Effect
TYPE=t_eq_script

ON=@Create
ATTR=0b0

ON=@Timer
IF !(<LINK.ISCHAR>)
	REMOVE
	RETURN 1
ENDIF

LINK.NAME=" "
LINK.EFFECT 1,1
P=<LINK.P>
TIMERd=<EVAL {1 10}>
RETURN 1

[ITEMDEF ispell_19] 
ID=i_memory 
TYPE=t_script 
NAME=SPELL 19 

ON=@Create 
MORE=3 

ON=@DClick
SRC.SYSMESSAGE Bare minimum skill: 1%
SRC.SYSMESSAGE Mastery skill: 30%
MOREY={ 0 300 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_obsidian> && <SRC.RESTEST 1 i_reag_pumice> ))
SRC.CONSUME=i_reag_obsidian 
SRC.CONSUME=i_reag_pumice 
TARGET Select Target! 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Obsidian and Pumice! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

IF <SRC.TARG.NPC> > 0
SRC.TARG.FLEE 
SRC.TARG.TAG.OLDDEX=<SRC.TARG.DEX> 
SRC.TARG.DEX=10000 
SRC.NEWITEM=ispell_44_mem 
SRC.ACT.CONT=<SRC.TARG.UID> 
ENDIF
REMOVE 
RETURN 1 

[ITEMDEF ispell_44_mem] 
ID=i_memory 
TYPE=t_eq_script 

ON=@Create 
TIMER=20 
ATTR=attr_decay 

ON=@Timer 
CONT.DEX=<CONT.TAG.OLDDEX> 
REMOVE 
RETURN 1 

[ITEMDEF ispell_48_mem] 
ID=i_memory 
TYPE=t_eq_script 
NAME=Spell 48 Undo'er 

ON=@Create 
TIMER={ 450 800 }
ATTR=attr_decay 

ON=@Equip
TIMER={ 450 800 }
SRC.EVENTS=+e_changereset

ON=@Timer 
CONT.FLAGS=statf_conjured
CONT.REMOVE
RETURN 1 

[EVENTS e_changereset]
ON=@EnvironChange
IF (<FINDID.ispell_48_mem>)
	IF (<FINDID.ispell_48_mem.TIMER> < 0)
		FLAGS=statf_conjured
		REMOVE
	ENDIF
ENDIF

ON=@NPCSeeNewPlayer
IF (<FINDID.ispell_48_mem>)
	IF (<FINDID.ispell_48_mem.TIMER> < 0)
		FLAGS=statf_conjured
		REMOVE
	ENDIF
ENDIF

[ITEMDEF ispell_20] 
// Mimic 
ID=i_memory 
TYPE=t_script 
NAME=Summon Mimic

ON=@Create 
MORE=3 

ON=@Dclick 
MOREY={ 850 1100 } 
SRC.SYSMESSAGE Bare minimum skill: 85%
SRC.SYSMESSAGE Mastery skill: 110%
SRC.SYSMESSAGE Double click the mimic and it will take your form
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_volcanic_ash> && <SRC.RESTEST 1 i_reag_dragon_blood> ))
SRC.CONSUME=i_reag_volcanic_ash 
SRC.CONSUME=i_reag_dragon_blood 
TIMER=3 
LINK=<SRC.UID> 
MOREP=<SRC.P> 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Volcanic Ash and Dragon Blood! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Timer 
LINK.NEWNPC=c_man_mimic
LINK.ACT.P=<LINK.P>
LINK.ACT.WALK n
LINK.ACT.WALK s
LINK.ACT.DCLICK
RETURN 1

[CHARDEF c_man_mimic]
ID=c_man
CAN=mt_walk|mt_equip

ON=@CREATE
FLAGS=008000000|statf_conjured
EVENTS=+e_mimic_once
EVENTS=+e_dispelpoof
ITEMNEWBIE=ispell_48_mem //2-3 minutes until they poof

//SERV.ALLCLIENTS ispell_45_checker <LINK> 

[EVENTS e_dispelpoof]
ON=@SPELLEFFECT
IF <ARGN>=41
REMOVE
ENDIF
IF <ARGN>=54
REMOVE
ENDIF

[FUNCTION ispell_45_checker] 
ACT=<ARGS> 
IF <ACT.DISTANCE><6 
ispell_45_sand 
ispell_45_sand 
ispell_45_sand 
ispell_45_sand 
ispell_45_sand 
ispell_45_sand 
ispell_45_sand 
ENDIF 

[FUNCTION ispell_45_sand] 
NEWITEM=0376a 
ACT.TIMER=2 
ACT.COLOR=02e4 
ACT.ATTR=attr_decay 
ACT.P=<P> 
ACT.MOVE <EVAL RAND(7)-3> <EVAL RAND(7)-3> 
ACT.TYPE ispell_t_sand 
NEWITEM=0376a 
ACT.TIMER=2 
ACT.COLOR=02e4 
ACT.ATTR=attr_decay 
ACT.P=<P> 
ACT.MOVE <EVAL RAND(7)-3> <EVAL RAND(7)-3> 
ACT.TYPE ispell_t_sand 

[TYPEDEF ispell_t_sand] 
ON=@Step 
SRC.DAMAGE {20 40} 
SRC.ispell_45_sand 
SRC.ispell_45_sand 
SRC.ispell_45_sand 
SRC.ispell_45_sand 
REMOVE 
RETURN 1 

[ITEMDEF ispell_21] 
// Summon Undead
ID=i_memory 
TYPE=t_script 
NAME=Summon Undead

ON=@Create 
MORE=3 

ON=@Dclick 
MOREY={ 50 500 } 
SRC.SYSMESSAGE Bare minimum skill: 5%
SRC.SYSMESSAGE Mastery skill: 50%
SRc.SYSMESSAGE Able to summon better undead with higher skill
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_bone> && <SRC.RESTEST 1 i_reag_pig_iron> ))
SRC.CONSUME=i_reag_bone 
SRC.CONSUME=i_reag_pig_iron 
//SRC.MANA=<SRC.MANA>+(15)
SRC.SKILLMENU sm_summon_undead
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Bone and Pig Iron! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

[ITEMDEF ispell_22] 
ID=i_memory 
TYPE=t_script 
NAME=FORTIFY 

ON=@Create 
MORE=3 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 30%
SRC.SYSMESSAGE Mastery skill: 55%
MOREY={ 300 550 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SOUND 011c 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blood_spawn> && <SRC.RESTEST 1 i_reag_serpent_scale> ))
SRC.CONSUME=i_reag_blood_spawn 
SRC.CONSUME=i_reag_serpent_scale 
TARGET Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Blood spawn and Serpent Scale! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
SRC.ISPELL_49_WALL -1 -1 
SRC.ISPELL_49_WALL -1 0 
SRC.ISPELL_49_WALL -1 1 
SRC.ISPELL_49_WALL 0 -1 
SRC.ISPELL_49_WALL 0 1 
SRC.ISPELL_49_WALL 1 -1 
SRC.ISPELL_49_WALL 1 0 
SRC.ISPELL_49_WALL 1 1 
REMOVE 
RETURN 1 

[FUNCTION ispell_49_wall] 

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

SRC.NEWITEM=02c9 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=15 
SRC.ACT.P=<SRC.TARG.P> 
SRC.ACT.MOVE <ARGS> 
SRC.ACT.EFFECT 2,0376a,1,15,1 
IF <SRC.TARG.NPC>==0
SRC.NEWITEM=02c9 
SRC.ACT.ATTR=attr_decay|010 
SRC.ACT.TIMER=15 
SRC.ACT.P=<SRC.P> 
SRC.ACT.MOVE <ARGS> 
SRC.ACT.EFFECT 2,0376a,1,15,1 
ENDIF

[ITEMDEF ispell_23] 
ID=i_memory 
TYPE=t_script 
NAME=ENERGY TAP 

ON=@Create 
MORE=3 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 20%
SRC.SYSMESSAGE Mastery skill: 60%
MOREY={ 200 600 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SOUND 011c 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_blackmoor> && <SRC.RESTEST 1 i_reag_executioners_cap> ))
SRC.CONSUME=i_reag_blackmoor 
SRC.CONSUME=i_reag_executioners_cap 
TARGET Select Target. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 BlackMoor and Executioners cap! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 

IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

IF !<SRC.TARG.ISMYPET> 
SRC.SYSMESSAGE The target must be your pet! 
ELSE 
SRC.EFFECT 3,0376a,1,15,1 
SRC.TARG.EFFECT 2,0376a,1,15,1 
SRC.SPELLEFFECT s_greater_heal <SRC.TARG.STR> 
SRC.TARG.REMOVE 
ENDIF 
REMOVE 
RETURN 1 

[ITEMDEF ispell_24] 
ID=i_memory 
TYPE=t_script 
NAME=Raise Dead

ON=@Create 
MORE=3 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 70%
SRC.SYSMESSAGE Mastery skill: 110%
MOREY={ 700 1100 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SOUND 011c 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_blood_vial> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_blood_vial 
TARGET Select corpse to raise. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 fertile Dirt and Blood vial! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_Char 
IF (<SRC.TARG.FLAGS> & statf_dead)
	SRC.TARG.SPELLEFFECT s_resurrection, <SRC.NECROMANCY>
	RETURN 1
ENDIF

//TARGETG Target the ground, not a character! 
//RETURN 1 

ON=@Targon_Item

IF (<SRC.TARG.TYPE> = t_corpse)
	IF (<SRC.TARG.LINK.ISCHAR>)
		SRC.TARG.RESURRECT
		SRC.TARG.CONSUME i_deathshroud
	ELSE
		SRC.TARG.RAISENPC
		SRC.ACT.FLAGS=<SRC.ACT.FLAGS>|statf_conjured
		SRC.ACT.TAMING=0.0
	ENDIF
ENDIF
RETURN 1

ON=@Targon_ground 
RETURN 1
SRC.NEWITEM=ispell_52_ice 
SRC.ACT.P=<SRC.TARGP> 
SRC.ACT.LINK=<SRC.UID> 
SECTOR.SNOW 
REMOVE 
RETURN 1 

[ITEMDEF ispell_52_ice] 
ID=0374A 
NAME=ice 

ON=@Create 
COLOR=0480 
TIMER=1 
ATTR=attr_decay 
MORE=2 

ON=@Timer 
IF <MORE>==2 
ispell_52_makenew -2 -2 
ispell_52_makenew -2 0 
ispell_52_makenew -2 2 
ispell_52_makenew 0 -2 
ispell_52_makenew 0 2 
ispell_52_makenew 2 -2 
ispell_52_makenew 2 0 
ispell_52_makenew 2 2 
MORE=1 
ELIF <MORE>==1 
ispell_52_makenew -1 -1 
ispell_52_makenew -1 0 
ispell_52_makenew -1 1 
ispell_52_makenew 0 -1 
ispell_52_makenew 0 1 
ispell_52_makenew 1 -1 
ispell_52_makenew 1 0 
ispell_52_makenew 1 1 
MORE=0 
ELSE 
REMOVE 
ENDIF 
TIMER={2 6} 
RETURN 1 

ON=@Step
SRC.SPELLEFFECT s_paralyze, 100.0

[FUNCTION ispell_52_makenew] 
LINK.NEWITEM=ispell_52_ice 
LINK.ACT.P=<P> 
LINK.ACT.MORE=<EVAL <MORE>-1> 
LINK.ACT.LINK=<LINK> 
LINK.ACT.MOVE <ARGS> 
LINK.ACT.TIMER={2 6} 

ON=@Step
SRC.SPELLEFFECT s_paralyze, 100.0

[ITEMDEF ispell_25}
ID=i_memory 
TYPE=t_script 
NAME=ROOT 

ON=@Create 
MORE=3 

ON=@DClick 
MOREY={ 700 1000 } 
SRC.SYSMESSAGE Bare minimum skill: 70%
SRC.SYSMESSAGE Mastery skill: 100%
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SOUND 011c 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_fertile_dirt> && <SRC.RESTEST 1 i_reag_brimstone> ))
SRC.CONSUME=i_reag_fertile_dirt 
SRC.CONSUME=i_reag_brimstone 
TARGET Select victim. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Fertile Dirt and Brimstone! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.ATTACK
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

SRC.TARG.EFFECT 3,i_fx_sparkle,1,15,0 
SRC.TARG.EMOTE freeze. 
SRC.TARG.FLAGS=04 
SRC.NEWITEM=ispell_53_unfreezer 
SRC.ACT.CONT=<SRC.TARG.UID> 
REMOVE 
RETURN 1 

[ITEMDEF ispell_53_unfreezer] 
ID=i_memory 
TYPE=t_eq_script 
NAME=Spell 53 Thaw 

ON=@Create 
MORE=0 
TIMER=20 
ATTR=attr_decay 

ON=@Timer
IF (<CONT.STONE>==1)
CONT.STONE 0
REMOVE
RETURN 1
ENDIF 
CONT.FLAGS=<CONT.FLAGS>|04 
MORE=4
//DOSWITCH <MORE> 
//CONT.EMOTE twitch <CONT.SEX his/her> fingers 
//CONT.EMOTE spasm in <CONT.SEX his/her> muscles 
//CONT.EMOTE take a step falteringly 
//CONT.EMOTE raise <CONT.SEX his/her> arm above <CONT.SEX his/her> head 
CONT.EMOTE break into freedom 
//ENDDO 

IF <MORE>==4 
IF <CONT.FLAGS>&04 
CONT.FLAGS=<CONT.FLAGS>-04 
ENDIF 
REMOVE 
RETURN 1 
ENDIF 
MORE=<MORE>+1 
TIMER=10 
RETURN 1 

[ITEMDEF ispell_26] 
ID=i_memory 
TYPE=t_script 
NAME=Stone

ON=@Create 
MORE=3 

ON=@DClick 
SRC.SYSMESSAGE Bare minimum skill: 25%
SRC.SYSMESSAGE Mastery skill: 60%
MOREY={ 250 600 } 
IF (<MOREY>>=<SRC.NECROMANCY> ) 
SRC.ANIM 17 
SRC.SOUND 011c 
SRC.SYSMESSAGE The spell fizzles. 
SRC.SFX 005c 
ELSEIF ((<SRC.ISGM>)||(<SRC.RESTEST 1 i_reag_pig_iron> && <SRC.RESTEST 1 i_reag_brimstone> ))
SRC.CONSUME=i_reag_pig_iron 
SRC.CONSUME=i_reag_brimstone 
TARGET Select victim. 
ELSE 
SRC.SOUND 011c 
SRC.SYSMESSAGE You do not have enough regs! you need 1 Pig Iron and Brimstone! 
RETURN 1 
ENDIF 

IF (<SRC.NECROMANCY><1000) 
IF RAND(<EVAL <EVAL <SRC.NECROMANCY>/1.00>+1>) == 1 
SRC.NECROMANCY=<SRC.NECROMANCY>+<eval {1 20 2 1}> 
SRC.SYSMESSAGE You have gained more knowledge of necromancy. 
SRC.SYSMESSAGE Your skill in necromancy is now <SRC.NECROMANCY>. 
IF (<SRC.NECROMANCY>>1000) 
SRC.NECROMANCY=1000 
ENDIF 
ENDIF 
ENDIF 
RETURN 1 

ON=@Targon_char 
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE You cannot see the target.
RETURN 1
ENDIF

SRC.TARG.SFX 011d
SRC.TARG.ATTACK
IF (<SRC.TARG.KARMA> > 0 && <SRC.TARG.FLAGS>&statf_criminal=0)
SRC.CRIMINAL
ENDIF

IF (<SRC.TARG.FLAGS>&statf_reflection)
SRC.TARG.EFFECT 3, i_fx_bless_effect, 1, 19
SRC.TARG.FLAGS=<SRC.TARG.FLAGS>-000000200
SRC.TARG.SYSMESSAGE <SRC.NAME>'s spell bounces off of your magic reflect!
SRC.SYSMESSAGE The reflected spell bounces back at you!
SRC.TARG=<SRC.SERIAL>
ENDIF

SRC.NEWITEM=ispell_53_unfreezer 
SRC.TARG.STONE
SRC.ACT.CONT=<SRC.TARG.UID> 
REMOVE 
RETURN 1 

[ITEMDEF i_necrobook] 
ID=i_spellbook 
TYPE=t_eq_script
NAME=Book of Necromancy 

ON=@Create 
COLOR=01b0 
//TYPE=t_normal 

TAG.SPELL1=Empty
TAG.SPELL2=Empty
TAG.SPELL3=Empty
TAG.SPELL4=Empty
TAG.SPELL5=Empty
TAG.SPELL6=Empty
TAG.SPELL7=Empty
TAG.SPELL8=Empty
TAG.SPELL9=Empty
TAG.SPELL10=Empty
TAG.SPELL11=Empty
TAG.SPELL12=Empty
TAG.SPELL13=Empty
TAG.SPELL14=Empty
TAG.SPELL15=Empty
TAG.SPELL16=Empty
TAG.SPELL17=Empty
TAG.SPELL18=Empty
TAG.SPELL19=Empty
TAG.SPELL20=Empty
TAG.SPELL21=Empty
TAG.SPELL22=Empty
TAG.SPELL23=Empty
TAG.SPELL24=Empty
TAG.SPELL25=Empty
TAG.SPELL26=Empty

TAG.KNOWSPELL1=0
TAG.KNOWSPELL2=0
TAG.KNOWSPELL3=0
TAG.KNOWSPELL4=0
TAG.KNOWSPELL5=0
TAG.KNOWSPELL6=0
TAG.KNOWSPELL7=0
TAG.KNOWSPELL8=0
TAG.KNOWSPELL9=0
TAG.KNOWSPELL10=0
TAG.KNOWSPELL11=0
TAG.KNOWSPELL12=0
TAG.KNOWSPELL13=0
TAG.KNOWSPELL14=0
TAG.KNOWSPELL15=0
TAG.KNOWSPELL16=0
TAG.KNOWSPELL17=0
TAG.KNOWSPELL18=0
TAG.KNOWSPELL19=0
TAG.KNOWSPELL20=0
TAG.KNOWSPELL21=0
TAG.KNOWSPELL22=0
TAG.KNOWSPELL23=0
TAG.KNOWSPELL24=0
TAG.KNOWSPELL25=0
TAG.KNOWSPELL26=0

ON=@DCLICK 
SRC.TAG.NECROBOOK=<UID>
IF (<LINK>=04fffffff)
LINK=<SRC.UID>
NAME=<SRC.NAME>'s Book of Necromancy
ELSE
IF !(<LINK.SERIAL>==<SRC.SERIAL>)
SRC.SYSMESSAGE This is not your book. It belongs to <LINK.NAME>

IF (<SRC.GM>==0)
RETURN 1
ENDIF

ENDIF
ENDIF
IF <SRC.NECROMANCY> < 2.0
SRC.SYSMESSAGE Just by picking up the book you gain a very minimal knowlege of necromancy.
SRC.NECROMANCY=2.0
SRC.SYSMESSAGE Your necromancy starts at 2.0.
ENDIF

IF (<SRC.GM> == 0)
IF (<REGION.FLAGS>&region_antimagic_damage)
SRC.SYSMESSAGE An antimagic barrier prevents you from using necromancy!
RETURN 1
ENDIF

IF (<REGION.FLAGS>&region_antimagic_all)
SRC.SYSMESSAGE An antimagic barrier prevents you from using necromancy!
RETURN 1
ENDIF
ENDIF

DIALOG d_necrobook 
RETURN 1 

[DIALOG d_necrobook] 
0, 0 
PAGE 0 

gumppic 67 71 510 
text 110 270 0 81 
text 300 270 0 82 
text 110 300 0 83 

PAGE 1 
button 110 112 55 56 1 0 1 
button 110 132 55 56 1 0 2 
button 110 152 55 56 1 0 3 
button 110 172 55 56 1 0 4 
button 110 192 55 56 1 0 5 
button 110 212 55 56 1 0 6 
button 110 232 55 56 1 0 7 
button 110 252 55 56 1 0 8 
button 300 112 55 56 1 0 9 
button 300 132 55 56 1 0 10 
button 300 152 55 56 1 0 11 
button 300 172 55 56 1 0 12 
button 300 192 55 56 1 0 13 
button 300 212 55 56 1 0 14 
button 300 232 55 56 1 0 15 
button 300 252 55 56 1 0 16 
text 145 92 15 49 
text 130 110 50 0 
text 130 130 50 1 
text 130 150 50 2 
text 130 170 50 3 
text 130 190 50 4 
text 130 210 50 5 
text 130 230 50 6 
text 130 250 50 7 
text 335 92 15 50 
text 320 110 50 8 
text 320 130 50 9 
text 320 150 50 10 
text 320 170 50 11 
text 320 190 50 12 
text 320 210 50 13 
text 320 230 50 14 
text 320 250 50 15 
button 423 71 502 502 0 2 33 

PAGE 2 
button 110 112 55 56 1 0 17 
button 110 132 55 56 1 0 18 
button 110 152 55 56 1 0 19 
button 110 172 55 56 1 0 20 
button 110 192 55 56 1 0 21 
button 110 212 55 56 1 0 22 
button 110 232 55 56 1 0 23 
button 110 252 55 56 1 0 24 
button 300 112 55 56 1 0 25 
button 300 132 55 56 1 0 26 
button 300 152 55 56 1 0 27 
button 300 172 55 56 1 0 28 
button 300 192 55 56 1 0 29 
button 300 212 55 56 1 0 30 
button 300 232 55 56 1 0 31 
button 300 252 55 56 1 0 32 
text 145 92 15 51 
text 130 110 50 16 
text 130 130 50 17 
text 130 150 50 18 
text 130 170 50 19 
text 130 190 50 20 
text 130 210 50 21 
text 130 230 50 22 
text 130 250 50 23 
text 335 92 15 52 
text 320 110 50 24 
text 320 130 50 25 
text 320 150 50 26 
text 320 170 50 27 
text 320 190 50 28 
text 320 210 50 29 
text 320 230 50 30 
text 320 250 50 31 
button 67 70 501 501 0 1 33 
button 423 71 502 502 0 3 33 

PAGE 3 
button 67 70 501 501 0 2 33 
button 423 71 502 502 0 4 33 
text 145 92 15 53 // Page 
text 160 120 0 0 // Spell Name: Blood lust 
gumppic 100 125 2295 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 32 //1st 
text 110 220 0 33 //2nd 

text 345 92 15 54 //Page 
text 360 120 0 1 //Spell Name: Prismatic Sphere 
text 360 133 0 79 
gumppic 300 125 2292 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 34 //1st 
text 300 220 0 35 //2nd 

PAGE 4 
button 67 70 501 501 0 3 33 
button 423 71 502 502 0 5 33 
text 145 92 15 55 // Page 
text 160 120 0 2 // Spell Name: Bestow Curse 
gumppic 100 125 2266 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 36 //1st 
text 110 220 0 37 //2nd 

text 345 92 15 56 //Page 
text 360 120 0 3 //Spell Name: Ragnarok 
gumppic 300 125 2282 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 38 //1st 
text 300 220 0 39 //2nd 

PAGE 5 
button 67 70 501 501 0 4 33 
button 423 71 502 502 0 6 33 
text 145 92 15 57 // Page 
text 160 120 0 4 // Spell Name: Scald 
gumppic 100 125 2257 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 40 //1st 
text 110 220 0 41 //2nd 

text 345 92 15 58 //Page 
text 360 120 0 5 //Spell Name: Whither 
gumppic 300 125 2293 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 42 //1st 
text 300 220 0 43 //2nd 

PAGE 6 
button 67 70 501 501 0 5 33 
button 423 71 502 502 0 7 33 
text 145 92 15 59 // Page 
text 160 120 0 6 // Spell Name: Frostbite 
gumppic 100 125 2297 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 44 //1st 
text 110 220 0 45 //2nd 

text 345 92 15 60 //Page 
text 360 120 0 7 //Spell Name: Flood 
gumppic 300 125 2303 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 46 //1st 
text 300 220 0 35 //2nd 

PAGE 7 
button 67 70 501 501 0 6 33 
button 423 71 502 502 0 8 33 
text 145 92 15 61 // Page 
text 160 120 0 8 // Spell Name: Flashfire 
gumppic 100 125 2302 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 46 //1st 
text 110 220 0 47 //2nd 

text 345 92 15 62 //Page 
text 360 120 0 9 //Spell Name: Manabarb 
gumppic 300 125 2297 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 42 //1st 
text 300 220 0 41 //2nd 

PAGE 8 
button 67 70 501 501 0 7 33 
button 423 71 502 502 0 9 33 
text 145 92 15 63 // Page 
text 160 120 0 10 // Spell Name: Release 
gumppic 100 125 2298 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 36 //1st 
text 110 220 0 37 //2nd 

text 345 92 15 64 //Page 
text 360 120 0 11 //Spell Name: Wraith Form 
gumppic 300 125 2261 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 38 //1st 
text 300 220 0 39 //2nd 

PAGE 9 
button 67 70 501 501 0 8 33 
button 423 71 502 502 0 10 33 
text 145 92 15 65 // Page 
text 160 120 0 12 // Spell Name: Mass Harm 
gumppic 100 125 2299 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 40 //1st 
text 110 220 0 41 //2nd 

text 345 92 15 66 //Page 
text 360 120 0 13 //Spell Name: Firestorm 
gumppic 300 125 2294 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 42 //1st 
text 300 220 0 43 //2nd 

PAGE 10 
button 67 70 501 501 0 9 33 
button 423 71 502 502 0 11 33 
text 145 92 15 67 // Page 
text 160 120 0 14 // Spell Name: Flamewave 
gumppic 100 125 2302 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 44 //1st 
text 110 220 0 45 //2nd 

text 345 92 15 68 //Page 
text 360 120 0 15 //Spell Name: Wall Of Brambles 
text 360 133 0 80 
gumppic 300 125 2263 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 46 //1st 
text 300 220 0 35 //2nd 

PAGE 11 
button 67 70 501 501 0 10 33 
button 423 71 502 502 0 12 33 
text 145 92 15 69 // Page 
text 160 120 0 16 // Spell Name: Wound
gumppic 100 125 2302 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 46 //1st 
text 110 220 0 47 //2nd 

text 345 92 15 70 //Page 
text 360 120 0 17 //Spell Name: Tempest 
gumppic 300 125 2269 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 46 //1st 
text 300 220 0 35 //2nd 

PAGE 12 
button 67 70 501 501 0 11 33 
button 423 71 502 502 0 13 33 
text 145 92 15 71 // Page 
text 160 120 0 18 // Spell Name: Fear 
gumppic 100 125 2249 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 36 //1st 
text 110 220 0 37 //2nd 

text 345 92 15 72 //Page 
text 360 120 0 19 //Spell Name: Mimic 
gumppic 300 125 2269 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 38 //1st 
text 300 220 0 39 //2nd 

PAGE 13 
button 67 70 501 501 0 12 33 
button 423 71 502 502 0 14 33 
text 145 92 15 73 // Page 
text 160 120 0 20 // Spell Name: Summon Undead 
gumppic 100 125 2283 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 40 //1st 
text 110 220 0 41 //2nd 

text 345 92 15 74 //Page 
text 360 120 0 21 //Spell Name: Fortify 
gumppic 300 125 2265 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 42 //1st 
text 300 220 0 43 //2nd 

PAGE 14 
button 67 70 501 501 0 13 33 
button 423 71 502 502 0 15 33 
text 145 92 15 75 // Page 
text 160 120 0 22 // Spell Name: Enegy Tap 
gumppic 100 125 2264 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 40 //1st 
text 110 220 0 41 //2nd 

text 345 92 15 76 //Page 
text 360 120 0 23 //Spell Name: Ice Storm 
gumppic 300 125 2265 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 46 //1st 
text 300 220 0 35 //2nd 


PAGE 15 
button 67 70 501 501 0 14 33 
text 145 92 15 77 // Page 
text 160 120 0 23 // Spell Name: Root 
gumppic 100 125 2291 //Icon 

gumppic 110 175 57 //Bar 
gumppic 130 175 58 
gumppic 145 175 58 
gumppic 160 175 58 
gumppic 175 175 58 
gumppic 190 175 58 
gumppic 205 175 58 
gumppic 220 175 58 
gumppic 230 175 59 

text 110 190 5 48 //Reagents: 
text 110 205 0 46 //1st 
text 110 220 0 47 //2nd 

text 345 92 15 78 //Page 
text 360 120 0 24 //Spell Name: Stone 
gumppic 300 125 2253 //Icon 

gumppic 300 175 57 //Bar 
gumppic 315 175 58 
gumppic 330 175 58 
gumppic 345 175 58 
gumppic 360 175 58 
gumppic 375 175 58 
gumppic 390 175 58 
gumppic 405 175 58 
gumppic 415 175 59 

text 300 190 5 48 //Reagents: 
text 300 205 0 41 //1st 
text 300 220 0 32 //2nd 

[DIALOG d_necrobook TEXT] 
<TAG.SPELL1>
<TAG.SPELL2>
<TAG.SPELL3>
<TAG.SPELL4>
<TAG.SPELL5>
<TAG.SPELL6>
<TAG.SPELL7>
<TAG.SPELL8>
<TAG.SPELL9>
<TAG.SPELL10>
<TAG.SPELL11>
<TAG.SPELL12>
<TAG.SPELL13>
<TAG.SPELL14>
<TAG.SPELL15>
<TAG.SPELL16>
<TAG.SPELL17>
<TAG.SPELL18>
<TAG.SPELL19>
<TAG.SPELL20>
<TAG.SPELL21>
<TAG.SPELL22>
<TAG.SPELL23>
<TAG.SPELL24>
<TAG.SPELL25>
<TAG.SPELL26>
<TAG.SPELL27>
<TAG.SPELL28>
<TAG.SPELL29>
<TAG.SPELL30>
<TAG.SPELL31>
<TAG.SPELL32>
Batwing 
Eye of Newt 
Deamon Bone 
Blood vile 
Obsidian 
Pumice 
Volcanic Ash 
Dragon Blood 
Bone 
Pig Iron 
Blood Spawn 
Serpent Scale 
Blackmoor 
Executioners Cap 
Fertil Dirt 
Brimstone 
Reagents: 
Page 1 
Page 2 
Page 3 
Page 4 
Page 5 
Page 6 
Page 7 
Page 8 
Page 9 
Page 10 
Page 11 
Page 12 
Page 13 
Page 14 
Page 15 
Page 16 
Page 17 
Page 18 
Page 19 
Page 20 
Page 21 
Page 22 
Page 23 
Page 24 
Page 25 
Page 26 
Page 27 
Page 28 
Page 29 
Page 30 
Sphere 
Brambles 
Your necromancy:
<SRC.NECROMANCY>
script


[DIALOG d_necrobook BUTTON] 
on=1
if <TAG.KNOWSPELL1>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 1 
on=2 
if <TAG.KNOWSPELL2>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 2 
on=3 
if <TAG.KNOWSPELL3>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 3 
on=4 
if <TAG.KNOWSPELL4>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 4 
on=5 
if <TAG.KNOWSPELL5>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 5 
on=6 
if <TAG.KNOWSPELL6>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 6 
on=7 
if <TAG.KNOWSPELL7>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 7 
on=8 
if <TAG.KNOWSPELL8>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 8 
on=9
if <TAG.KNOWSPELL9>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 9 
on=10
if <TAG.KNOWSPELL10>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 10 
on=11 
if <TAG.KNOWSPELL11>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 11 
on=12
if <TAG.KNOWSPELL12>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 12 
on=13
if <TAG.KNOWSPELL13>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 13 
on=14
if <TAG.KNOWSPELL14>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 14 
on=15
if <TAG.KNOWSPELL15>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 15 
on=16 
if <TAG.KNOWSPELL16>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 16 
on=17
if <TAG.KNOWSPELL17>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 17 
on=18
if <TAG.KNOWSPELL18>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 18 
on=19
if <TAG.KNOWSPELL19>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 19 
on=20 
if <TAG.KNOWSPELL20>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 20 
on=21 
if <TAG.KNOWSPELL21>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 21 
on=22
if <TAG.KNOWSPELL22>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 22 
on=23
if <TAG.KNOWSPELL23>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 23 
on=24
if <TAG.KNOWSPELL24>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 24 
on=25
if <TAG.KNOWSPELL25>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 25 
on=26
if <TAG.KNOWSPELL26>=0
src.sysmessage You do not know this spell
return 1
endif
src.spell 26 
on=27 
src.spell 27 
on=28 
src.spell 28 
on=29 
src.spell 30 
on=30 
src.spell 31 
on=31 
src.spell 32 
on=32 
src.spell 33

//Everything below here added by Rudenid, some additions above also
[FUNCTION necro]
IF !(<RESTEST 1 i_necrobook>)
	SYSMESSAGE You must have a necromancer's spellbook to cast necromancy spells.
	RETURN 1
ENDIF

VAR.KNOWSPELL=<EVAL <FINDID.i_necrobook.TAG.KNOWSPELL<ARGN>>>

IF (<EVAL <VAR.KNOWSPELL>> == 0)
	SYSMESSAGE You do not know this spell.
ELSE
	SPELL <ARGN>
ENDIF

VAR.KNOWSPELL=

[FUNCTION fillnecrobook]
TAG.KNOWSPELL1=1
TAG.SPELL1=Blood Lust
TAG.KNOWSPELL2=1
TAG.SPELL2=Prismatic
TAG.KNOWSPELL3=1
TAG.SPELL3=Bestow Curse
TAG.KNOWSPELL4=1
TAG.SPELL4=Ragnarok
TAG.KNOWSPELL5=1
TAG.SPELL5=Scald
TAG.KNOWSPELL6=1
TAG.SPELL6=Whither
TAG.KNOWSPELL7=1
TAG.SPELL7=Frostbite
TAG.KNOWSPELL8=1
TAG.SPELL8=Flood
TAG.KNOWSPELL9=1
TAG.SPELL9=Flashfire
TAG.KNOWSPELL10=1
TAG.SPELL10=Manabarb
TAG.KNOWSPELL11=1
TAG.SPELL11=Release
TAG.KNOWSPELL12=1
TAG.SPELL12=Wraith Form
TAG.KNOWSPELL13=1
TAG.SPELL13=Mass Harm
TAG.KNOWSPELL14=1
TAG.SPELL14=Firestorm
TAG.KNOWSPELL15=1
TAG.SPELL15=Flamewave
TAG.KNOWSPELL16=1
TAG.SPELL16=Wall of Brambles
TAG.KNOWSPELL17=1
TAG.SPELL17=Wound
TAG.KNOWSPELL18=1
TAG.SPELL18=Tempest
TAG.KNOWSPELL19=1
TAG.SPELL19=Fear
TAG.KNOWSPELL20=1
TAG.SPELL20=Mimic
TAG.KNOWSPELL21=1
TAG.SPELL21=Summon Undead
TAG.KNOWSPELL22=1
TAG.SPELL22=Fortify
TAG.KNOWSPELL23=1
TAG.SPELL23=Energy Tap
TAG.KNOWSPELL24=1
TAG.SPELL24=Raise Dead
TAG.KNOWSPELL25=1
TAG.SPELL25=Root
TAG.KNOWSPELL26=1
TAG.SPELL26=Stone

[ITEMDEF i_scroll_blood_lust]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Blood Lust Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL1>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL1=1
SRC.FINDID.i_necrobook.TAG.SPELL1=Blood Lust
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_prismatic_sphere]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Prismatic Sphere Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL2>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL2=1
SRC.FINDID.i_necrobook.TAG.SPELL2=Prismatic
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_fireproof]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Bestow Curse Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL3>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL3=1
SRC.FINDID.i_necrobook.TAG.SPELL3=Bestow Curse
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_ragnarok]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Ragnarok Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL4>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL4=1
SRC.FINDID.i_necrobook.TAG.SPELL4=Ragnarok
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_scald]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Scald Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL5>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL5=1
SRC.FINDID.i_necrobook.TAG.SPELL5=Scald
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_whither]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Whither Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL6>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL6=1
SRC.FINDID.i_necrobook.TAG.SPELL6=Whither
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_frostbite]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Frostbite Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL7>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL7=1
SRC.FINDID.i_necrobook.TAG.SPELL7=Frostbite
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_flood]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Flood Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL8>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL8=1
SRC.FINDID.i_necrobook.TAG.SPELL8=Flood
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_flashfire]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Flashfire Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL9>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL9=1
SRC.FINDID.i_necrobook.TAG.SPELL9=Flashfire
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_manabarb]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Manabarb Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL10>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL10=1
SRC.FINDID.i_necrobook.TAG.SPELL10=Manabarb
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_release]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Release Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL11>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL11=1
SRC.FINDID.i_necrobook.TAG.SPELL11=Release
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_particle_form]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Wraith Form Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL12>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL12=1
SRC.FINDID.i_necrobook.TAG.SPELL12=Wraith Form
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_smoke]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Mass Harm Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL13>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL13=1
SRC.FINDID.i_necrobook.TAG.SPELL13=Mass Harm
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_firestorm]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Firestorm Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL14>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL14=1
SRC.FINDID.i_necrobook.TAG.SPELL14=Firestorm
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_flamewave]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Flamewave Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL15>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL15=1
SRC.FINDID.i_necrobook.TAG.SPELL15=Flamewave
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_wall_of_brambles]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Wall of Brambles Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL16>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL16=1
SRC.FINDID.i_necrobook.TAG.SPELL16=Wall of Brambles
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_errant_minion]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Wound Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL17>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL17=1
SRC.FINDID.i_necrobook.TAG.SPELL17=Wound
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_tempest]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Tempest Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL18>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL18=1
SRC.FINDID.i_necrobook.TAG.SPELL18=Tempest
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_fear]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Fear Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL19>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL19=1
SRC.FINDID.i_necrobook.TAG.SPELL19=Fear
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_sandstorm]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Mimic Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL20>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL20=1
SRC.FINDID.i_necrobook.TAG.SPELL20=Mimic
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_summon_undead]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Summon Undead Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL21>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL21=1
SRC.FINDID.i_necrobook.TAG.SPELL21=Summon Undead
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_fortify]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Fortify Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL22>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL22=1
SRC.FINDID.i_necrobook.TAG.SPELL22=Fortify
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_energy_tap]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Energy Tap Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL23>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL23=1
SRC.FINDID.i_necrobook.TAG.SPELL23=Energy Tap
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_raise_dead]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Raise Dead Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL24>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL24=1
SRC.FINDID.i_necrobook.TAG.SPELL24=Raise Dead
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_root]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Root Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL25>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL25=1
SRC.FINDID.i_necrobook.TAG.SPELL25=Root
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[ITEMDEF i_scroll_stone]
ID=i_scroll_magic_arrow
TYPE=t_eq_script
NAME=Stone Scroll
VALUE=1500

ON=@Create
COLOR=020

ON=@Dclick
if (<SRC.FINDID.i_necrobook.tag.KNOWSPELL26>==0 && <SRC.FINDID.i_necrobook.serial> > 0)
SRC.FINDID.i_necrobook.TAG.KNOWSPELL26=1
SRC.FINDID.i_necrobook.TAG.SPELL26=Stone
SRC.SFX 004f
SRC.SYSMESSAGE You add this spell to your necromancer's book
REMOVE
else
SRC.SYSMESSAGE This spell is already in your necromancer's book, or you do not have a necromancer's book.
return 1
endif

[CHARDEF c_h_necromancer]
DEFNAME=c_h_necromancer
NAME=#NAMES_HUMANMALE the Necromancer
ID=C_MAN
CAN=02344
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

ON=@Create
SPEECHCOLOR=0455
COLOR=colors_skin
STR={571 685}
DEX={81 95}
INT={796 910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={86.0 100.0}
NECROMANCY={86.0 100.0}
WRESTLING={20.0 60.0}
MAGICRESISTANCE={95.0 120.0}
MEDITATION={75.0 100.0}
TACTICS={15.0 38.0}

NPC=brain_human
KARMA={-8000 -9999}

ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair

ON=@NPCRestock
ITEMNEWBIE=i_npcnecro
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=0455
ITEM=i_sandals

ITEM=random_coin_purse
ITEM=i_gold,{200 400}
ITEM={ random_upper_scroll 5 random_necro_scroll 5 i_necrobook 1 }
ITEM={ random_upper_scroll 5 random_necro_scroll 5 i_necrobook 1 }
ITEM=random_necro_scroll

ON=@NPCSEENEWPLAYER
SPEECHCOLOR=0455
FINDID.i_npcnecro.LINK=<SRC.UID>
FINDID.i_npcnecro.TIMER={ 5 10 }
ATTACK

IF (<SRC.HITS> < 11)
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
ELSE
DORAND 10
BEGIN
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
END
BEGIN
//Manabarb them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Bau Pal
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.NEWITEM=i_fx_sparkle 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.COLOR=0785 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.EVENTS +e_manabarb 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_10_delay 
FINDID.i_npcnecro.LINK.ACT.LINK=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.TARG.P> 
END
BEGIN
//Cast tempest near them. Ouch.
ANIM 17
FONT=8
SAY TEMPEST
FONT=3
FINDID.i_npcnecro.MOREY={ 600 850 } 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_18_storm 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.LINK=<UID> 
END
BEGIN
//Cast frostbite on them. This'll probably hurt a bit
ANIM 17
FONT=8
SAY Yae Fie Bau
FONT=3
FINDID.i_npcnecro.MOREY={ 650 950 } 
VAR.DAMAGE1=<EVAL <NECROMANCY>/20> 
VAR.DAMAGE2=<EVAL <VAR.DAMAGE1>+10> 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 0204
FINDID.i_npcnecro.LINK.EFFECT 0,03818,12,1,0 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.COLOR=0480 
END
BEGIN
//Stone them
ANIM 17
FONT=8
SAY Stone
FONT=3
FINDID.i_npcnecro.LINK.SFX 011d
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.NEWITEM=ispell_53_unfreezer 
FINDID.i_npcnecro.LINK.ACT.CONT=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.STONE
END
BEGIN
//Cast Flamewave. One of the weaker spells
ANIM 17
FONT=8
SAY Rel Flam
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 0,03709,5,16,1 
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {18 29}> 094
END
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
ENDDO

ENDIF

RETURN 1

ON=@SpellEffect
IF (<SRC.NPC>)
IF !(<SRC.MEMORYFINDTYPE.memory_ipet>)
RETURN 1
ENDIF
ENDIF

ON=@GETHIT
IF (<SRC.ID> == <ID>)
RETURN 1
ENDIF

if !(<SRC.ID>==c_blade_spirit || <SRC.ID>==c_vortex || <SRC.ID>==<ID>)
FINDID.i_npcnecro.LINK=<SRC.UID>
//Focus on the last legitimate attacker. No easy BSes here
endif

if (<SRC.FLAGS>&statf_conjured)
SAY An Ort
ANIM 17
SRC.SPELLEFFECT s_dispel, 100.0
RETURN 1
endif

FINDID.i_npcnecro.LINK=<SRC.UID>
FINDID.i_npcnecro.TIMER={ 5 10 }
DORAND 10
BEGIN
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 014
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
END
BEGIN
//Manabarb them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Bau Pal
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.NEWITEM=i_fx_sparkle 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.COLOR=0785 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.EVENTS +e_manabarb 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_10_delay 
FINDID.i_npcnecro.LINK.ACT.LINK=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.TARG.P> 
END
BEGIN
//Cast tempest near them. Ouch.
ANIM 17
FONT=8
SAY TEMPEST
FONT=3
FINDID.i_npcnecro.MOREY={ 600 850 } 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_18_storm 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.LINK=<UID> 
END
BEGIN
//Cast frostbite on them. This'll probably hurt a bit
ANIM 17
FONT=8
SAY Yae Fie Bau
FONT=3
FINDID.i_npcnecro.MOREY={ 650 950 } 
VAR.DAMAGE1=<EVAL <NECROMANCY>/20> 
VAR.DAMAGE2=<EVAL <VAR.DAMAGE1>+10> 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 0204
FINDID.i_npcnecro.LINK.EFFECT 0,03818,12,1,0 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.COLOR=0480 
END
BEGIN
//Cast Stone. Can't move, can't speak, but invul.
ANIM 17
FONT=8
SAY Stone
FONT=3
FINDID.i_npcnecro.LINK.SFX 011d
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.NEWITEM=ispell_53_unfreezer 
FINDID.i_npcnecro.LINK.ACT.CONT=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.STONE
END
BEGIN
//Cast Flamewave. One of the weaker spells
ANIM 17
FONT=8
SAY Rel Flam
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 0,03709,5,16,1 
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {18 29}> 094
END
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
ENDDO

CATEGORY=Civilized
SUBSECTION=Outlaws & Rogues
DESCRIPTION=Necromancer (Male)

[CHARDEF c_h_necromancer_f]
DEFNAME=C_H_necromancer_f
NAME=#NAMES_HUMANFEMALE the Necromancer
ID=C_WOMAN
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

ON=@Create
SPEECHCOLOR=0455
COLOR=colors_skin
STR={571 685}
DEX={81 95}
INT={796 910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={86.0 100.0}
NECROMANCY={86.0 100.0}
WRESTLING={20.0 60.0}
MAGICRESISTANCE={95.0 120.0}
MEDITATION={75.0 100.0}
TACTICS={15.0 38.0}

NPC=brain_human
KARMA={-8000 -9999}
FAME={5000, 6000}
ITEMNEWBIE=random_female_hair
COLOR=colors_hair

ON=@NPCRestock
ITEMNEWBIE=i_npcnecro
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=0455
ITEM=i_sandals

ITEM=random_coin_purse
ITEM=i_gold,{200 400}
ITEM={ random_upper_scroll 5 random_necro_scroll 5 i_necrobook 1 }
ITEM={ random_upper_scroll 5 random_necro_scroll 5 i_necrobook 1 }
ITEM=random_necro_scroll

CATEGORY=Civilized
SUBSECTION=Outlaws & Rogues
DESCRIPTION=Necromancer (Female)

ON=@NPCSEENEWPLAYER
SPEECHCOLOR=0455
FINDID.i_npcnecro.LINK=<SRC.UID>
FINDID.i_npcnecro.TIMER={ 5 10 }
ATTACK

IF (<SRC.HITS> < 11)
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
ELSE
DORAND 10
BEGIN
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 094
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
END
BEGIN
//Manabarb them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Bau Pal
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.NEWITEM=i_fx_sparkle 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.COLOR=0785 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.EVENTS +e_manabarb 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_10_delay 
FINDID.i_npcnecro.LINK.ACT.LINK=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.TARG.P> 
END
BEGIN
//Cast tempest near them. Ouch.
ANIM 17
FONT=8
SAY TEMPEST
FONT=3
FINDID.i_npcnecro.MOREY={ 600 850 } 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_18_storm 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.LINK=<UID> 
END
BEGIN
//Cast frostbite on them. This'll probably hurt a bit
ANIM 17
FONT=8
SAY Yae Fie Bau
FONT=3
FINDID.i_npcnecro.MOREY={ 650 950 } 
VAR.DAMAGE1=<EVAL <NECROMANCY>/20> 
VAR.DAMAGE2=<EVAL <VAR.DAMAGE1>+10> 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 0204
FINDID.i_npcnecro.LINK.EFFECT 0,03818,12,1,0 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.COLOR=0480 
END
BEGIN
//Stone them
ANIM 17
FONT=8
SAY Stone
FONT=3
FINDID.i_npcnecro.LINK.SFX 011d
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.NEWITEM=ispell_53_unfreezer 
FINDID.i_npcnecro.LINK.ACT.CONT=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.STONE
END
BEGIN
//Cast Flamewave. One of the weaker spells
ANIM 17
FONT=8
SAY Rel Flam
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 0,03709,5,16,1 
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {18 29}> 094
END
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
ENDDO

ENDIF

RETURN 1

ON=@SpellEffect
IF (<SRC.NPC>)
IF !(<SRC.MEMORYFINDTYPE.memory_ipet>)
RETURN 1
ENDIF
ENDIF

ON=@GETHIT
IF (<SRC.ID> == <ID>)
RETURN 1
ENDIF

if !(<SRC.ID>==c_blade_spirit || <SRC.ID>==c_vortex || <SRC.ID>==<ID>)
FINDID.i_npcnecro.LINK=<SRC.UID>
//Focus on the last legitimate attacker. No easy BSes here
endif

if (<SRC.FLAGS>&statf_conjured)
SAY An Ort
ANIM 17
SRC.SPELLEFFECT s_dispel, 100.0
RETURN 1
endif

FINDID.i_npcnecro.LINK=<SRC.UID>
FINDID.i_npcnecro.TIMER={ 5 10 }
DORAND 10
BEGIN
//Scald them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Eaum Rel
FONT=3
VAR.DAMAGE1=20
VAR.DAMAGE2=40 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 014
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE -1 -1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.MOVE 1 1 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.COLOR=077a 
END
BEGIN
//Manabarb them
FINDID.i_npcnecro.MOREY={ 350 700 } 
ANIM 17
FONT=8
SAY Bau Pal
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.EFFECT 3,i_fx_curse,16,16,0 
FINDID.i_npcnecro.LINK.NEWITEM=i_fx_sparkle 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.COLOR=0785 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.EVENTS +e_manabarb 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_10_delay 
FINDID.i_npcnecro.LINK.ACT.LINK=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.TARG.P> 
END
BEGIN
//Cast tempest near them. Ouch.
ANIM 17
FONT=8
SAY TEMPEST
FONT=3
FINDID.i_npcnecro.MOREY={ 600 850 } 
FINDID.i_npcnecro.LINK.NEWITEM=ispell_18_storm 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.LINK=<UID> 
END
BEGIN
//Cast frostbite on them. This'll probably hurt a bit
ANIM 17
FONT=8
SAY Yae Fie Bau
FONT=3
FINDID.i_npcnecro.MOREY={ 650 950 } 
VAR.DAMAGE1=<EVAL <NECROMANCY>/20> 
VAR.DAMAGE2=<EVAL <VAR.DAMAGE1>+10> 
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {<VAR.DAMAGE1> <VAR.DAMAGE2>}> 0204
FINDID.i_npcnecro.LINK.EFFECT 0,03818,12,1,0 
FINDID.i_npcnecro.LINK.NEWITEM=03709 
FINDID.i_npcnecro.LINK.ACT.TIMER=2 
FINDID.i_npcnecro.LINK.ACT.ATTR=attr_decay|010 
FINDID.i_npcnecro.LINK.ACT.P=<FINDID.i_npcnecro.LINK.P> 
FINDID.i_npcnecro.LINK.ACT.COLOR=0480 
END
BEGIN
//Cast Stone. Can't move, can't speak, but invul.
ANIM 17
FONT=8
SAY Stone
FONT=3
FINDID.i_npcnecro.LINK.SFX 011d
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.NEWITEM=ispell_53_unfreezer 
FINDID.i_npcnecro.LINK.ACT.CONT=<FINDID.i_npcnecro.LINK.UID> 
FINDID.i_npcnecro.LINK.STONE
END
BEGIN
//Cast Flamewave. One of the weaker spells
ANIM 17
FONT=8
SAY Rel Flam
FONT=3
FINDID.i_npcnecro.LINK.EFFECT 0,03709,5,16,1 
FINDID.i_npcnecro.LINK.ATTACK
FINDID.i_npcnecro.LINK.DAMAGE <EVAL {18 29}> 094
END
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
SYSMESSAGE Nothing happens!
ENDDO

[ITEMDEF i_npcnecro] 
NAME=Necromancer's memory 
ID=i_worldgem_bit 
TYPE=T_EQ_SCRIPT 
WEIGHT=0 
LAYER=layer_special 

ON=@Create 
ATTR=attr_invis|attr_move_never
TIMER={ 5 10 }
MORE1=5 

ON=@Timer
Timer={ 5 10 }
IF (<CONT.MEMORYFINDTYPE.memory_speak>)
CONT.MEMORYFINDTYPE.memory_speak.REMOVE // They forget you every 5 seconds. Then they attack again if they see you.
ENDIF

IF (<CONT.MEMORYFINDTYPE.memory_war_targ>)
CONT.MEMORYFINDTYPE.memory_war_targ.REMOVE // They forget you every 5 seconds. Then they attack again if they see you.
ENDIF

IF (<CONT.MEMORYFINDTYPE.memory_fight>)
CONT.MEMORYFINDTYPE.memory_fight.REMOVE // They forget you every 5 seconds. Then they attack again if they see you.
ENDIF

RETURN 1

[TEMPLATE random_necro_scroll]
DEFNAME=random_necro_scroll
CATEGORY=Item Templates
SUBSECTION=Necromancy
DESCRIPTION=Random Necromancy Scroll
CONTAINER=i_bag
ITEM={ i_scroll_blood_lust 1 i_scroll_prismatic_sphere 1 i_scroll_fireproof 1 i_scroll_ragnarok 1 i_scroll_scald 1 i_scroll_whither 1 i_scroll_frostbite 1 i_scroll_flood 1 i_scroll_flashfire 1 i_scroll_manabarb 1 i_scroll_release 1 i_scroll_particle_form 1 i_scroll_smoke 1 i_scroll_firestorm 1 i_scroll_flamewave 1 i_scroll_wall_of_brambles 1 i_scroll_errant_minion 1 i_scroll_tempest 1 i_scroll_fear 1 i_scroll_sandstorm 1 i_scroll_summon_undead 1 i_scroll_fortify 1 i_scroll_energy_tap 1 i_scroll_raise_dead 1 i_scroll_root 1 i_scroll_stone 1 }

[EVENTS e_attackonsight]
ON=@NPCSEENEWPLAYER
IF !(<SRC.ISGM>)
	ATTACK
ENDIF

[EVENTS e_hitpet]
ON=@HitTry
IF (<SRC.UID> = <MEMORYFINDTYPE.memory_ipet.LINK.UID>)
	IF (<MEMORYFINDTYPE.memory_war_targ.LINK.UID> = <MEMORYFINDTYPE.memory_ipet.LINK.UID>)
		MEMORYFINDTYPE.memory_war_targ.COLOR=<MEMORYFINDTYPE.memory_war_targ.COLOR> &~ memory_war_targ
	ENDIF
	RETURN 1
ENDIF

ON=@GetHit
IF (<SRC.UID> = <MEMORYFINDTYPE.memory_ipet.LINK.UID>)
	RETURN 1
ENDIF

ON=@SpellEffect
IF (<SRC.UID> = <MEMORYFINDTYPE.memory_ipet.LINK.UID>)
	RETURN 1
ENDIF

[EVENTS e_evilhealer]

ON=@NPCSeeWantItem
IF (<ACT.TYPE> = t_corpse)
	IF (<ACT.LINK> = 04fffffff)
		TAG.REALTARGET=<ACT.UID>
	ENDIF
ENDIF

ON=@ItemStep
IF (<ACT.TYPE> = t_corpse)
	IF (<ACT.LINK> = 04fffffff)
		TAG.REALTARGET=<ACT.UID>
	ENDIF
ENDIF

ON=@NPCSeeNewPlayer

DORAND 3
SAY In Jux Sanct
SAY Uus Sanct
SAY Flam Sanct
ENDDO

ANIM 17
SPELLEFFECT s_magic_reflection, 100.0
SPELLEFFECT s_protection, 100.0
SPELLEFFECT s_reactive_armor, 100.0
ATTACK

ON=@HitTry
FLEE
IF (<SRC.NPC>)
	IF (<SRC.KARMA> < 0)
		RETURN 1
	ELSE
		RETURN 0
	ENDIF
ELSE
	RETURN 0
ENDIF

ON=@Hit
FLEE
IF (<SRC.NPC>)
	IF (<SRC.KARMA> < 0)
		RETURN 1
	ELSE
	RETURN 0
	ENDIF
ELSE
	RETURN 0
ENDIF

ON=@GetHit
if (<SRC.FLAGS> & statf_conjured)
	SAY An Ort
	ANIM 16
	SRC.SPELLEFFECT 41, 100.0
	RETURN 1
elseif (<FLAGS>&statf_poisoned)
	SAY An Nox
	ANIM 16
	SPELLEFFECT s_cure, 100.0
	SFX 480
elseif (<HITS> < <STR>-25)
	IF (RAND(4) < 3)
		SAY In Vas Mani
		ANIM 17
		SPELLEFFECT s_greater_heal, 50.0
		SFX 514
	ENDIF
endif

FLEE
IF (<SRC.NPC>)
	IF (<SRC.KARMA> < 0)
		RETURN 1
	ELSE
		RETURN 0
	ENDIF
ELSE
	RETURN 0
ENDIF

ON=@SkillStart
SPEECHCOLOR=06c5

IF ((<ACTION>==019)||(<ACTION>==skill_magery))
	//They are casting a spell...
	MANA=1000

	IF (<EVAL <TAG.REALTARGET>> != 0)
		ACT=<EVAL <TAG.REALTARGET>>
		ACTARG1=59
		TAG.REALTARGET=
		RETURN 0
	ENDIF

	IF ((<ACT.NPC>)&&(<ACT.KARMA> < 0)&&(!<ACT.MEMORYFINDTYPE.memory_ipet>))
		//It is on an NPC...

		//It is harmful
		IF (<ACTARG1>==12)
			ACTARG1=11	//Change the spell to cure
		ELSEIF (<ACTARG1>==20)
			ACTARG1=11
		ELSEIF (<ACTARG1>==38)
			ACTARG1=11
		ENDIF

	ELSE
		IF ((<ACTARG1> != 12)&&(<ACTARG1> != 20)&&(<ACTARG1> != 38))
			//They are casting a healing spell on a player or a non-red...

			IF (<ACT.FLAGS> & statf_freeze)
				ACT=<UID>
			ELSE
				DORAND 4
				ACTARG1=12
				ACTARG1=20
				ACTARG1=38
				ACT=<UID>
				ENDDO
			ENDIF

		ENDIF

		IF (<ACT.FLAGS> & statf_conjured)
			ACTARG1=41	//Dispel it.
		ENDIF
	ENDIF

	IF (<ACTARG1> == 11)
		IF !(<ACT.FLAGS> & statf_poisoned)
			ACTARG1=29
		ENDIF
	ENDIF

	IF (<ACTARG1> == 29)
		IF (<ACT.HITS> == <ACT.STR>)
			DORAND 3
			ACTARG1=7
			ACTARG1=36
			ACTARG1=15
			ENDDO
		ENDIF
	ENDIF
ENDIF

[EVENTS e_evilsummoner]
ON=@SkillStart
IF ((<EVAL <FIXACTION>>=25)||(<EVAL <FIXACTION>>==skill_magery))

	DORAND 6
		ACTARG1=20
		ACTARG1=30
		ACTARG1=38
		ACTARG1=47
		ACTARG1=58
		ACTARG1=57
	ENDDO

	IF ((<ACT.FLAGS> & statf_poisoned)&&(<ACTARG1> = 20))
		DORAND 3
			ACTARG1=47
			ACTARG1=42
			ACTARG1=58
		ENDDO
	ENDIF

	IF (<ACT.FLAGS> & statf_freeze)
		IF ((<ACT.MAGERY> > 40.0)&&(<ACT.MANA> > 30))
			ACTARG1=53
		ELSE
			ACTARG1=51
		ENDIF

		IF (<ACT.FINDID.i_rune_paralyze_field>)
			IF !(<ACT.FLAGS> & statf_poisoned)
				ACTARG1=20
			ELSE
				IF ((<ACT.MAGERY> > 40.0)&&(<ACT.MANA> > 30))
					ACTARG1=53
				ELSE
					DORAND 2
					ACTARG1=28
					ACTARG1=51
					ENDDO
				ENDIF
			ENDIF
		ENDIF
	ENDIF


	IF ((<ACTARG1> = 47)||(<ACTARG1>=28))
		TARGP=<ACT.P>
		NEWITEM i_scroll_haste
		ACT.ATTR=attr_invis|attr_magic|attr_move_never
		ACT.P=1,1
		ACT.MORE1=4
		ACT.LINK=<UID>
		ACT.TIMERd=1
		ACT=0
	ENDIF
ENDIF

ON=@NPCSEENEWPLAYER
ATTACK
SAY Kal Xen
ANIM 17
SRC.NEWNPC { c_zombie 2 c_skeleton 2 c_m_ghost 2 c_m_ghoul 2 c_liche 2 c_m_skeletonarcher 2 c_bear_polar 5 c_bear_grizzly 2 c_wisp 1 c_elem_earth 2 c_elem_fire 2 c_elem_air 2 c_elem_water 2 c_daemon 1}
SRC.ACT.FLAGS=<SRC.ACT.FLAGS>|statf_conjured
SRC.ACT.EVENTS=+e_dispelpoof
SRC.ACT.EVENTS=+e_attackonsight
SRC.ACT.EVENTS=+e_hitpet
SRC.ACT.EVENTS=+e_changereset
SRC.ACT.P=<SRC.P>
SRC.ACT.ANIM 5
SRC.ACT.SFX 533
SRC.ACT.SUMMONEDPET <UID>
SRC.ACT.ATTACK

IF ((<SRC.RESTEST i_potion_lava>)||(<SRC.RESTEST i_potion_explosionless>)||(<SRC.RESTEST i_potion_explosion>)||(<SRC.RESTEST i_potion_explosiongreat>))
SAY In Por Ylem
ANIM 16
SRC.SFX 485
SRC.EFFECT 0, i_fx_fireball_small, 1,1,1
SRC.DAMAGE 01 090
ENDIF

RETURN 1

ON=@SpellEffect

IF (<SRC.UID> = <UID>)
	RETURN 1
ENDIF

IF ((<SRC.DISTANCE> > 50)&&(!<CANSEE>))
	RETURN 0
ENDIF

IF (<SRC.ID> == c_h_evilhealer)
RETURN 0
ELSEIF (<SRC.ID> == c_h_evilhealer_f)
RETURN 0
ENDIF

if (<SRC.NPC> == 11)
SAY An Ort
SRC.SPELLEFFECT 41, 100.0
RETURN 1
endif

if (<SRC.MEMORYFINDTYPE.memory_ipet.LINK.UID>=<UID>)
SRC.FLAGS=<SRC.FLAGS> &~ statf_war
IF (<SRC.MEMORYFINDTYPE.memory_war_targ.LINK.UID>=<UID>)
SRC.MEMORYFINDTYPE.memory_war_targ.COLOR=0102
ENDIF

IF <MEMORYFINDTYPE.memory_war_targ>
SRC.NEWITEM=ispell_17_attacker 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.CONT=<MEMORYFINDTYPE.memory_war_targ.LINK.UID> 
ENDIF

IF !(<SRC.MEMORYFINDTYPE.memory_ipet>)
SRC.SUMMONEDPET <UID>
ENDIF

RETURN 1
endif

if (<SRC.FLAGS>&statf_conjured)
ANIM 17
if (<SRC.NPC> == 11)
SAY An Ort
SRC.SPELLEFFECT 41, 100.0
else
SAY Rel Ort Xen
SRC.FLAGS=<SRC.FLAGS> &~ statf_war

SRC.MEMORYFINDTYPE.memory_war_targ.REMOVE

IF (<MEMORYFINDTYPE.memory_war_targ>)
SRC.NEWITEM=ispell_17_attacker 
SRC.ACT.LINK=<SRC.UID> 
MEMORYFINDTYPE.memory_war_targ.LINK.EQUIP <SRC.ACT.UID>
ENDIF

SRC.MEMORYFINDTYPE.memory_ipet.LINK.SYSMESSAGE You feel that <SRC.NAME> has deserted you.
SRC.MEMORYFINDTYPE.memory_ipet.REMOVE

SRC.SUMMONEDPET <UID>

endif

RETURN 1

endif

IF (rand(2) == 1)
SAY Kal Xen
ANIM 17
SRC.NEWNPC { c_zombie 2 c_skeleton 2 c_m_ghost 2 c_m_ghoul 2 c_liche 2 c_m_skeletonarcher 2 c_bear_polar 5 c_bear_grizzly 2 c_wisp 1 c_elem_earth 2 c_elem_fire 2 c_elem_air 2 c_elem_water 2 c_daemon 1}
SRC.ACT.FLAGS=<SRC.ACT.FLAGS>|statf_conjured
SRC.ACT.EVENTS=+e_dispelpoof
SRC.ACT.EVENTS=+e_attackonsight
SRC.ACT.EVENTS=+e_hitpet
SRC.ACT.P=<SRC.P>
SRC.ACT.ANIM 5
SRC.ACT.SFX 533
SRC.ACT.SUMMONEDPET <UID>
SRC.ACT.ATTACK
ENDIF

IF (<SRC.NPC>)
	RETURN 1
ENDIF

ON=@GetHit

if (<SRC.NPC> == 11)
SAY An Ort
SRC.SPELLEFFECT 41, 100.0
RETURN 1
endif

IF ((<SRC.DISTANCE> > 50)&&(!<CANSEE>))
	RETURN 0
ENDIF

IF (<SRC.NPC> != 0)
	IF (<SRC.MEMORYFINDTYPE.memory_ipet>)
		SAY Kal Xen
		ANIM 17
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.NEWNPC { c_m_ghost 2 c_m_ghoul 2 c_liche 2 c_m_skeletonarcher 2 c_bear_polar 5 c_bear_grizzly 2 c_wisp 1 c_elem_earth 2 c_elem_fire 2 c_elem_air 2 c_elem_water 2 c_daemon 1}
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.FLAGS=<SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.FLAGS>|statf_conjured
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.EVENTS=+e_dispelpoof
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.EVENTS=+e_attackonsight
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.EVENTS=+e_hitpet
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.P=<SRC.MEMORYFINDTYPE.memory_ipet.LINK.P>
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.ANIM 5
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.SFX 533
		SRC.MEMORYFINDTYPE.memory_ipet.LINK.ACT.SUMMONEDPET <UID>
		IF (RAND(3)=1)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

if (<SRC.MEMORYFINDTYPE.memory_ipet.LINK.UID>=<UID>)
SRC.FLAGS=<SRC.FLAGS> &~ statf_war
IF (<SRC.MEMORYFINDTYPE.memory_war_targ.LINK.UID>=<UID>)
SRC.MEMORYFINDTYPE.memory_war_targ.COLOR=0102
ENDIF

IF <MEMORYFINDTYPE.memory_war_targ>
SRC.NEWITEM=ispell_17_attacker 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.CONT=<MEMORYFINDTYPE.memory_war_targ.LINK.UID> 
ENDIF

IF !(<SRC.MEMORYFINDTYPE.memory_ipet>)
SRC.SUMMONEDPET <UID>
ENDIF

RETURN 1
endif

if (<SRC.FLAGS>&statf_conjured)
ANIM 17
if (<SRC.NPC> == 11)
SAY An Ort
SRC.SPELLEFFECT 41, 100.0
else
SAY Rel Ort Xen
SRC.FLAGS=<SRC.FLAGS> &~ statf_war

SRC.MEMORYFINDTYPE.memory_war_targ.REMOVE

IF (<MEMORYFINDTYPE.memory_war_targ>)
SRC.NEWITEM=ispell_17_attacker 
SRC.ACT.LINK=<SRC.UID> 
SRC.ACT.CONT=<MEMORYFINDTYPE.memory_war_targ.LINK.UID> 
ENDIF

SRC.MEMORYFINDTYPE.memory_ipet.LINK.SYSMESSAGE You feel that <SRC.NAME> has deserted you.
SRC.MEMORYFINDTYPE.memory_ipet.REMOVE

SRC.SUMMONEDPET <UID>

endif

RETURN 1

endif

IF (rand(2) == 1)
IF ((<SRC.RESTEST i_potion_lava>)||(<SRC.RESTEST i_potion_explosionless>)||(<SRC.RESTEST i_potion_explosion>)||(<SRC.RESTEST i_potion_explosiongreat>))
SAY In Por Ylem
ANIM 16
SRC.SFX 485
SRC.EFFECT 0, i_fx_fireball_small, 1,1,1
SRC.DAMAGE 01 090
ENDIF
ENDIF

IF (rand(2) == 1)
SAY Kal Xen
ANIM 17
SRC.NEWNPC { c_zombie 2 c_skeleton 2 c_m_ghost 2 c_m_ghoul 2 c_liche 2 c_m_skeletonarcher 2 c_bear_polar 5 c_bear_grizzly 2 c_wisp 1 c_elem_earth 2 c_elem_fire 2 c_elem_air 2 c_elem_water 2 c_daemon 1}
SRC.ACT.FLAGS=<SRC.ACT.FLAGS>|statf_conjured
SRC.ACT.EVENTS=+e_dispelpoof
SRC.ACT.EVENTS=+e_attackonsight
SRC.ACT.EVENTS=+e_hitpet
SRC.ACT.EVENTS=+e_changereset
SRC.ACT.P=<SRC.P>
SRC.ACT.ANIM 5
SRC.ACT.SFX 533
SRC.ACT.SUMMONEDPET <UID>
SRC.ACT.ATTACK
ENDIF

IF (<SRC.NPC>)
RETURN 1
ENDIF

[CHARDEF C_H_EVILHEALER]
DEFNAME=C_H_EVILHEALER
NAME=#NAMES_HUMANMALE the Evil Healer
ID=C_MAN
DESIRES=t_corpse
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_rehello
TSPEECH=spk_needs
TSPEECH=spk_human_default

TEVENTS=e_evilhealer

ON=@Create
NPC=11
COLOR=colors_skin
STR={81 105}
DEX={81 95}
INT=1000

KARMA={-5000 -3001}
FAME={2000 4000}

ANATOMY={85.0 98.0}
FORENSICS={35.0 58.0}
HEALING={95.0 100.0}
MAGERY=100.0
SPIRITSPEAK={55.0 78.0}
WRESTLING={75.0 98.0}
TACTICS={65.0 95.0}

ITEMNEWBIE=i_spellbook
MORE1=012094c48
MORE2=0828

ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair

ON=@NPCRestock
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=colors_yellow
ITEM=i_sandals
ITEM=random_coin_purse

[CHARDEF C_H_EVILHEALER_F]
DEFNAME=C_H_EVILHEALER_F
NAME=#NAMES_HUMANFEMALE the Evil Healer
ID=C_WOMAN
DESIRES=t_corpse
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_rehello
TSPEECH=spk_needs
TSPEECH=spk_human_default

TEVENTS=e_evilhealer

ON=@Create
NPC=11
COLOR=colors_skin
STR={81 105}
DEX={81 95}
INT=1000

KARMA={-5000 -3001}
FAME={2000 4000}

ANATOMY={85.0 98.0}
FORENSICS={35.0 58.0}
HEALING={95.0 100.0}
MAGERY=100.0
SPIRITSPEAK={55.0 78.0}
WRESTLING={75.0 98.0}
TACTICS={65.0 95.0}

ITEMNEWBIE=i_spellbook
MORE1=012094c48
MORE2=0828

ITEMNEWBIE=random_female_hair
COLOR=colors_hair

ON=@NPCRestock
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=colors_yellow
ITEM=i_sandals
ITEM=random_coin_purse

[EVENTS e_timemage]
ON=@SkillStart

IF (<EVAL <FIXACTION>> = 25)
	IF ((<ACTARG1> = 20)&&(<ACT.FLAGS> & statf_poisoned))
		ACTARG1=51
	ENDIF
ENDIF

IF !(<ACT.ISCHAR>)
	RETURN 0
ENDIF

IF (<EVAL <TAG.HASTESCROLL>> = 0)
	VAR.OLDACT=<ACT.UID>
	NEWITEM i_scroll_haste
	TAG.HASTESCROLL=<ACT.UID>
	ACT.ATTR=attr_invis|attr_magic|attr_move_never
	ACT.P=<P>
	ACT.MORE1=30
	ACT.LINK=<UID>
	ACT.TIMERd=0
	ACT=<EVAL <VAR.OLDACT>>
	VAR.OLDACT=
ELSE
	VAR.OLDACT=<ACT.UID>
	ACT=<EVAL <TAG.HASTESCROLL>>
	IF !(<ACT.ISITEM>)
		TAG.HASTESCROLL=0
	ELSE
		ACT.MORE1=30
	ENDIF

	ACT=<EVAL <VAR.OLDACT>>
	VAR.OLDACT=
ENDIF

ON=@NPCSeeNewPlayer
IF (<ISGM>)
	RETURN 1
ENDIF

ATTACK

IF (<EVAL <TAG.HASTESCROLL>> = 0)
	VAR.OLDACT=<ACT.UID>
	NEWITEM i_scroll_haste
	TAG.HASTESCROLL=<ACT.UID>
	ACT.ATTR=attr_invis|attr_magic|attr_move_never
	ACT.P=1,1
	ACT.MORE1=30
	ACT.LINK=<UID>
	ACT.TIMERd=0
	ACT=<EVAL <VAR.OLDACT>>
	VAR.OLDACT=
ELSE
	VAR.OLDACT=<ACT.UID>
	ACT=<EVAL <TAG.HASTESCROLL>>
	ACT.MORE1=30
	ACT=<EVAL <VAR.OLDACT>>
	VAR.OLDACT=
ENDIF

RETURN 0

[CHARDEF c_h_timemage]
DEFNAME=c_h_timemage
NAME=#NAMES_HUMANMALE the Time Mage
ID=C_MAN
CAN=02344
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

TEVENTS=e_timemage

ON=@Create
COLOR=colors_skin
STR={1871 2085}
DEX={381 495}
INT={3196 3910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={200.0 250.0}
NECROMANCY={96.0 100.0}
WRESTLING=100.0
MACEFIGHTING=100.0
MAGICRESISTANCE={125.0 150.0}
MEDITATION=100.0
TACTICS=100.0

NPC=brain_beserk
KARMA=-10000
FAME=10000

ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair

ON=@NPCRestock
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=05ad
ITEM=i_hat_tricorne
COLOR=05ad
ITEM=i_sandals

ITEM=i_gold, { 15000 20000 }
ITEM=ttm_lvl5,R3
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 }
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 }
ITEM=random_filthy_rich_magic_loot
ITEM=random_filthy_rich_magic_loot
ITEM={ random_weapon_vanq 1 random_armor_invulnerability 1 }
ITEM=random_rare_mustangs
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM=random_necro_scroll
ITEM=random_necro_scroll

ITEMNEWBIE=i_spellbook
//ADDSPELL=s_poison
ADDSPELL=s_lightning
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_energy_vortex
ADDSPELL=s_explosion
ADDSPELL=s_meteor_swarm

ITEM=i_staff_summoner
NAME=Time Mage's staff

[CHARDEF c_h_timemage_f]
DEFNAME=c_h_timemage_f
NAME=#NAMES_HUMANFEMALE the Time Mage
ID=C_WOMAN
CAN=02b44
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

TEVENTS=e_timemage

ON=@Create
COLOR=colors_skin
STR={1871 2085}
DEX={381 495}
INT={3196 3910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={200.0 250.0}
NECROMANCY={96.0 100.0}
WRESTLING=100.0
MACEFIGHTING=100.0
MAGICRESISTANCE={125.0 150.0}
MEDITATION=100.0
TACTICS=100.0

NPC=brain_beserk
KARMA=-10000
FAME=10000

ITEMNEWBIE=random_female_hair
COLOR=colors_hair

ON=@NPCRestock
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=05ad
ITEM=i_hat_tricorne
COLOR=05ad
ITEM=i_sandals

ITEM=i_gold, { 15000 20000 }
ITEM=ttm_lvl5,R3
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 }
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 }
ITEM=random_filthy_rich_magic_loot
ITEM=random_filthy_rich_magic_loot
ITEM={ random_weapon_vanq 1 random_armor_invulnerability 1 }
ITEM=random_rare_mustangs
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM={ i_scroll_haste 1 i_scroll_slow 1 i_scroll_stop 1 i_scroll_water_walk 1 i_scroll_healing_wind 1 }
ITEM=random_necro_scroll
ITEM=random_necro_scroll

ITEMNEWBIE=i_spellbook
//ADDSPELL=s_poison
ADDSPELL=s_lightning
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_energy_vortex
ADDSPELL=s_explosion
ADDSPELL=s_meteor_swarm

ITEM=i_staff_summoner
NAME=Time Mage's staff

[CHARDEF c_h_evilsummoner]
DEFNAME=c_h_evilsummoner
NAME=#NAMES_HUMANMALE the Evil Summoner
ID=C_MAN
CAN=02344
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

TEVENTS=e_evilsummoner

ON=@Create
COLOR=colors_skin
STR={1400 1585}
DEX={281 495}
INT={1196 1910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={200.0 300.0}
NECROMANCY={96.0 100.0}
WRESTLING=100.0
MAGICRESISTANCE={125.0 150.0}
MEDITATION={75.0 100.0}
TACTICS={65.0 88.0}

NPC=brain_human
KARMA={-8000 -9999}
FAME=8000

ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair

ON=@NPCRestock
//ITEMNEWBIE=i_npcnecro
//NAME=Summoner's Memory
ITEM=i_staff_summoner
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=colors_all
ITEM=i_sandals

ITEM=i_gold, { 1400 2000 }
ITEM=ttm_lvl5,R99
ITEM={ random_common_mustangs 2 random_rare_mustangs 1 },R5
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 }, R4
ITEM={ random_upper_scroll 8 random_necro_scroll 3 }
ITEM={ random_upper_scroll 3 random_necro_scroll 3 }

ITEMNEWBIE=i_spellbook
ADDSPELL=s_poison
ADDSPELL=s_lightning
ADDSPELL=s_paralyze
ADDSPELL=s_energy_vortex
ADDSPELL=s_earthquake

[CHARDEF c_h_evilsummoner_f]
DEFNAME=c_h_evilsummoner_f
NAME=#NAMES_HUMANFEMALE the Evil Summoner
ID=C_WOMAN
CAN=02b44
DESIRES=i_gold,t_wand,t_reagent,t_bone
AVERSIONS=t_TRAP,t_lavabomb,i_fx_field_fire,i_fx_field_fire_ns,i_fx_poison_field,i_fx_field_paralyze,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_human_default

TEVENTS=e_evilsummoner

ON=@Create
COLOR=colors_skin
STR={1400 1585}
DEX={281 495}
INT={1196 1910}
EVENTS=+e_nopoison

//ALIGNMENT=EVIL
//SPELLCIRCLESS=5-8

EVALUATINGINTEL={55.0 78.0}
INSCRIPTION={76.0 90.0}
MAGERY={200.0 300.0}
NECROMANCY={96.0 100.0}
WRESTLING=100.0
MAGICRESISTANCE={125.0 150.0}
MEDITATION={75.0 100.0}
TACTICS={65.0 88.0}

NPC=brain_human
KARMA={-8000 -9999}
FAME=8000

ITEMNEWBIE=random_female_hair
COLOR=colors_hair

ON=@NPCRestock
//ITEMNEWBIE=i_npcnecro
//NAME=Summoner's Memory
ITEM=i_staff_summoner
ITEM=RANDOM_LIGHT
ITEM=i_robe
COLOR=colors_all
ITEM=i_sandals

ITEM=i_gold, { 1400 2000 }
ITEM=ttm_lvl5,R99
ITEM={ random_common_mustangs 2 random_rare_mustangs 1 },R5
ITEM={ random_rich_magic_loot 1 random_filthy_rich_magic_loot 1 },R4
ITEM={ random_upper_scroll 8 random_necro_scroll 3 }
ITEM={ random_upper_scroll 3 random_necro_scroll 3 }

ITEMNEWBIE=i_spellbook
ADDSPELL=s_poison
ADDSPELL=s_lightning
ADDSPELL=s_paralyze
ADDSPELL=s_paralyzation_field
ADDSPELL=s_energy_vortex
ADDSPELL=s_earthquake

[FUNCTION SUMMONEDPET]
FLAGS=<FLAGS>|statf_pet
FLAGS=<FLAGS>|statf_conjured
NEWITEM i_memory
ACT.LINK=<ARGS>
ACT.COLOR=0102
ACT.MORE2=<ARGS>
ACT.TIMER=-1
EQUIP <ACT.UID>

NEWITEM ispell_48_mem
TIMER={450 800}
EQUIP <ACT.UID>

[FUNCTION SUMMONUNDEAD]
NEWNPC=<ARGS>
ACT.FLAGS=<ACT.FLAGS>|statf_conjured
ACT.EVENTS=+e_dispelpoof
ACT.P=<P>
ACT.ANIM 5
ACT.SFX 533
ACT.SUMMONEDPET <UID>

[EVENTS e_onlyfiremagic]
ON=@SpellCast
IF ((<ARGN> != 5)&&(<ARGN> != 18)&&(<ARGN> != 28)&&(<ARGN> != 43)&&(<ARGN> != 51)&&(<ARGN> != 55)&&(<ARGN> != 63))
	SYSMESSAGE You can only cast fire magic.
	RETURN 1
ENDIF

[EVENTS e_evil_alchemist]
ON=@GetHit
	IF ((<HITS> < <EVAL <STR> / 2>)&&(<RESTEST 1 i_potion_heal>))
		SPELLEFFECT <FINDID.i_potion_heal.MOREX>,<FINDID.i_potion_heal.MOREY>
		FINDID.i_potion_heal.REMOVE
	ENDIF

	IF ((<FLAGS> & statf_poisoned)&&(<RESTEST 1 i_potion_cure>))
		SPELLEFFECT <FINDID.i_potion_cure.MOREX>,<FINDID.i_potion_cure.MOREY>
		FINDID.i_potion_cure.REMOVE
	ENDIF

	IF ((<STAM> < <EVAL <DEX> / 10>)&&(<RESTEST 1 i_potion_refresh>))
		SPELLEFFECT <FINDID.i_potion_refresh.MOREX>,<FINDID.i_potion_refresh.MOREY>
		FINDID.i_potion_refresh.REMOVE
	ENDIF

ON=@SpellEffect
	TRIGGER @GetHit

ON=@SkillStart
	//Magery. Throw an explosion potion at them too.
	IF ((<REVERSEFIXACTION>==019)&&(<RESTEST 1 i_potion_lava>))
		FINDID.i_potion_lava.LINK=<UID>
		FINDID.i_potion_lava.MORE2=5
		FINDID.i_potion_lava.ATTR=attr_move_never
		FINDID.i_potion_lava.TIMER=1
		FINDID.i_potion_lava.P=<ACT.P>
	ELSEIF ((<REVERSEFIXACTION>==019)&&(<RESTEST 1 i_potion_explosiongreat>))
		FINDID.i_potion_explosiongreat.LINK=<UID>
		FINDID.i_potion_explosiongreat.TIMER=1
		FINDID.i_potion_explosiongreat.MOREX=4
		FINDID.i_potion_explosiongreat.P=<ACT.P>
		ACT.RESEND
	ELSEIF ((<REVERSEFIXACTION>==019)&&(<RESTEST 1 i_potion_explosion>))
		FINDID.i_potion_explosion.LINK=<UID>
		FINDID.i_potion_explosion.TIMER=1
		FINDID.i_potion_explosion.MOREX=4
		FINDID.i_potion_explosion.P=<ACT.P>
		ACT.RESEND
	ENDIF

[ITEMDEF i_necro_wall]
ID=029e
TYPE=t_comm_crystal
NAME=wall with runes scratched into the surface

ON=@Create
SPEECH=spkNecroWall
ATTR=attr_move_never
COLOR=1001

ON=@Step
IF (<SRC.NPC>==brain_guard)
	SRC.SUICIDE
ENDIF

IF ((<SRC.NECROMANCY> < 40.0)&&(<SRC.MAGICRESISTANCE> < 50.0))
	SRC.SYSMESSAGE You feel the chill of necromancy upon your soul.
	SRC.DAMAGE <EVAL { 15 30 }> 02cc 0
ELSE
	SRC.SYSMESSAGE You feel necromancy at work, but have the knowledge or innate resistance to avoid any harmful effects.
ENDIF

DOSWITCH <SRC.DIR>
	SRC.MOVE n
	SRC.MOVE ne
	SRC.MOVE e
	SRC.MOVE se
	SRC.MOVE s
	SRC.MOVE sw
	SRC.MOVE w
	SRC.MOVE nw
ENDDO

DISPID=029e
COLOR=1001
SFX 544
UPDATEX

ON=@Timer
DISPID=029e
COLOR=1001
SFX 544
UPDATEX
RETURN 1

[SPEECH spkNecroWall]
ON=Quan Nor
SFX 499
DISPID=03709
COLOR=01
TIMER=10
UPDATEX