IF
	Global("DAV2","GLOBAL",0)
	See(NearestEnemyOf(Myself(Myself)))
THEN
	RESPONSE #100
		ForceSpell(Myself(Myself),WIZARD_AURA_CLEANSING)
		SmallWait(5)
		ForceSpell(Myself(Myself),CONTINGENCY_MIRROR_IMAGE)
	RESPONSE #100
		Wait(2)
		ForceSpell(NearestEnemyOf(Myself(Myself)),WIZARD_GLOBE_OF_DARKNESS)
		SmallWait(5)
		ForceSpell(SecondNearestEnemyOf(Myself(Myself)),WIZARD_GLOBE_OF_DARKNESS)
		SetGlobal("DAV2","GLOBAL",1)
END

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

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

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("DAV2","GLOBAL",3)
THEN
	RESPONSE #100
		ForceSpell(LeaderOf(GroupOf(NearestEnemyOf(Myself))),CLERIC_CHAOTIC_COMMANDS)
	RESPONSE #100
		ForceSpell(NearestEnemyOf(Myself(Myself)),WIZARD_POWER_WORD_STUN)
		SetGlobal("DAV2","GLOBAL",4)
END

IF
	See(NearestEnemyOf(Myself(Myself)))
	Global("DAV2","GLOBAL",4)
THEN
	RESPONSE #100
		ForceSpell(StrongestOf(GroupOf(NearestEnemyOf(Myself))),WIZARD_INVISIBLE_STALKER)
		StartTimer(0,500)
		SetGlobal("DAV2","GLOBAL",5)
END

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

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

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

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

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


