IF
	See([PC])
	Global("Vampiress2","GLOBAL",0)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(5)
		ForceSpell(Myself,WIZARD_HASTE)
		ForceSpell(Myself,WIZARD_IMPROVED_INVISIBILITY)
		SmallWait(5)
		SetGlobal("Vampiress2","GLOBAL",1)
		Continue()
END

IF
	!See([PC])
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",3)
THEN
	RESPONSE #100
		CreateCreature("SHADO",[-1.-1],0) // Shadow
		CreateCreature("SHADO",[-1.-1],0) // Shadow
		CreateCreature("SHADO",[-1.-1],0) // Shadow
		SetGlobal("Vampiress2","GLOBAL",2)
		DestroySelf()
END

IF
	!See([PC])
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",4)
THEN
	RESPONSE #100
		CreateCreature("WRAITH",[-1.-1],0) // Wraith
		CreateCreature("SHADO",[-1.-1],0) // Shadow
		CreateCreature("WIGHT",[-1.-1],0) // Wight
		SetGlobal("Vampiress2","GLOBAL",2)
		DestroySelf()
END

IF
	See([PC])
	HPPercentLT(Myself,70)
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",1)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpellPoint([887.1360],INNATE_VAMPIRE_TELEPORT)
		Wait(2)
		ForceSpell(Myself,WIZARD_HASTE)
		ForceSpell(Myself,WIZARD_IMPROVED_INVISIBILITY)
		Wait(10)
		SetGlobal("Vampiress2","GLOBAL",2)
		Continue()
END

IF
	See([PC])
	HPPercentLT(Myself,70)
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",2)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpellPoint([482.1697],INNATE_VAMPIRE_TELEPORT)
		Wait(2)
		ForceSpell(Myself,WIZARD_HASTE)
		ForceSpell(Myself,WIZARD_IMPROVED_INVISIBILITY)
		Wait(10)
		SetGlobal("Vampiress2","GLOBAL",2)
		Continue()
END

IF
	See([PC])
	HPPercentLT(Myself,70)
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",3)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpellPoint([3816.962],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("Vampiress2","GLOBAL",2)
		EscapeArea()
END

IF
	See([PC])
	HPPercentLT(Myself,70)
	GlobalLT("Vampiress2","GLOBAL",2)
	Global("LordDaerthmacLocation","GLOBAL",4)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpellPoint([1791.1927],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("Vampiress2","GLOBAL",2)
		EscapeArea()
END

IF
	See([PC])
	Global("Vampiress2","GLOBAL",1)
	Range(NearestEnemyOf(Myself),30)
	!Range(NearestEnemyOf(Myself),5)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(5)
		SetGlobal("Vampiress2","GLOBAL",2)
		Continue()
END

IF
	See([PC])
	Global("Vampiress2","GLOBAL",2)
THEN
	RESPONSE #40
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_ENERGY_DRAIN)
		Wait(1)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		Wait(3)
		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)
		SetGlobal("Vampiress2","GLOBAL",3)
		Continue()
END

IF
	See([PC])
	Global("Vampiress2","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))
		Wait(1)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		AttackReevaluate(LastAttackerOf(Myself),10)
		SetGlobal("Vampiress2","GLOBAL",4)
		Continue()
END

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

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

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

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

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Vampiress2","GLOBAL",4)
THEN
	RESPONSE #100
		EquipMostDamagingMelee()
		AttackReevaluate(NearestEnemyOf(Myself(Myself)),30)
END


