IF
	See([PC])
	Global("LordDaerthmac1","GLOBAL",0)
	NumTimesTalkedTo(1)
THEN
	RESPONSE #100
		SetGlobal("VampFight","GLOBAL",1)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		ForceSpellPoint([249.1037],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("LordDaerthmac1","GLOBAL",1)
		EscapeArea()
END

IF
	Exists([PC])
	Global("LordDaerthmac1","GLOBAL",1)
	Global("VampFight","GLOBAL",1)
THEN
	RESPONSE #25
		ForceSpell(NearestEnemyOf(Myself),INNATE_SUMMON_VAMPIRE_WOLVES)
		ForceSpellPoint([398.915],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("LordDaerthmac1","GLOBAL",2)
		SetGlobal("LordDaerthmacLocation","GLOBAL",1)
	RESPONSE #25
		ForceSpell(NearestEnemyOf(Myself),INNATE_SUMMON_VAMPIRE_WOLVES)
		ForceSpellPoint([496.1658],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("LordDaerthmac1","GLOBAL",2)
		SetGlobal("LordDaerthmacLocation","GLOBAL",2)
	RESPONSE #25
		ForceSpell(NearestEnemyOf(Myself),INNATE_SUMMON_VAMPIRE_WOLVES)
		ForceSpellPoint([3833.911],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("LordDaerthmac1","GLOBAL",2)
		SetGlobal("LordDaerthmacLocation","GLOBAL",3)
		EscapeArea()
	RESPONSE #25
		ForceSpell(NearestEnemyOf(Myself),INNATE_SUMMON_VAMPIRE_WOLVES)
		ForceSpellPoint([1751.1942],INNATE_VAMPIRE_TELEPORT)
		SetGlobal("LordDaerthmac1","GLOBAL",2)
		SetGlobal("LordDaerthmacLocation","GLOBAL",4)
		EscapeArea()
END

IF
	See([PC])
	Global("LordDaerthmac1","GLOBAL",2)
	Global("VampFight","GLOBAL",1)
THEN
	RESPONSE #100
		ForceSpell(Myself,WIZARD_HASTE)
		ForceSpell(Myself,WIZARD_IMPROVED_INVISIBILITY)
		Wait(1)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(5)
		ForceSpell(SecondNearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(SecondNearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(5)
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		Wait(1)
		ForceSpell(SecondNearestEnemyOf(Myself),FEAR)
		SetGlobal("LordDaerthmac1","GLOBAL",3)
END

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

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	Global("LordDaerthmac1","GLOBAL",4)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		Wait(1)
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		Wait(1)
		ForceSpell(Myself,WIZARD_HASTE)
		ForceSpell(Myself,WIZARD_IMPROVED_INVISIBILITY)
		Wait(60)
		SetGlobal("LordDaerthmac1","GLOBAL",5)
END

IF
	See([PC])
	Global("VampFight","GLOBAL",1)
	Global("LordDaerthmac1","GLOBAL",5)
THEN
	RESPONSE #33
		ForceSpell(NearestEnemyOf(Myself),SUMMON_SKELETON_WARRIOR3)
		Wait(1)
	RESPONSE #33
		ForceSpell(NearestEnemyOf(Myself),INNATE_SUMMON_VAMPIRE_WOLVES)
		Wait(1)
	RESPONSE #33
		ForceSpell(NearestEnemyOf(Myself),GATE_LESSER_DEMONS)
		Wait(1)
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_VAMPIRIC_TOUCH)
		ForceSpell(NearestEnemyOf(Myself),INNATE_VAMPIRE_DIRE_CHARM)
		Wait(1)
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		AttackReevaluate(LastAttackerOf(Myself),10)
		SetGlobal("LordDaerthmac1","GLOBAL",6)
END

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

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

IF
	Die()
	Global("LordDaerthmac1","GLOBAL",3)
THEN
	RESPONSE #100
		SetGlobal("VampirDead","GLOBAL",1)
		ReallyForceSpell(NearestEnemyOf(Myself),SUMMON_SKELETON_WARRIOR3)
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

IF
	Die()
	Global("LordDaerthmac1","GLOBAL",4)
THEN
	RESPONSE #100
		SetGlobal("VampirDead","GLOBAL",1)
		ReallyForceSpell(NearestEnemyOf(Myself),SUMMON_SKELETON_WARRIOR3)
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

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

IF
	Die()
	Global("LordDaerthmac1","GLOBAL",6)
THEN
	RESPONSE #100
		SetGlobal("VampirDead","GLOBAL",1)
		ReallyForceSpell(NearestEnemyOf(Myself),SUMMON_SKELETON_WARRIOR3)
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END

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


