IF
	Global("Jabbress","GLOBAL",0)
	See(NearestEnemyOf(Myself(Myself)))
THEN
	RESPONSE #100
		ForceSpell(Myself(Myself),CLERIC_ARMOR_OF_DARKNESS)
		SmallWait(5)
		ForceSpellPoint([1253.783],WIZARD_DIMENSION_DOOR)
		Wait(3)
		ForceSpell(Myself(Myself),WIZARD_GLOBE_OF_INVULNERABILITY)
		SmallWait(5)
		ForceSpell(Myself(Myself),CLERIC_PROTECTION_FROM_FIRE)
		Wait(2)
		ForceSpell(NearestEnemyOf(Myself(Myself)),WIZARD_FLESH_TO_STONE)
		SetGlobal("Jabbress","GLOBAL",1)
END

IF
	Global("Jabbress","GLOBAL",1)
	See(NearestEnemyOf(Myself(Myself)))
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself(Myself)),CLERIC_ANIMATE_DEAD)
		SetGlobal("Jabbress","GLOBAL",2)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",2)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself(Myself)),CLERIC_HOLD_PERSON)
		Wait(2)
		ForceSpell(SecondNearestEnemyOf(Myself(Myself)),CLERIC_SPARKS)
		SetGlobal("Jabbress","GLOBAL",3)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",3)
THEN
	RESPONSE #100
		ForceSpell(LeaderOf(GroupOf(Myself)),CLERIC_CHAOTIC_COMMANDS)
		Wait(2)
		ForceSpell(NearestEnemyOf(Myself(Myself)),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("Jabbress","GLOBAL",4)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",4)
THEN
	RESPONSE #100
		ForceSpell(StrongestOf(GroupOf(Myself)),CLERIC_CALL_UNDEAD)
		SetGlobal("Jabbress","GLOBAL",5)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",5)
THEN
	RESPONSE #100
		ForceSpell(StrongestOf(GroupOf(Myself)),CLERIC_CURE_CRITICAL_WOUNDS)
		SetGlobal("Jabbress","GLOBAL",6)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",6)
THEN
	RESPONSE #100
		ForceSpell(MostDamagedOf(GroupOf(Myself)),CLERIC_COMMAND)
		SetGlobal("Jabbress","GLOBAL",7)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	HPPercentLT(Myself(Myself),75)
THEN
	RESPONSE #100
		ForceSpell(Myself(Myself),CLERIC_HEAL)
		Continue()
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("Jabbress","GLOBAL",7)
THEN
	RESPONSE #75
		EquipMostDamagingMelee()
		AttackOneRound(NearestEnemyOf(Myself(Myself)))
		AttackOneRound(NearestEnemyOf(Myself(Myself)))
		Continue()
	RESPONSE #25
		ForceSpell(NearestEnemyOf(Myself),CLERIC_PAIN)
		Continue()
END


