// ****************************************************************************
// SPHERE by : Menasoft ©1997-2000
// www.sphereserver.com
// All SPHERE script files and formats are copyright Menasoft & Partners.
// This file may be freely edited for personal use, but may not be distributed
// in whole or in part, in any format without express written permission from
// Menasoft & Partners.  All donations and contributions
// become the property of Menasoft & Partners.
// ****************************************************************************
// FILE LAST UPDATED: Thursday, June 29, 2000
[CHARDEF c_blade_spirit_fix]
ID=c_blade_spirit
Name=Blade Spirits
SOUND=snd_WEAPONS_SWORD1
ICON=i_FX_Blade_Spirit_1
DAM=10,14
ARMOR=40
CAN=MT_WALK|MT_RUN
TAG.NOCONTROL=1

ON=@Create
NPC=brain_monster
STR=150
DEX=150
INT=100
TACTICS=90.0
WRESTLING=90.0
MAGICRESISTANCE=60.0
FAME=0
KARMA=-100

ON=@RegionEnter
IF (!(<TAG0.CREATED>))
TIMERF 3,F_BERSERKER_LOOKFORTARGET
TAG.CREATED=1
ENDIF

ON=@ContextMenuRequest
RETURN 1

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED)
	IF (!<TAG0.DONO>)
	TAG.DONO=<OWNER>
	ENDIF
	IF (<SRC.ISPLAYER>)
	RETURN 1
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<SRC.OWNER.ISPLAYER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@HitTry
IF (<SRC.ISPLAYER>)
RETURN 1
ELIF (<SRC.FLAGS>&STATF_PET)
	IF (<SRC.OWNER.ISBENEFICIAL <OWNER>>)
	RETURN 1
	ENDIF
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
IF (!<TAG0.DONO>)
TAG.DONO=<OWNER>
ENDIF

ON=@Destroy
TIMERF CLEAR
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 50) && (!(<FLAGS>&statf_ridden))
	TIMERF 1,SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF 01063]
DEFNAME=c_m_energy_vortex
NAME=Energy Vortex
SOUND=snd_ELEMENTL_AIRELEM5
ID=c_elem_air
ICON=37eb
DAM=17,20
ARMOR=55
CAN=MT_WALK|MT_FLY
CATEGORY=Miscellaneous
SUBSECTION=Blade Spirits
DESCRIPTION=Energy Vortex
TAG.NOCONTROL=1

ON=@Create
COLOR=color_energy_vortex
NPC=brain_monster
STR=200
MAXHITS=210
DEX=200
INT=100
TACTICS=90.0
WRESTLING=110.0
MAGICRESISTANCE=99.9
FAME=500
KARMA=-100

ON=@RegionEnter
IF (!(<TAG0.CREATED>))
TIMERF 2,F_BERSERKER_LOOKFORTARGET
TAG.CREATED=1
ENDIF

ON=@ContextMenuRequest
RETURN 1

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED)
	IF (!<TAG0.DONO>)
	TAG.DONO=<OWNER>
	ENDIF
	IF (<SRC.ISPLAYER>)
	RETURN 1
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<SRC.OWNER.ISPLAYER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@HitTry
IF (<SRC.ISPLAYER>)
RETURN 1
ELIF (<SRC.FLAGS>&STATF_PET)
	IF (<SRC.OWNER.ISBENEFICIAL <OWNER>>)
	RETURN 1
	ENDIF
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
IF (!<TAG0.DONO>)
TAG.DONO=<OWNER>
ENDIF

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
TIMERF CLEAR
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 50) && (!(<FLAGS>&statf_ridden))
	TIMERF 1,SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF c_summoned_elem_earth]
ID=c_elem_earth
DAM=17,32
ARMOR=65
MOVERATE=35

ON=@Create
NPC=brain_monster
STR=200
MAXHITS=180
DEX=70
INT=70
TACTICS=100.0
WRESTLING=90.0
MAGICRESISTANCE=65.0
FAME=500
KARMA=100

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED) && (<FLAGS>&STATF_PET)
TAG.DONO=<OWNER>
REF1=<OWNER>
	IF (<SRC.ISPLAYER>)
		IF (<REF1.ISINPARTY>)
			IF (<REF1.PARTY.ISSAMEPARTYOF <SRC>>)
			RETURN 1
			ENDIF
		ENDIF
		IF (<REF1> == <SRC>)
		RETURN 1
		ENDIF
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<REF1> == <SRC.OWNER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@GetHit
IF (<SRC> == <OWNER>)
RETURN 1
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
TAG.DONO=<OWNER>

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 40) && (!(<FLAGS>&statf_ridden))
	SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF c_summoned_elem_air]
ID=c_elem_air
DAM=8,10
ARMOR=50
MOVERATE=35

ON=@Create
//TAG.override.regenval_1=3 //15
NPC=brain_monster
STR=200
MAXHITS=150
DEX=200
INT=100
TACTICS=100.0
WRESTLING=80.0
MAGICRESISTANCE=60.0
FAME=500
KARMA=100
MAGERY=70.0
EVALUATINGINTEL=70.0

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED) && (<FLAGS>&STATF_PET)
TAG.DONO=<OWNER>
REF1=<OWNER>
	IF (<SRC.ISPLAYER>)
		IF (<REF1.ISINPARTY>)
			IF (<REF1.PARTY.ISSAMEPARTYOF <SRC>>)
			RETURN 1
			ENDIF
		ENDIF
		IF (<REF1> == <SRC>)
		RETURN 1
		ENDIF
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<REF1> == <SRC.OWNER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@GetHit
IF (<SRC> == <OWNER>)
RETURN 1
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
TAG.DONO=<OWNER>

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 40) && (!(<FLAGS>&statf_ridden))
	SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF c_summoned_daemon]
ID=c_daemon
DAM=7,14
ARMOR=55
MOVERATE=35

ON=@Create
//TAG.override.regenval_1=3 //20
NPC=brain_monster
STR=200
DEX=110
INT=150
TACTICS=100.0
WRESTLING=100.0
MAGICRESISTANCE=100.0
FAME=500
KARMA=100
MAGERY=100.0
EVALUATINGINTEL=100.0

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED) && (<FLAGS>&STATF_PET)
TAG.DONO=<OWNER>
REF1=<OWNER>
	IF (<SRC.ISPLAYER>)
		IF (<REF1.ISINPARTY>)
			IF (<REF1.PARTY.ISSAMEPARTYOF <SRC>>)
			RETURN 1
			ENDIF
		ENDIF
		IF (<REF1> == <SRC>)
		RETURN 1
		ENDIF
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<REF1> == <SRC.OWNER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@GetHit
IF (<SRC> == <OWNER>)
RETURN 1
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
TAG.DONO=<OWNER>

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 4
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 40) && (!(<FLAGS>&statf_ridden))
	SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF c_summoned_elem_fire]
ID=c_elem_fire
DAM=7,9
ARMOR=55
MOVERATE=35

ON=@Create
//TAG.override.regenval_1=3 //20
NPC=brain_monster
STR=200
DEX=200
INT=100
TACTICS=100.0
WRESTLING=92.0
MAGICRESISTANCE=85.0
FAME=500
KARMA=100
MAGERY=90.0
EVALUATINGINTEL=90.0

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED) && (<FLAGS>&STATF_PET)
TAG.DONO=<OWNER>
REF1=<OWNER>
	IF (<SRC.ISPLAYER>)
		IF (<REF1.ISINPARTY>)
			IF (<REF1.PARTY.ISSAMEPARTYOF <SRC>>)
			RETURN 1
			ENDIF
		ENDIF
		IF (<REF1> == <SRC>)
		RETURN 1
		ENDIF
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<REF1> == <SRC.OWNER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@GetHit
IF (<SRC> == <OWNER>)
RETURN 1
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
TAG.DONO=<OWNER>

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 40) && (!(<FLAGS>&statf_ridden))
	SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[CHARDEF c_summoned_elem_water]
ID=c_elem_water
DAM=7,9
ARMOR=60
MOVERATE=35

ON=@Create
//TAG.override.regenval_1=3 //20
NPC=brain_monster
STR=200
MAXHITS=165
DEX=70
INT=100
TACTICS=100.0
WRESTLING=85.0
MAGICRESISTANCE=75.0
FAME=500
KARMA=100
MAGERY=80.0
EVALUATINGINTEL=80.0

ON=@ClientToolTip
SRC.ADDCLILOC 1049646

ON=@Attack
IF (<FLAGS>&STATF_CONJURED) && (<FLAGS>&STATF_PET)
TAG.DONO=<OWNER>
REF1=<OWNER>
	IF (<SRC.ISPLAYER>)
		IF (<REF1.ISINPARTY>)
			IF (<REF1.PARTY.ISSAMEPARTYOF <SRC>>)
			RETURN 1
			ENDIF
		ENDIF
		IF (<REF1> == <SRC>)
		RETURN 1
		ENDIF
	ELIF (<SRC.FLAGS>&STATF_PET)
		IF (<REF1> == <SRC.OWNER>)
		RETURN 1
		ENDIF
	ENDIF
ENDIF

ON=@GetHit
IF (<SRC> == <OWNER>)
RETURN 1
ENDIF

ON=@SpellEffect
REF1=<TAG0.DONO>
IF (!(<REF1>))
REF1=<OWNER>
ENDIF
IF (<REF1> == <SRC>)
	IF (<SERV.SPELL.<ARGN1>.FLAGS>&SPELLFLAG_HARM)
	RETURN 1
	ENDIF
ENDIF

ON=@Death
TAG.DONO=<OWNER>

ON=@Destroy
IF ((<OWNER>) || (<TAG0.DONO>)) && (!(<TAG0.DESTROYED>))
	IF (!(<TAG0.DONO>))
	TAG.DONO=<OWNER>
	ENDIF
REF1=<TAG0.DONO>
REF1.CURFOLLOWER -= 2
TAG.DONO=
TAG.DESTROYED=1
ENDIF

ON=@PetDesert
IF (<OWNER>)
REF1=<OWNER>
ELSE
REF1=<TAG0.DONO>
ENDIF
SPELLEFFECT S_DISPEL,1000,<OWNER>
RETURN 1

ON=@FameChange
RETURN 1

ON=@KarmaChange
RETURN 1

ON=@Kill
IF (!(<TAG0.DONO>))
TAG.DONO=<OWNER>
ENDIF
REF1=<TAG0.DONO>
IF (<REF1>)
	IF (<DISTANCE <REF1>> >= 40) && (!(<FLAGS>&statf_ridden))
	SPELLEFFECT S_DISPEL,1000,<OWNER>
	ENDIF
ENDIF

[EOF]