IF
	Global("BattleRager","GLOBAL",0)
	Global("DeEnraged","GLOBAL",0)
	Global("Enraged","GLOBAL",0)
	See([ENEMY])
	NumCreatureGT([ENEMY],4)
THEN
	RESPONSE #100
		ForceSpell(Myself,BATTLERAGER)
		SetGlobal("BattleRager","GLOBAL",1)
		SetGlobal("Enraged","GLOBAL",1)
		StartTimer(0,120)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",0)
	Global("DeEnraged","GLOBAL",0)
	Global("Enraged","GLOBAL",0)
	See([ENEMY])
	HPGT([ENEMY],50)
THEN
	RESPONSE #100
		ForceSpell(Myself,INNATE_BERSERK)
		SetGlobal("BattleRager","GLOBAL",1)
		SetGlobal("Enraged","GLOBAL",1)
		StartTimer(0,120)
		StartTimer(0,120)
END

IF
	TimerExpired(0)
	Global("BattleRager","GLOBAL",1)
	See([ENEMY])
	Global("DeEnraged","GLOBAL",0)
THEN
	RESPONSE #100
		ForceSpell(Myself,INNATE_BERSERK)
		StartTimer(0,120)
		StartTimer(0,120)
		IncrementGlobal("Enraged","GLOBAL",1)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",6)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",5)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",5)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",4)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",4)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",3)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",3)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",2)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",2)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",1)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",1)
	!See([ENEMY])
	TimerExpired(0)
	Delay(10)
THEN
	RESPONSE #100
		ForceSpell(Myself,CALM_AFTER_THE_STORM)
		SetGlobal("Enraged","GLOBAL",0)
		SetGlobal("DeEnraged","GLOBAL",1)
		StartTimer(0,120)
END

IF
	Global("BattleRager","GLOBAL",1)
	Global("Enraged","GLOBAL",0)
	!See([ENEMY])
	TimerExpired(0)
THEN
	RESPONSE #100
		SetGlobal("BattleRager","GLOBAL",0)
		SetGlobal("DeEnraged","GLOBAL",0)
END


