IF
	Global("CheatersBane","GLOBAL",0)
	See(NearestEnemyOf(Myself(Myself)))
	CheckStatGT(NearestEnemyOf(Myself),150,MAXHITPOINTS)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),WIZARD_AGANNAZAR_SCORCHER)
		SetGlobal("CheatersBane","GLOBAL",1)
END

IF
	Global("CheatersBane","GLOBAL",1)
	See(NearestEnemyOf(Myself(Myself)))
	CheckStatLT(NearestEnemyOf(Myself),-15,ARMORCLASS)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),WIZARD_DISINTEGRATE)
		SetGlobal("CheatersBane","GLOBAL",2)
END

IF
	Global("CheatersBane","GLOBAL",2)
	See(NearestEnemyOf(Myself(Myself)))
	CheckStatGT(NearestEnemyOf(Myself),21,STR)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),WIZARD_INFERNAL_COMBUSTION_ENIGMA)
		SetGlobal("CheatersBane","GLOBAL",3)
END

IF
	Global("CheatersBane","GLOBAL",3)
	See(NearestEnemyOf(Myself(Myself)))
	CheckStatGT(NearestEnemyOf(Myself),90,RESISTMAGIC)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),WIZARD_GATE)
		SetGlobal("CheatersBane","GLOBAL",0)
END


