//By ©Ø®D€€

[ITEMDEF i_bow_wizard]
DEFNAME=i_bow_wizard
ID=i_bow
NAME=Bow Of Wizard

RESOURCES=20 i_log, 1 i_spellbook
SKILLMAKE=99.5 BOWCRAFT, 55.0 MAGERY

CATEGORY=Provisions - Weapons
SUBSECTION=Bows - Exceptional
DESCRIPTION=Bow Of Poison

ON=@EQUIP
IF (<SRC.MAGERY> < 90.0)<BR>SRC.FINDLAYER(2).UNEQUIP
SRC.SYSMESSAGE=Your knowledge in magery is too low to use this. (90.0 Magery)
RETURN 1
ENDIF
IF (<SRC.ARCHERY> < 95.0)<BR>SRC.FINDLAYER(2).UNEQUIP
SRC.SYSMESSAGE=You are not a good enough archer to use this. (95.0 Archery)
RETURN 1

ON=@CREATE
HITPOINTS=100
COLOR=11

ON=@DAMAGE
VAR.X=RAND(7)
IF (X==2)
SRC.ACT.SAY Por Ort Grav
SRC.EFFECT=1,i_fire_column,20,19,18
SRC.SOUND=snd_spell_lightning
SRC.DAMAGE={8 25}
RETURN 0
ELSEIF (X==3)
SRC.ACT.SAY Kal Vas Flam
SRC.EFFECT=3,i_fire_column,1,18,9
SRC.SOUND=snd_spell_flamestrike
SRC.DAMAGE={10 30}
RETURN 0
ELSEIF (X==0)
SRC.ACT.SAY In Nox
MOREZ=-2
SRC.SOUND=snd_spell_poison
SRC.EFFECT=3,i_fx_curse,20,19,18
RETURN 0
ELSEIF (X==1)
SRC.ACT.SAY Vas Ort Flam
SRC.EFFECT=3,i_fx_explode,20,19,18
SRC.SOUND=snd_spell_explosion
SRC.DAMAGE={5 35}
RETURN 0
ELSEIF (X==4)
SRC.ACT.SAY Ort Rel
SRC.EFFECT=3,i_fx_sparkle_2,20,19,18
SRC.SOUND=SND_spell_mana_vampire
SRC.MANA=(<SRC.MANA> - 25)
ELSEIF (X==5)
SRC.ACT.SAY Des Mani
SRC.SPELLEFFECT=s_weaken, 500
SRC.SOUND=snd_spell_weaken
SRC.EFFECT=3,i_fx_curse,20,19,18
ELSEIF (X==6)
SRC.ACT.SAY Wis Nox
SRC.SPELLEFFECT=s_hallucination, 500
SRC.SOUND=snd_spell_weaken
SRC.NEWITEM=i_fx_sparkle_hallu
SRC.ACT.ATTR=attr_static|attr_decay
SRC.ACT.TIMER=1
SRC.ACT.P=<SRC.P>
SRC.ACT.MOVE n
SRC.NEWITEM=i_fx_sparkle_hallu
SRC.ACT.ATTR=attr_static|attr_decay
SRC.ACT.TIMER=1
SRC.ACT.P=<SRC.P>
SRC.ACT.MOVE s
SRC.NEWITEM=i_fx_sparkle_hallu
SRC.ACT.ATTR=attr_static|attr_decay
SRC.ACT.TIMER=1
SRC.ACT.P=<SRC.P>
SRC.ACT.MOVE e
SRC.NEWITEM=i_fx_sparkle_hallu
SRC.ACT.ATTR=attr_static|attr_decay
SRC.ACT.TIMER=1
SRC.ACT.P=<SRC.P>
SRC.ACT.MOVE w

RETURN 1
ENDIF

[ITEMDEF i_fx_sparkle_hallu]
ID=i_fx_sparkle
NAME=sparkle

ON=@CREATE
COLOR=1152
ATTR=ATTR_STATIC
TIMER=1

ON=@TIMER
ATTR=ATTR_DECAY