IF
	Global("RedWizardsDiana","GLOBAL",1)
	See(NearestEnemyOf(Myself(Myself)))
THEN
	RESPONSE #100
		ForceSpell(Myself,WIZARD_PROTECTION_NORMAL_MISSILES)
		Wait(1)
		ForceSpell(Myself,WIZARD_MINOR_GLOBE_OF_INVULNERABILITY)
		Wait(1)
		ForceSpell(Myself,WIZARD_GHOST_ARMOR)
		SetGlobal("RedWizardsDiana","GLOBAL",2)
END

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

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("RedWizardsDiana","GLOBAL",3)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself(Myself)),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("RedWizardsDiana","GLOBAL",4)
END

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

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

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

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

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

IF
	See(NearestEnemyOf(Myself(Myself)))
	NumCreatureGT(NearestEnemyOf(Myself),6)
THEN
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself),WIZARD_INFERNAL_COMBUSTION_ENIGMA)
		Continue()
END


