IF
    Global("DaerthmacJoinsParty","GLOBAL",0)
	See([PC])
	NumberOfTimesTalkedTo(0)
	AreaCheck("DSC016")
THEN
	RESPONSE #100
		Dialogue([PC])
END

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

IF
   Global("DaerthmacJoinsParty","GLOBAL",0)
	AreaCheck("DSC017")
	Global("ClairisSpawns","DSC017",0)
THEN
	RESPONSE #100
		Enemy()
		CreateCreature("BODFGT01",[-1.-1],S) // reference - for which
		CreateCreature("VAMFLF01",[-1.-1],S) // Fledgling Vampire
		CreateCreature("BODFGT01",[-1.-1],S) // reference - for which
		SetGlobal("ClairisSpawns","DSC017",1)
END

IF
   Global("DaerthmacJoinsParty","GLOBAL",0)
	See([PC])
	AreaCheck("DSC017")
THEN
	RESPONSE #100
		ForceSpellPoint([1030.1530],DRYAD_TELEPORT)
		EscapeArea()
END

IF 
Global("DaerthmacJoinsParty","GLOBAL",0)
	See([PC])
	GlobalLT("ClairisVamp","GLOBAL",3)
	AreaCheck("DSC018")
THEN
	RESPONSE #20
		Enemy()
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		Wait(2)
		ForceSpell(NearestEnemyOf(Myself),VAMPIRE_DOMINATION)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",3)
	RESPONSE #80
		Enemy()
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),VAMPIRE_DOMINATION)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",3)
END

IF
Global("DaerthmacJoinsParty","GLOBAL",0)
	See([PC])
	Global("ClairisVamp","GLOBAL",3)
THEN
	RESPONSE #30
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		ForceSpell(NearestEnemyOf(Myself),VAMPIRE_DOMINATION)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",4)
	RESPONSE #70
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
		SetGlobal("ClairisVamp","GLOBAL",4)
END

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

IF
Global("DaerthmacJoinsParty","GLOBAL",0)
	See([PC])
	Global("ClairisVamp","GLOBAL",4)
THEN
	RESPONSE #100
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself))
		ForceSpell(NearestEnemyOf(Myself),FEAR)
		AttackReevaluate(LastAttackerOf(Myself),10)
		Wait(2)
END

IF
  !InParty(Myself)
	//HPLT(Myself,10)
	Die()
THEN
	RESPONSE #100
		DropInventory()
		Kill(Myself)
			DestroySelf()
		CreateCreature("GASFORM4",[-1.-1],S)
		ActionOverride("GASFORM4",EscapeArea())
		// SetGlobalTimer("VampireResurrectTimer","LOCALS",FOUR_HOURS)
		//ReallyForceSpellDead(Myself,VAMPIRE_BAT_FORM_CHANGE)
END