IF
 See(Player1)
 Global("GlourkistFight","GLOBAL",0)
 Global("GlourkistSeeEdorem","GLOBAL",0)
 CombatCounter(0)
THEN
RESPONSE #100
 SetGlobal("GlourkistSeeEdorem","GLOBAL",1)
 StartDialogNoSet(Player1)
END



IF
 Global("GlourkistFight","GLOBAL",1)
 Allegiance(Myself,NEUTRAL)
THEN
RESPONSE #100
 Enemy()
END




IF
	See(NearestEnemyOf(Myself))
	Global("PITFEAR","LOCALS",0)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),DEMON_FEAR)
		SetGlobal("PITFEAR","LOCALS",1)
END

IF
	See(NearestEnemyOf(Myself))
	Global("DeathKnightFireball","LOCALS",0)
THEN
	RESPONSE #50
		ForceSpell(LastSeenBy(Myself),DEATHKNIGHT_FIREBALL)
		SetGlobal("DeathKnightFireball","LOCALS",1)
	RESPONSE #50
		ReallyForceSpell(LastSeenBy(Myself),WIZARD_DISPEL_MAGIC)
		SetGlobal("DeathKnightFireball","LOCALS",1)
END

IF
	See(NearestEnemyOf(Myself))
	Global("DeathAttack","LOCALS",0)
THEN
	RESPONSE #20
		ForceSpell(LastSeenBy(Myself),DEATHKNIGHT_FIREBALL)
		SetGlobal("DeathAttack","LOCALS",1)
	RESPONSE #20
		ForceSpell(LastSeenBy(Myself),WIZARD_SYMBOL_FEAR)
		SetGlobal("DeathAttack","LOCALS",1)
	RESPONSE #60
		AttackReevaluate(LastSeenBy(Myself),15)
		SetGlobal("DeathAttack","LOCALS",1)
END

IF
	See(NearestEnemyOf(Myself))
	Global("DeathAttack","LOCALS",1)
THEN
	RESPONSE #50
		ForceSpell(LastSeenBy(Myself),WIZARD_SYMBOL_FEAR)
		SetGlobal("DeathAttack","LOCALS",2)
	RESPONSE #50
		ForceSpell(LastSeenBy(Myself),WIZARD_SYMBOL_FEAR)
		SetGlobal("DeathAttack","LOCALS",2)
END

IF
	See(NearestEnemyOf(Myself))
	Global("DeathAttack","LOCALS",2)
THEN
	RESPONSE #15
		ReallyForceSpell(LastSeenBy(Myself),WIZARD_SYMBOL_FEAR)
	RESPONSE #15
		ReallyForceSpell(LastSeenBy(Myself),DEATHKNIGHT_FIREBALL)
	RESPONSE #70
		AttackReevaluate(NearestEnemyOf(Myself),15)
END

IF
	See([ANYONE])
	Allegiance(Myself,ENEMY)
THEN
	RESPONSE #70
		AttackReevaluate([ANYONE],15)
	RESPONSE #20
		SetGlobal("PITFIRE","LOCALS",0)
END


IF
 See(NearestEnemyOf(Myself))
THEN
 RESPONSE #100
   AttackReevaluate(NearestEnemyOf(Myself),15)
END