IF
	Exists(NearestEnemyOf(Myself))
	Global("ClairisVamp","GLOBAL",0)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpellPoint([249.1037],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("ClairisVamp","GLOBAL",1)
		EscapeArea()
END

IF
	!See([PC])
	Global("ClairisVamp","GLOBAL",1)
	Global("LordDaerthmacLocation","GLOBAL",3)
THEN
	RESPONSE #100
		CreateCreature("RUTTERKN",[-1.-1],0) // Lesser Tanar'ri
		CreateCreature("RUTTERK2",[-1.-1],0) // Lesser Tanar'ri
		CreateCreature("RUTTERK3",[-1.-1],0) // Lesser Tanar'ri
		SetGlobal("ClairisVamp","GLOBAL",2)
		DestroySelf()
END

IF
	!See([PC])
	Global("ClairisVamp","GLOBAL",1)
	Global("LordDaerthmacLocation","GLOBAL",4)
THEN
	RESPONSE #100
		CreateCreature("WOLFVA",[-1.-1],0) // Vampiric Wolf
		CreateCreature("WOLFVA",[-1.-1],0) // Vampiric Wolf
		CreateCreature("WOLFVA",[-1.-1],0) // Vampiric Wolf
		SetGlobal("ClairisVamp","GLOBAL",2)
		DestroySelf()
END

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	Global("ClairisVamp","GLOBAL",2)
THEN
	RESPONSE #20
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_ENERGY_DRAIN)
		Wait(1)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		Wait(2)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(2)
	RESPONSE #100
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",3)
END

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	HPPercentLT(Myself,50)
	Global("ClairisVamp","GLOBAL",2)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		SetGlobal("ClairisVamp","GLOBAL",3)
END

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	Global("ClairisVamp","GLOBAL",3)
THEN
	RESPONSE #30
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(2)
	RESPONSE #100
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",4)
END

IF
	Die()
	Global("ClairisVamp","GLOBAL",1)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	Die()
	Global("ClairisVamp","GLOBAL",2)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	Die()
	Global("ClairisVamp","GLOBAL",3)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	Die()
	Global("ClairisVamp","GLOBAL",4)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	Die()
	Global("ClairisVamp","GLOBAL",5)
THEN
	RESPONSE #100
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	Global("ClairisVamp","GLOBAL",5)
THEN
	RESPONSE #30
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(2)
	RESPONSE #100
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
END


