[FUNCTION F_CURSE_WEAPON_EXPIRE]
SOUND=0FA
TAG0.LIFELEECH -= 100
IF (<TAG0.LIFELEECH> == 0)
TAG.LIFELEECH=
ENDIF
TAG.CURSE.WEAPON=

[Spell 104]
DEFNAME=s_Curse_Weapon
NAME=Curse Weapon
SOUND=0
RUNES=
CAST_TIME=0.7
RESOURCES=1 i_reag_pig_iron
RUNE_ITEM=0
SCROLL_ITEM=0
FLAGS=spellflag_playeronly
EFFECT_ID=
EFFECT=
DURATION=0.0
MANAUSE=7
SKILLREQ=SKILL_NECROMANCY 0.1
INTERRUPT=0.0,0.0

ON=@Start
IF (<ISPLAYER>)
	IF (<WEAPON>)
	SAY @,3,1 An Sanct Gra Char
	ELSE
	SYSMESSAGELOC -1,501078
	RETURN 1
	ENDIF
ENDIF

ON=@Effect
IF !(<WEAPON>)
SYSMESSAGELOC -1,501078
RETURN 1
ELSE
SOUND=0387
effect 3,03779,1,18,0,32,2
effect 3,037B9,1,18,0,32,5
LOCAL.DURATION=<EVAL (<SPIRITSPEAK>/34)+1>
	IF (!(<TAG0.CURSE.WEAPON>))
	TAG0.LIFELEECH += 100
	TAG.CURSE.WEAPON=1
	TIMERF <dLOCAL.DURATION>,F_CURSE_WEAPON_EXPIRE
	ENDIF
ENDIF

[EOF]