IF
AreaCheck("ar3020")
Global("Destroy3020Demo","GLOBAL",1)
THEN
RESPONSE #100
DestroySelf()
END

IF
OnCreation()
THEN
RESPONSE #100
StartTimer(77,6)
TriggerActivation("DemoGorgonInfo",FALSE)
Continue()
END

IF
TimerExpired(77)
THEN
RESPONSE #100
StartTimer(77,6)
Continue()
END

IF
HPLT(Myself,30)
Global("DemoEffects","LOCALS",0)
THEN
RESPONSE #100
SetInterrupt(FALSE)
MoveViewObject(Myself,INSTANT)
StartTimer(77,6)
ClearAllActions()
SetGlobal("DemoEffects","LOCALS",1)
StartCutSceneMode()
DisplayStringHead(Myself,71009)
CreateVisualEffectObject("spflsrin",Myself)
Wait(1)
CreateVisualEffectObject("sppowrrd",Myself)
Wait(2)
CreateVisualEffectObject("spfirepi",Myself)
Wait(1)
CreateVisualEffectObject("spplanar",Myself)
Wait(2)
SetGlobal("SPRITE_IS_DEADDEMOGOR2","GLOBAL",1)
EndCutSceneMode()
DestroySelf()
END

IF
Detect([GOODCUTOFF])
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("Contingency1","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("Contingency1","LOCALS",1000)
DisplayString(Myself,34634)
ReallyForceSpellRES("melstone",Myself)
ReallyForceSpell(Myself,CLERIC_AURA_OF_FLAMING_DEATH)
ReallyForceSpell(Myself,WIZARD_SPELL_TURNING)
DisplayString(Myself,25942)
ReallyForceSpell(Myself,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("proMW","LOCALS")
See(Myself)
!CheckStatGT(Myself,0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("proMW","LOCALS",36)
SpellNoDec(Myself,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("stoneskin","LOCALS")
See(Myself)
!CheckStatGT(Myself,0,STONESKINS)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("stoneskin","LOCALS",12)
SpellNoDecRES("melstone",Myself)
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("timestop","LOCALS")
Global("DMWWDemogorgonTS","GLOBAL",1)
See([PC])
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("timestop","LOCALS",1000)
SpellNoDec(Myself,WIZARD_TIME_STOP)
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("host","LOCALS")
See([PC])
Global("DMWWDemogorgonHost","GLOBAL",1)
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("host","LOCALS",1000)
SpellNoDec([PC],SUMMON_INFERNAL_HOST)
DisplayStringHead(Myself,70999)
SetGlobalTimer("reinforce","LOCALS",12)
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("vengeance","LOCALS")
See([PC])
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("vengeance","LOCALS",1000)
SpellNoDec([PC],CLERIC_STORM_OF_VENGEANCE)
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat([PC],4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT([PC],0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat([PC],0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat([PC],4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat([PC],0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat([PC],1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat([PC],4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat([PC],3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",[PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
!CheckStatGT([PC],3,STONESKINS)
!Range([PC],15)
OR(3)
CheckStatGT([PC],-6,ARMORCLASS)
HPPercentLT([PC],30)
Class([PC],MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See([PC])
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(SecondNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SecondNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SecondNearest([PC]),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SecondNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(SecondNearest([PC]),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
!CheckStatGT(SecondNearest([PC]),3,STONESKINS)
!Range(SecondNearest([PC]),15)
OR(3)
CheckStatGT(SecondNearest([PC]),-6,ARMORCLASS)
HPPercentLT(SecondNearest([PC]),30)
Class(SecondNearest([PC]),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(SecondNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(ThirdNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(ThirdNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(ThirdNearest([PC]),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(ThirdNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(ThirdNearest([PC]),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
!CheckStatGT(ThirdNearest([PC]),3,STONESKINS)
!Range(ThirdNearest([PC]),15)
OR(3)
CheckStatGT(ThirdNearest([PC]),-6,ARMORCLASS)
HPPercentLT(ThirdNearest([PC]),30)
Class(ThirdNearest([PC]),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(ThirdNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(FourthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FourthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FourthNearest([PC]),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FourthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(FourthNearest([PC]),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",FourthNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearest([PC]),ENEMY)
!StateCheck(FourthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FourthNearest([PC]),0,HELD)
!CheckStatGT(FourthNearest([PC]),3,STONESKINS)
!Range(FourthNearest([PC]),15)
OR(3)
CheckStatGT(FourthNearest([PC]),-6,ARMORCLASS)
HPPercentLT(FourthNearest([PC]),30)
Class(FourthNearest([PC]),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(FourthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(FifthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FifthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FifthNearest([PC]),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(FifthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(FifthNearest([PC]),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",FifthNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearest([PC]),ENEMY)
!StateCheck(FifthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FifthNearest([PC]),0,HELD)
!CheckStatGT(FifthNearest([PC]),3,STONESKINS)
!Range(FifthNearest([PC]),15)
OR(3)
CheckStatGT(FifthNearest([PC]),-6,ARMORCLASS)
HPPercentLT(FifthNearest([PC]),30)
Class(FifthNearest([PC]),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(FifthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(SixthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SixthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SixthNearest([PC]),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(SixthNearest([PC]),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(SixthNearest([PC]),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",SixthNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearest([PC]),ENEMY)
!StateCheck(SixthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SixthNearest([PC]),0,HELD)
!CheckStatGT(SixthNearest([PC]),3,STONESKINS)
!Range(SixthNearest([PC]),15)
OR(3)
CheckStatGT(SixthNearest([PC]),-6,ARMORCLASS)
HPPercentLT(SixthNearest([PC]),30)
Class(SixthNearest([PC]),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(SixthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(WorstAC,4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(WorstAC,0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(WorstAC,0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(WorstAC,4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(WorstAC,0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(WorstAC,1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(WorstAC,4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(WorstAC,3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",WorstAC)
Allegiance(Myself,ENEMY)
!Allegiance(WorstAC,ENEMY)
!StateCheck(WorstAC,STATE_IMMOBILE)
!CheckStatGT(WorstAC,0,HELD)
!CheckStatGT(WorstAC,3,STONESKINS)
!Range(WorstAC,15)
OR(3)
CheckStatGT(WorstAC,-6,ARMORCLASS)
HPPercentLT(WorstAC,30)
Class(WorstAC,MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(WorstAC)
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3008")
!AreaCheck("ar3004")
OR(2)
Allegiance(Myself,ENEMY)
Allegiance(Myself,GOODBUTRED)
!GlobalTimerNotExpired("teleport","LOCALS")
OR(2)
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
!CheckStat(LastSeenBy(Myself),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,0,WEAPON_ENCHANTMENT)
!CheckStatGT(LastSeenBy(Myself),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
OR(3)
CheckStatGT(Myself,3,WEAPON_ENCHANTMENT)
CheckStat(LastSeenBy(Myself),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(LastSeenBy(Myself),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(4)
CheckStatGT(Myself,4,WEAPON_ENCHANTMENT)
CheckStat(LastSeenBy(Myself),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(LastSeenBy(Myself),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStat(LastSeenBy(Myself),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
OR(2)
CheckStatGT(Myself,5,WEAPON_ENCHANTMENT)
!CheckStat(LastSeenBy(Myself),3,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
!HasItem("MORSWORD",LastSeenBy(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(LastSeenBy(Myself),ENEMY)
!StateCheck(LastSeenBy(Myself),STATE_IMMOBILE)
!CheckStatGT(LastSeenBy(Myself),0,HELD)
!CheckStatGT(LastSeenBy(Myself),3,STONESKINS)
!Range(LastSeenBy(Myself),15)
OR(3)
CheckStatGT(LastSeenBy(Myself),-6,ARMORCLASS)
HPPercentLT(LastSeenBy(Myself),30)
Class(LastSeenBy(Myself),MAGE_ALL)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!HPPercentLT(LastTargetedBy(Myself),30)
OR(3)
!See(LastTargetedBy(Myself))
!Range(LastTargetedBy(Myself),8)
!Class(LastTargetedBy(Myself),MAGE_ALL)
!AreaCheck("AR2202")
!AreaCheck("AR3008")
See(LastSeenBy(Myself))
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
ForceSpellRES("dw#fitel",LastSeenBy(Myself))
SetGlobalTimer("teleport","LOCALS",16)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(SixthNearest([PC]),0,STONESKINS)
CheckStatGT(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(SixthNearest([PC]),99,MAGICDAMAGERESISTANCE)
StateCheck(SixthNearest([PC]),STATE_IMPROVEDINVISIBILITY)
StateCheck(SixthNearest([PC]),STATE_BLESS)
StateCheck(SixthNearest([PC]),STATE_CHANT)
StateCheck(SixthNearest([PC]),STATE_HASTED)
StateCheck(SixthNearest([PC]),STATE_MIRRORIMAGE)
CheckStatGT(SixthNearest([PC]),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(SixthNearest([PC]),0,PROTECTION_FROM_EVIL)
CheckStatGT(SixthNearest([PC]),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(SixthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(SixthNearest([PC]),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(SixthNearest([PC]),ENEMY)
See(SixthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(FifthNearest([PC]),0,STONESKINS)
CheckStatGT(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(FifthNearest([PC]),99,MAGICDAMAGERESISTANCE)
StateCheck(FifthNearest([PC]),STATE_IMPROVEDINVISIBILITY)
StateCheck(FifthNearest([PC]),STATE_BLESS)
StateCheck(FifthNearest([PC]),STATE_CHANT)
StateCheck(FifthNearest([PC]),STATE_HASTED)
StateCheck(FifthNearest([PC]),STATE_MIRRORIMAGE)
CheckStatGT(FifthNearest([PC]),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(FifthNearest([PC]),0,PROTECTION_FROM_EVIL)
CheckStatGT(FifthNearest([PC]),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(FifthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(FifthNearest([PC]),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(FifthNearest([PC]),ENEMY)
See(FifthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(FourthNearest([PC]),0,STONESKINS)
CheckStatGT(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(FourthNearest([PC]),99,MAGICDAMAGERESISTANCE)
StateCheck(FourthNearest([PC]),STATE_IMPROVEDINVISIBILITY)
StateCheck(FourthNearest([PC]),STATE_BLESS)
StateCheck(FourthNearest([PC]),STATE_CHANT)
StateCheck(FourthNearest([PC]),STATE_HASTED)
StateCheck(FourthNearest([PC]),STATE_MIRRORIMAGE)
CheckStatGT(FourthNearest([PC]),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(FourthNearest([PC]),0,PROTECTION_FROM_EVIL)
CheckStatGT(FourthNearest([PC]),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(FourthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(FourthNearest([PC]),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(FourthNearest([PC]),ENEMY)
See(FourthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(ThirdNearest([PC]),0,STONESKINS)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(ThirdNearest([PC]),99,MAGICDAMAGERESISTANCE)
StateCheck(ThirdNearest([PC]),STATE_IMPROVEDINVISIBILITY)
StateCheck(ThirdNearest([PC]),STATE_BLESS)
StateCheck(ThirdNearest([PC]),STATE_CHANT)
StateCheck(ThirdNearest([PC]),STATE_HASTED)
StateCheck(ThirdNearest([PC]),STATE_MIRRORIMAGE)
CheckStatGT(ThirdNearest([PC]),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(ThirdNearest([PC]),0,PROTECTION_FROM_EVIL)
CheckStatGT(ThirdNearest([PC]),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(ThirdNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(ThirdNearest([PC]),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
See(ThirdNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(SecondNearest([PC]),0,STONESKINS)
CheckStatGT(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(SecondNearest([PC]),99,MAGICDAMAGERESISTANCE)
StateCheck(SecondNearest([PC]),STATE_IMPROVEDINVISIBILITY)
StateCheck(SecondNearest([PC]),STATE_BLESS)
StateCheck(SecondNearest([PC]),STATE_CHANT)
StateCheck(SecondNearest([PC]),STATE_HASTED)
StateCheck(SecondNearest([PC]),STATE_MIRRORIMAGE)
CheckStatGT(SecondNearest([PC]),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(SecondNearest([PC]),0,PROTECTION_FROM_EVIL)
CheckStatGT(SecondNearest([PC]),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(SecondNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(SecondNearest([PC]),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
See(SecondNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT([PC],0,STONESKINS)
CheckStatGT([PC],0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT([PC],99,MAGICDAMAGERESISTANCE)
StateCheck([PC],STATE_IMPROVEDINVISIBILITY)
StateCheck([PC],STATE_BLESS)
StateCheck([PC],STATE_CHANT)
StateCheck([PC],STATE_HASTED)
StateCheck([PC],STATE_MIRRORIMAGE)
CheckStatGT([PC],0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT([PC],0,PROTECTION_FROM_EVIL)
CheckStatGT([PC],0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT([PC],0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT([PC],0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT([PC],0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance([PC],ENEMY)
See([PC])
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
Allegiance(Myself,ENEMY)
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
OR(14)
CheckStatGT(LastSeenBy(Myself),0,STONESKINS)
CheckStatGT(LastSeenBy(Myself),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(LastSeenBy(Myself),99,MAGICDAMAGERESISTANCE)
StateCheck(LastSeenBy(Myself),STATE_IMPROVEDINVISIBILITY)
StateCheck(LastSeenBy(Myself),STATE_BLESS)
StateCheck(LastSeenBy(Myself),STATE_CHANT)
StateCheck(LastSeenBy(Myself),STATE_HASTED)
StateCheck(LastSeenBy(Myself),STATE_MIRRORIMAGE)
CheckStatGT(LastSeenBy(Myself),0,CLERIC_DEFENSIVE_HARMONY)
CheckStatGT(LastSeenBy(Myself),0,PROTECTION_FROM_EVIL)
CheckStatGT(LastSeenBy(Myself),0,CLERIC_PHYSICAL_MIRROR)
CheckStatGT(LastSeenBy(Myself),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(LastSeenBy(Myself),0,WIZARD_PROTECTION_FROM_PETRIFICATION)
CheckStatGT(LastSeenBy(Myself),0,SCRIPTINGSTATE2)
!StateCheck(Player1,STATE_DISABLED)
!CheckStatGT(Player1,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!CheckStatGT(Player2,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!CheckStatGT(Player3,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!CheckStatGT(Player4,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!CheckStatGT(Player5,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!CheckStatGT(Player6,0,CLERIC_INSECT_PLAGUE)
!Allegiance(Player6,ENEMY)
!Allegiance(LastSeenBy(Myself),ENEMY)
See(LastSeenBy(Myself))
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SpellNoDec(LastSeenBy(Myself),WIZARD_DISPEL_MAGIC)
SetGlobalTimer("DMWW_dispel","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!AreaCheck("ar3004")
!AreaCheck("ar3008")
See(NearestEnemyOfType([PC]))
!GlobalTimerNotExpired("DMWW_dispel","LOCALS")
GlobalTimerNotExpired("DMWWUndeadParanoia","GLOBAL")
!StateCheck(Player1,STATE_DISABLED)
!Allegiance(Player1,ENEMY)
!StateCheck(Player2,STATE_DISABLED)
!Allegiance(Player2,ENEMY)
!StateCheck(Player3,STATE_DISABLED)
!Allegiance(Player3,ENEMY)
!StateCheck(Player4,STATE_DISABLED)
!Allegiance(Player4,ENEMY)
!StateCheck(Player5,STATE_DISABLED)
!Allegiance(Player5,ENEMY)
!StateCheck(Player6,STATE_DISABLED)
!Allegiance(Player6,ENEMY)
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SpellNoDec(NearestEnemyOfType([PC]),WIZARD_DISPEL_MAGIC)
SetGlobalTimer("DMWW_dispel","LOCALS",18)
END

IF
Detect([GOODCUTOFF.0.DEMONIC.TANARI])
!GlobalTimerNotExpired("CharmDemon","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("CharmDemon","LOCALS",4)
DisplayStringHead(Myself,71008)
ReallyForceSpellRES("demochm",[GOODCUTOFF.0.DEMONIC.TANARI])
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("reinforce","LOCALS")
Detect(NearestEnemyOf(Myself))
!NumCreatureGT([ENEMY.0.DEMONIC],1)
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("reinforce","LOCALS",12)
SpellNoDec(Myself,DEMOGORGON_GATE)
DisplayStringHead(Myself,70998)
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE])
!CheckStatGT([PC.0.0.MAGE],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
CheckStatGT([PC.0.0.MAGE],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE_THIEF])
!CheckStatGT([PC.0.0.MAGE_THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
CheckStatGT([PC.0.0.MAGE_THIEF],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE_ALL])
!CheckStatGT([PC.0.0.MAGE_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
CheckStatGT([PC.0.0.MAGE_ALL],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.THIEF])
!CheckStatGT([PC.0.0.THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
CheckStatGT([PC.0.0.THIEF],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.BARD])
!CheckStatGT([PC.0.0.BARD],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.BARD],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
CheckStatGT([PC.0.0.BARD],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.THIEF_ALL])
!CheckStatGT([PC.0.0.THIEF_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
CheckStatGT([PC.0.0.THIEF_ALL],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.CLERIC])
!CheckStatGT([PC.0.0.CLERIC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.CLERIC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
CheckStatGT([PC.0.0.CLERIC],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC])
!CheckStatGT([PC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
CheckStatGT([PC],40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See(SecondNearest([PC]))
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(SecondNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
CheckStatGT(SecondNearest([PC]),40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See(ThirdNearest([PC]))
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(ThirdNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
CheckStatGT(ThirdNearest([PC]),40,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE])
!CheckStatGT([PC.0.0.MAGE],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE_THIEF])
!CheckStatGT([PC.0.0.MAGE_THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.MAGE_ALL])
!CheckStatGT([PC.0.0.MAGE_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.MAGE_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.THIEF])
!CheckStatGT([PC.0.0.THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.BARD])
!CheckStatGT([PC.0.0.BARD],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.BARD],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.BARD],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.THIEF_ALL])
!CheckStatGT([PC.0.0.THIEF_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.THIEF_ALL],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC.0.0.CLERIC])
!CheckStatGT([PC.0.0.CLERIC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.CLERIC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC.0.0.CLERIC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([PC])
!CheckStatGT([PC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([PC],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See(SecondNearest([PC]))
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(SecondNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(SecondNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See(ThirdNearest([PC]))
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(ThirdNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec(ThirdNearest([PC]),CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("implosion","LOCALS")
See([GOODCUTOFF.0.0.0.182])
!CheckStatGT([GOODCUTOFF.0.0.0.182],0,WIZARD_SPELL_TRAP)
!CheckStat([GOODCUTOFF.0.0.0.182],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([GOODCUTOFF.0.0.0.182],ENEMY)
!StateCheck([GOODCUTOFF.0.0.0.182],STATE_IMMOBILE)
!CheckStatGT([GOODCUTOFF.0.0.0.182],0,HELD)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([GOODCUTOFF.0.0.0.182],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([GOODCUTOFF.0.0.0.182],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([GOODCUTOFF.0.0.0.182],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("implosion","LOCALS",180)
SpellNoDec([GOODCUTOFF.0.0.0.182],CLERIC_IMPLOSION)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("earthquake","LOCALS")
See([PC])
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("earthquake","LOCALS",120)
SpellNoDec(Myself,CLERIC_EARTHQUAKE)
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See([PC])
!CheckStatGT([PC],0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT([PC],0,WIZARD_SPELL_TURNING)
!CheckStatGT([PC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
OR(5)
CheckStatGT([PC],99,MAGICDAMAGERESISTANCE)
!CheckStatGT([PC],-10,SAVEVSSPELL)
CheckStatGT([PC],0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT([PC],0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT([PC],2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec([PC],WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec([PC],WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec([PC],WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec([PC],WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See(SecondNearest([PC]))
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TURNING)
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(SecondNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
OR(5)
CheckStatGT(SecondNearest([PC]),99,MAGICDAMAGERESISTANCE)
!CheckStatGT(SecondNearest([PC]),-10,SAVEVSSPELL)
CheckStatGT(SecondNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(SecondNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(SecondNearest([PC]),2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See(ThirdNearest([PC]))
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TURNING)
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(ThirdNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
OR(5)
CheckStatGT(ThirdNearest([PC]),99,MAGICDAMAGERESISTANCE)
!CheckStatGT(ThirdNearest([PC]),-10,SAVEVSSPELL)
CheckStatGT(ThirdNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(ThirdNearest([PC]),2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See(FourthNearest([PC]))
!CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_TURNING)
!CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(FourthNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearest([PC]),ENEMY)
!StateCheck(FourthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FourthNearest([PC]),0,HELD)
OR(5)
CheckStatGT(FourthNearest([PC]),99,MAGICDAMAGERESISTANCE)
!CheckStatGT(FourthNearest([PC]),-10,SAVEVSSPELL)
CheckStatGT(FourthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(FourthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(FourthNearest([PC]),2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See(FifthNearest([PC]))
!CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_TURNING)
!CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(FifthNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearest([PC]),ENEMY)
!StateCheck(FifthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FifthNearest([PC]),0,HELD)
OR(5)
CheckStatGT(FifthNearest([PC]),99,MAGICDAMAGERESISTANCE)
!CheckStatGT(FifthNearest([PC]),-10,SAVEVSSPELL)
CheckStatGT(FifthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(FifthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(FifthNearest([PC]),2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("breach","LOCALS")
See(SixthNearest([PC]))
!CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
!CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_TURNING)
!CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(SixthNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearest([PC]),ENEMY)
!StateCheck(SixthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SixthNearest([PC]),0,HELD)
OR(5)
CheckStatGT(SixthNearest([PC]),99,MAGICDAMAGERESISTANCE)
!CheckStatGT(SixthNearest([PC]),-10,SAVEVSSPELL)
CheckStatGT(SixthNearest([PC]),0,CLERIC_CHAOTIC_COMMANDS)
CheckStatGT(SixthNearest([PC]),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
CheckStatGT(SixthNearest([PC]),2,STONESKINS)
!GlobalTimerNotExpired("DMWW_breach","LOCALS")
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("breach","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_BREACH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_breach","LOCALS",18)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See([PC])
OR(4)
CheckStatGT([PC],0,WIZARD_SPELL_TURNING)
CheckStatGT([PC],0,WIZARD_SPELL_DEFLECTION)
CheckStatGT([PC],0,WIZARD_SPELL_TRAP)
CheckStatGT([PC],0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec([PC],WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec([PC],WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec([PC],WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec([PC],WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See(SecondNearest([PC]))
OR(4)
CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TURNING)
CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TRAP)
CheckStatGT(SecondNearest([PC]),0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See(ThirdNearest([PC]))
OR(4)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TURNING)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TRAP)
CheckStatGT(ThirdNearest([PC]),0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See(FourthNearest([PC]))
OR(4)
CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_TURNING)
CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
CheckStatGT(FourthNearest([PC]),0,WIZARD_SPELL_TRAP)
CheckStatGT(FourthNearest([PC]),0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearest([PC]),ENEMY)
!StateCheck(FourthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FourthNearest([PC]),0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FourthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See(FifthNearest([PC]))
OR(4)
CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_TURNING)
CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
CheckStatGT(FifthNearest([PC]),0,WIZARD_SPELL_TRAP)
CheckStatGT(FifthNearest([PC]),0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearest([PC]),ENEMY)
!StateCheck(FifthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(FifthNearest([PC]),0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(FifthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("spellstrike","LOCALS")
See(SixthNearest([PC]))
OR(4)
CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_TURNING)
CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_DEFLECTION)
CheckStatGT(SixthNearest([PC]),0,WIZARD_SPELL_TRAP)
CheckStatGT(SixthNearest([PC]),0,MINORGLOBE)
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearest([PC]),ENEMY)
!StateCheck(SixthNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SixthNearest([PC]),0,HELD)
!GlobalTimerNotExpired("DMWW_antimagic","LOCALS")
THEN
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #100
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("spellstrike","LOCALS",18)
SpellNoDec(SixthNearest([PC]),WIZARD_SPELL_STRIKE)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
SetGlobalTimer("DMWW_antimagic","LOCALS",18)
RESPONSE #100
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(SixthNearest([PC]),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearest([PC]),ENEMY)
!StateCheck(SixthNearest([PC]),STATE_MIRRORIMAGE)
See(SixthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(FifthNearest([PC]),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearest([PC]),ENEMY)
!StateCheck(FifthNearest([PC]),STATE_MIRRORIMAGE)
See(FifthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(FourthNearest([PC]),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearest([PC]),ENEMY)
!StateCheck(FourthNearest([PC]),STATE_MIRRORIMAGE)
See(FourthNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(ThirdNearest([PC]),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_MIRRORIMAGE)
See(ThirdNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(SecondNearest([PC]),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_MIRRORIMAGE)
See(SecondNearest([PC]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT([PC],50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_MIRRORIMAGE)
See([PC])
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("dragon","LOCALS")
!CheckStatGT(LastSeenBy(Myself),50,RESISTFIRE)
Allegiance(Myself,ENEMY)
!Allegiance(LastSeenBy(Myself),ENEMY)
!StateCheck(LastSeenBy(Myself),STATE_MIRRORIMAGE)
See(LastSeenBy(Myself))
THEN
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("dragon","LOCALS",1000)
SpellNoDec(LastSeenBy(Myself),WIZARD_DRAGONS_BREATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("dragon","LOCALS",1000)
SpellNoDec(LastSeenBy(Myself),WIZARD_DRAGONS_BREATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("dragon","LOCALS",1000)
SpellNoDec(LastSeenBy(Myself),WIZARD_DRAGONS_BREATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("dragon","LOCALS",1000)
SpellNoDec(LastSeenBy(Myself),WIZARD_DRAGONS_BREATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(NearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(NearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(NearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
!CheckStat(NearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(SecondNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(SecondNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(SecondNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
!CheckStat(SecondNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(ThirdNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(ThirdNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(ThirdNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
!CheckStat(ThirdNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(FourthNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(FourthNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(FourthNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(FourthNearestEnemyOf(Myself),ENEMY)
!CheckStat(FourthNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(FifthNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(FifthNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(FifthNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(FifthNearestEnemyOf(Myself),ENEMY)
!CheckStat(FifthNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(SixthNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(SixthNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(SixthNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(SixthNearestEnemyOf(Myself),ENEMY)
!CheckStat(SixthNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(SeventhNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(SeventhNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(SeventhNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(SeventhNearestEnemyOf(Myself),ENEMY)
!CheckStat(SeventhNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("truesight","LOCALS")
See(EighthNearestEnemyOf(Myself))
!CheckStatGT(Myself,0,TRUE_SIGHT)
OR(2)
StateCheck(EighthNearestEnemyOf(Myself),STATE_MIRRORIMAGE)
Gender(EighthNearestEnemyOf(Myself),ILLUSIONARY)
!Allegiance(EighthNearestEnemyOf(Myself),ENEMY)
!CheckStat(EighthNearestEnemyOf(Myself),3,WIZARD_SPELL_IMMUNITY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("truesight","LOCALS",30)
SpellNoDec(Myself,WIZARD_TRUE_SIGHT)
RESPONSE #150
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),10,Level)
OR(2)
Gender(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),SUMMONED)
Gender(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),20)
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),ENEMY)
!StateCheck(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),STATE_IMMOBILE)
!CheckStatGT(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),0,HELD)
See(SixthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),10,Level)
OR(2)
Gender(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),SUMMONED)
Gender(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),20)
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),ENEMY)
!StateCheck(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),STATE_IMMOBILE)
!CheckStatGT(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),0,HELD)
See(FifthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),10,Level)
OR(2)
Gender(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),SUMMONED)
Gender(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),20)
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),ENEMY)
!StateCheck(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),STATE_IMMOBILE)
!CheckStatGT(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),0,HELD)
See(FourthNearest([GOODCUTOFF.0.0.0.0.SUMMONED]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),10,Level)
OR(2)
Gender(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),SUMMONED)
Gender(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),20)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),ENEMY)
!StateCheck(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),0,HELD)
See(ThirdNearest([GOODCUTOFF.0.0.0.0.SUMMONED]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),10,Level)
OR(2)
Gender(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),SUMMONED)
Gender(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),20)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),ENEMY)
!StateCheck(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]),0,HELD)
See(SecondNearest([GOODCUTOFF.0.0.0.0.SUMMONED]))
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT([GOODCUTOFF.0.0.0.0.SUMMONED],10,Level)
OR(2)
Gender([GOODCUTOFF.0.0.0.0.SUMMONED],SUMMONED)
Gender([GOODCUTOFF.0.0.0.0.SUMMONED],20)
Allegiance(Myself,ENEMY)
!Allegiance([GOODCUTOFF.0.0.0.0.SUMMONED],ENEMY)
!StateCheck([GOODCUTOFF.0.0.0.0.SUMMONED],STATE_IMMOBILE)
!CheckStatGT([GOODCUTOFF.0.0.0.0.SUMMONED],0,HELD)
See([GOODCUTOFF.0.0.0.0.SUMMONED])
False()
THEN
RESPONSE #100
 Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("deathspell","LOCALS")
CheckStatGT(LastSeenBy(Myself),10,Level)
OR(2)
Gender(LastSeenBy(Myself),SUMMONED)
Gender(LastSeenBy(Myself),20)
Allegiance(Myself,ENEMY)
!Allegiance(LastSeenBy(Myself),ENEMY)
!StateCheck(LastSeenBy(Myself),STATE_IMMOBILE)
!CheckStatGT(LastSeenBy(Myself),0,HELD)
See(LastSeenBy(Myself))
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("deathspell","LOCALS",30)
SpellNoDec(LastSeenBy(Myself),WIZARD_DEATH_SPELL)
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("unholyword","LOCALS")
See(NearestEnemyOf(Myself))
Range(NearestEnemyOf(Myself),10)
!CheckStatGT(NearestEnemyOf(Myself),50,RESISTMAGIC)
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
!StateCheck(NearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(NearestEnemyOf(Myself),0,HELD)
Alignment(NearestEnemyOf(Myself),MASK_GOOD)
!Alignment(Myself,MASK_GOOD)
THEN
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(NearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(NearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(NearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(NearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("unholyword","LOCALS")
See(SecondNearestEnemyOf(Myself))
Range(SecondNearestEnemyOf(Myself),10)
!CheckStatGT(SecondNearestEnemyOf(Myself),50,RESISTMAGIC)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
!StateCheck(SecondNearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(SecondNearestEnemyOf(Myself),0,HELD)
Alignment(SecondNearestEnemyOf(Myself),MASK_GOOD)
!Alignment(Myself,MASK_GOOD)
THEN
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(SecondNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(SecondNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(SecondNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(SecondNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("unholyword","LOCALS")
See(ThirdNearestEnemyOf(Myself))
Range(ThirdNearestEnemyOf(Myself),10)
!CheckStatGT(ThirdNearestEnemyOf(Myself),50,RESISTMAGIC)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
!StateCheck(ThirdNearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(ThirdNearestEnemyOf(Myself),0,HELD)
Alignment(ThirdNearestEnemyOf(Myself),MASK_GOOD)
!Alignment(Myself,MASK_GOOD)
THEN
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(ThirdNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(ThirdNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(ThirdNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #200
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("unholyword","LOCALS",30)
SpellNoDec(ThirdNearestEnemyOf(Myself),CLERIC_UNHOLY_WORD)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.MAGE])
!CheckStatGT([PC.0.0.MAGE],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.MAGE],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!CheckStatGT([PC.0.0.MAGE],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.MAGE_THIEF])
!CheckStatGT([PC.0.0.MAGE_THIEF],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!CheckStatGT([PC.0.0.MAGE_THIEF],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.MAGE_ALL])
!CheckStatGT([PC.0.0.MAGE_ALL],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.MAGE_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.MAGE_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!CheckStatGT([PC.0.0.MAGE_ALL],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.MAGE_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.THIEF])
!CheckStatGT([PC.0.0.THIEF],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.THIEF],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!CheckStatGT([PC.0.0.THIEF],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.BARD])
!CheckStatGT([PC.0.0.BARD],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.BARD],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.BARD],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!CheckStatGT([PC.0.0.BARD],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.BARD],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.BARD],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.BARD],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.BARD],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.THIEF_ALL])
!CheckStatGT([PC.0.0.THIEF_ALL],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.THIEF_ALL],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.THIEF_ALL],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!CheckStatGT([PC.0.0.THIEF_ALL],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.THIEF_ALL],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC.0.0.CLERIC])
!CheckStatGT([PC.0.0.CLERIC],99,RESISTMAGIC)
!CheckStatGT([PC.0.0.CLERIC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC.0.0.CLERIC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!CheckStatGT([PC.0.0.CLERIC],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.CLERIC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.CLERIC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.CLERIC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC.0.0.CLERIC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See([PC])
!CheckStatGT([PC],99,RESISTMAGIC)
!CheckStatGT([PC],0,WIZARD_SPELL_TRAP)
!CheckStat([PC],1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!CheckStatGT([PC],50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec([PC],WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See(SecondNearest([PC]))
!CheckStatGT(SecondNearest([PC]),99,RESISTMAGIC)
!CheckStatGT(SecondNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(SecondNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!CheckStatGT(SecondNearest([PC]),50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See(ThirdNearest([PC]))
!CheckStatGT(ThirdNearest([PC]),99,RESISTMAGIC)
!CheckStatGT(ThirdNearest([PC]),0,WIZARD_SPELL_TRAP)
!CheckStat(ThirdNearest([PC]),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!CheckStatGT(ThirdNearest([PC]),50,RESISTMAGIC)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearest([PC]),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See(NearestEnemyOf(Myself))
!CheckStatGT(NearestEnemyOf(Myself),99,RESISTMAGIC)
!CheckStatGT(NearestEnemyOf(Myself),0,WIZARD_SPELL_TRAP)
!CheckStat(NearestEnemyOf(Myself),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(NearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(NearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(NearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(NearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See(SecondNearestEnemyOf(Myself))
!CheckStatGT(SecondNearestEnemyOf(Myself),99,RESISTMAGIC)
!CheckStatGT(SecondNearestEnemyOf(Myself),0,WIZARD_SPELL_TRAP)
!CheckStat(SecondNearestEnemyOf(Myself),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(SecondNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
!GlobalTimerNotExpired("castspell","LOCALS")
!GlobalTimerNotExpired("finger","LOCALS")
See(ThirdNearestEnemyOf(Myself))
!CheckStatGT(ThirdNearestEnemyOf(Myself),99,RESISTMAGIC)
!CheckStatGT(ThirdNearestEnemyOf(Myself),0,WIZARD_SPELL_TRAP)
!CheckStat(ThirdNearestEnemyOf(Myself),1,CLERIC_SHIELD_OF_THE_ARCHONS)
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
THEN
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",[PC])
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71004)
ReallyForceSpellRES("beguile",SecondNearest([PC]))
RESPONSE #150
SetGlobalTimer("castspell","LOCALS",6)
SetGlobalTimer("finger","LOCALS",18)
SpellNoDec(ThirdNearestEnemyOf(Myself),WIZARD_FINGER_OF_DEATH)
DisplayStringHead(Myself,71005)
ReallyForceSpellRES("insanity",SecondNearest([PC]))
RESPONSE #50
Continue()
END

IF
StateCheck(Myself,STATE_CHARMED)
See(NearestEnemyOf(Myself))
!StateCheck(NearestEnemyOf(Myself),STATE_INVISIBLE)
!Range(NearestEnemyOf(Myself),5)
THEN
RESPONSE #100
EquipRanged()
Attack(NearestEnemyOf(Myself))
END

IF
StateCheck(Myself,STATE_CHARMED)
See(NearestEnemyOf(Myself))
!StateCheck(NearestEnemyOf(Myself),STATE_INVISIBLE)
Range(NearestEnemyOf(Myself),5)
THEN
RESPONSE #100
EquipMostDamagingMelee()
Attack(NearestEnemyOf(Myself))
END

IF
See(LastTargetedBy(Myself))
CheckStat(Myself,0,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
OR(2)
!CheckStat(LastTargetedBy(Myself),0,WIZARD_PROTECTION_FROM_NORMAL_WEAPONS)
HasItem("immune1",LastTargetedBy(Myself))
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See(LastTargetedBy(Myself))
CheckStatLT(Myself,2,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
HasItem("immune2",LastTargetedBy(Myself))
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See(LastTargetedBy(Myself))
CheckStatLT(Myself,3,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
OR(2)
CheckStatGT(LastTargetedBy(Myself),0,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
HasItem("immune3",LastTargetedBy(Myself))
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See(LastTargetedBy(Myself))
CheckStat(Myself,3,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
OR(2)
CheckStatGT(LastTargetedBy(Myself),1,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
HasItem("immune4",LastTargetedBy(Myself))
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See(LastTargetedBy(Myself))
CheckStat(Myself,4,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
CheckStatGT(LastTargetedBy(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See(LastTargetedBy(Myself))
!CheckStat(Myself,0,WEAPON_ENCHANTMENT)
Global("validtarget","LOCALS",1)
CheckStat(LastTargetedBy(Myself),4,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",0)
ClearActions(Myself)
END

IF
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
!StateCheck([PC.0.0.MAGE],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE],20)
Range([PC.0.0.MAGE],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE])
END

IF
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE_THIEF],20)
Range([PC.0.0.MAGE_THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_THIEF])
END

IF
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
!StateCheck([PC.0.0.MAGE_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_ALL],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE_ALL],20)
Range([PC.0.0.MAGE_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_ALL])
END

IF
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
!StateCheck([PC.0.0.THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF],0,STONESKINS)
!HPPercentGT([PC.0.0.THIEF],20)
Range([PC.0.0.THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF])
END

IF
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
!StateCheck([PC.0.0.BARD],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.BARD],0,STONESKINS)
!HPPercentGT([PC.0.0.BARD],20)
Range([PC.0.0.BARD],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.BARD])
END

IF
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
!StateCheck([PC.0.0.THIEF_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF_ALL],0,STONESKINS)
!HPPercentGT([PC.0.0.THIEF_ALL],20)
Range([PC.0.0.THIEF_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF_ALL])
END

IF
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
!StateCheck([PC.0.0.CLERIC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.CLERIC],0,STONESKINS)
!HPPercentGT([PC.0.0.CLERIC],20)
Range([PC.0.0.CLERIC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.CLERIC])
END

IF
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
!StateCheck([PC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
!CheckStatGT([PC],0,STONESKINS)
!HPPercentGT([PC],20)
Range([PC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC])
END

IF
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
!StateCheck(SecondNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(SecondNearest([PC]),0,STONESKINS)
!HPPercentGT(SecondNearest([PC]),20)
Range(SecondNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearest([PC]))
END

IF
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
!StateCheck(ThirdNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(ThirdNearest([PC]),0,STONESKINS)
!HPPercentGT(ThirdNearest([PC]),20)
Range(ThirdNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearest([PC]))
END

IF
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
!StateCheck([PC.0.0.MAGE],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE],50)
Range([PC.0.0.MAGE],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE])
END

IF
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE_THIEF],50)
Range([PC.0.0.MAGE_THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_THIEF])
END

IF
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
!StateCheck([PC.0.0.MAGE_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_ALL],0,STONESKINS)
!HPPercentGT([PC.0.0.MAGE_ALL],50)
Range([PC.0.0.MAGE_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_ALL])
END

IF
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
!StateCheck([PC.0.0.THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF],0,STONESKINS)
!HPPercentGT([PC.0.0.THIEF],50)
Range([PC.0.0.THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF])
END

IF
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
!StateCheck([PC.0.0.BARD],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.BARD],0,STONESKINS)
!HPPercentGT([PC.0.0.BARD],50)
Range([PC.0.0.BARD],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.BARD])
END

IF
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
!StateCheck([PC.0.0.THIEF_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF_ALL],0,STONESKINS)
!HPPercentGT([PC.0.0.THIEF_ALL],50)
Range([PC.0.0.THIEF_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF_ALL])
END

IF
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
!StateCheck([PC.0.0.CLERIC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.CLERIC],0,STONESKINS)
!HPPercentGT([PC.0.0.CLERIC],50)
Range([PC.0.0.CLERIC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.CLERIC])
END

IF
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
!StateCheck([PC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
!CheckStatGT([PC],0,STONESKINS)
!HPPercentGT([PC],50)
Range([PC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC])
END

IF
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
!StateCheck(SecondNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(SecondNearest([PC]),0,STONESKINS)
!HPPercentGT(SecondNearest([PC]),50)
Range(SecondNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearest([PC]))
END

IF
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
!StateCheck(ThirdNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(ThirdNearest([PC]),0,STONESKINS)
!HPPercentGT(ThirdNearest([PC]),50)
Range(ThirdNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearest([PC]))
END

IF
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
!StateCheck([PC.0.0.MAGE],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE],0,STONESKINS)
Range([PC.0.0.MAGE],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE])
END

IF
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,STONESKINS)
Range([PC.0.0.MAGE_THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_THIEF])
END

IF
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
!StateCheck([PC.0.0.MAGE_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.MAGE_ALL],0,STONESKINS)
Range([PC.0.0.MAGE_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_ALL])
END

IF
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
!StateCheck([PC.0.0.THIEF],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF],0,STONESKINS)
Range([PC.0.0.THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF])
END

IF
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
!StateCheck([PC.0.0.BARD],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.BARD],0,STONESKINS)
Range([PC.0.0.BARD],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.BARD])
END

IF
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
!StateCheck([PC.0.0.THIEF_ALL],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.THIEF_ALL],0,STONESKINS)
Range([PC.0.0.THIEF_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF_ALL])
END

IF
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
!StateCheck([PC.0.0.CLERIC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
!CheckStatGT([PC.0.0.CLERIC],0,STONESKINS)
Range([PC.0.0.CLERIC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.CLERIC])
END

IF
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
!StateCheck([PC],STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
!CheckStatGT([PC],0,STONESKINS)
Range([PC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC])
END

IF
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
!StateCheck(SecondNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(SecondNearest([PC]),0,STONESKINS)
Range(SecondNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearest([PC]))
END

IF
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
!StateCheck(ThirdNearest([PC]),STATE_MIRRORIMAGE)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
!CheckStatGT(ThirdNearest([PC]),0,STONESKINS)
Range(ThirdNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearest([PC]))
END

IF
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
Range([PC.0.0.MAGE],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE])
END

IF
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
Range([PC.0.0.MAGE_THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_THIEF])
END

IF
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
Range([PC.0.0.MAGE_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.MAGE_ALL])
END

IF
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
Range([PC.0.0.THIEF],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF])
END

IF
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.BARD],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
Range([PC.0.0.BARD],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.BARD])
END

IF
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
Range([PC.0.0.THIEF_ALL],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.THIEF_ALL])
END

IF
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_IMMOBILE)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
Range([PC.0.0.CLERIC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC.0.0.CLERIC])
END

IF
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_IMMOBILE)
!CheckStatGT([PC],0,HELD)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
Range([PC],4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound([PC])
END

IF
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(SecondNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
Range(SecondNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearest([PC]))
END

IF
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_IMMOBILE)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
Range(ThirdNearest([PC]),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearest([PC]))
END

IF
See(NearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
!StateCheck(NearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(NearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(NearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(NearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(NearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(NearestEnemyOf(Myself))
END

IF
See(SecondNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
!StateCheck(SecondNearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(SecondNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(SecondNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(SecondNearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearestEnemyOf(Myself))
END

IF
See(ThirdNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
!StateCheck(ThirdNearestEnemyOf(Myself),STATE_IMMOBILE)
!CheckStatGT(ThirdNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(ThirdNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(ThirdNearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearestEnemyOf(Myself))
END

IF
See(NearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(NearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(NearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(NearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(NearestEnemyOf(Myself))
END

IF
See(SecondNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(SecondNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(SecondNearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(SecondNearestEnemyOf(Myself))
END

IF
See(ThirdNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(ThirdNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearestEnemyOf(Myself),75,RESISTCRUSHING)
Range(ThirdNearestEnemyOf(Myself),4)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(ThirdNearestEnemyOf(Myself))
END

IF
HasItem("dw#move0",Myself)
THEN
RESPONSE #100
NoAction()
END

IF
ActionListEmpty()
See(NearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(NearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(NearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(NearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(NearestEnemyOf(Myself),STATE_IMMOBILE)
Range(NearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(NearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SecondNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(SecondNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(SecondNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(SecondNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(SecondNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(SecondNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(ThirdNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(ThirdNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(ThirdNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(ThirdNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(ThirdNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(ThirdNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(FourthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(FourthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(FourthNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(FourthNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(FourthNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(FourthNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(FourthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(FifthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(FifthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(FifthNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(FifthNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(FifthNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(FifthNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(FifthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SixthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(SixthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SixthNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(SixthNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(SixthNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(SixthNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(SixthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SeventhNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SeventhNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(SeventhNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SeventhNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(SeventhNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(SeventhNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(SeventhNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(SeventhNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(EighthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(EighthNearestEnemyOf(Myself),ENEMY)
OR(2)
!CheckStatGT(EighthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(EighthNearestEnemyOf(Myself),75,RESISTCRUSHING)
OR(2)
StateCheck(EighthNearestEnemyOf(Myself),STATE_HELPLESS)
StateCheck(EighthNearestEnemyOf(Myself),STATE_IMMOBILE)
Range(EighthNearestEnemyOf(Myself),10)
THEN
RESPONSE #100
MoveToObject(EighthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.MAGE],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE])
END

IF
ActionListEmpty()
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.MAGE_THIEF],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE_THIEF])
END

IF
ActionListEmpty()
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.MAGE_ALL],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE_ALL])
END

IF
ActionListEmpty()
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_DISABLED)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.THIEF],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.THIEF])
END

IF
ActionListEmpty()
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_DISABLED)
!CheckStatGT([PC.0.0.BARD],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.BARD],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.BARD])
END

IF
ActionListEmpty()
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_DISABLED)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.THIEF_ALL],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.THIEF_ALL])
END

IF
ActionListEmpty()
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_DISABLED)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
!HPPercentGT([PC.0.0.CLERIC],40)
THEN
RESPONSE #100
MoveToObject([PC.0.0.CLERIC])
END

IF
ActionListEmpty()
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_DISABLED)
!CheckStatGT([PC],0,HELD)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
!HPPercentGT([PC],40)
THEN
RESPONSE #100
MoveToObject([PC])
END

IF
ActionListEmpty()
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_DISABLED)
!CheckStatGT(SecondNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
!HPPercentGT(SecondNearest([PC]),40)
THEN
RESPONSE #100
MoveToObject(SecondNearest([PC]))
END

IF
ActionListEmpty()
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_DISABLED)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
!HPPercentGT(ThirdNearest([PC]),40)
THEN
RESPONSE #100
MoveToObject(ThirdNearest([PC]))
END

IF
ActionListEmpty()
See([PC.0.0.MAGE])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE],ENEMY)
!StateCheck([PC.0.0.MAGE],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE])
END

IF
ActionListEmpty()
See([PC.0.0.MAGE_THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_THIEF],ENEMY)
!StateCheck([PC.0.0.MAGE_THIEF],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE_THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_THIEF],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE_THIEF])
END

IF
ActionListEmpty()
See([PC.0.0.MAGE_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.MAGE_ALL],ENEMY)
!StateCheck([PC.0.0.MAGE_ALL],STATE_DISABLED)
!CheckStatGT([PC.0.0.MAGE_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.MAGE_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.MAGE_ALL],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.MAGE_ALL])
END

IF
ActionListEmpty()
See([PC.0.0.THIEF])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF],ENEMY)
!StateCheck([PC.0.0.THIEF],STATE_DISABLED)
!CheckStatGT([PC.0.0.THIEF],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.THIEF])
END

IF
ActionListEmpty()
See([PC.0.0.BARD])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.BARD],ENEMY)
!StateCheck([PC.0.0.BARD],STATE_DISABLED)
!CheckStatGT([PC.0.0.BARD],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.BARD],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.BARD],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.BARD])
END

IF
ActionListEmpty()
See([PC.0.0.THIEF_ALL])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.THIEF_ALL],ENEMY)
!StateCheck([PC.0.0.THIEF_ALL],STATE_DISABLED)
!CheckStatGT([PC.0.0.THIEF_ALL],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.THIEF_ALL],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.THIEF_ALL],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.THIEF_ALL])
END

IF
ActionListEmpty()
See([PC.0.0.CLERIC])
Allegiance(Myself,ENEMY)
!Allegiance([PC.0.0.CLERIC],ENEMY)
!StateCheck([PC.0.0.CLERIC],STATE_DISABLED)
!CheckStatGT([PC.0.0.CLERIC],0,HELD)
OR(2)
!CheckStatGT([PC.0.0.CLERIC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC.0.0.CLERIC],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC.0.0.CLERIC])
END

IF
ActionListEmpty()
See([PC])
Allegiance(Myself,ENEMY)
!Allegiance([PC],ENEMY)
!StateCheck([PC],STATE_DISABLED)
!CheckStatGT([PC],0,HELD)
OR(2)
!CheckStatGT([PC],2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT([PC],75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject([PC])
END

IF
ActionListEmpty()
See(SecondNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearest([PC]),ENEMY)
!StateCheck(SecondNearest([PC]),STATE_DISABLED)
!CheckStatGT(SecondNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(SecondNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearest([PC]),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(SecondNearest([PC]))
END

IF
ActionListEmpty()
See(ThirdNearest([PC]))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearest([PC]),ENEMY)
!StateCheck(ThirdNearest([PC]),STATE_DISABLED)
!CheckStatGT(ThirdNearest([PC]),0,HELD)
OR(2)
!CheckStatGT(ThirdNearest([PC]),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearest([PC]),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(ThirdNearest([PC]))
END

IF
ActionListEmpty()
See(NearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(NearestEnemyOf(Myself),ENEMY)
!StateCheck(NearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(NearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(NearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(NearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(NearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SecondNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SecondNearestEnemyOf(Myself),ENEMY)
!StateCheck(SecondNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(SecondNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(SecondNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SecondNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(SecondNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(ThirdNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(ThirdNearestEnemyOf(Myself),ENEMY)
!StateCheck(ThirdNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(ThirdNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(ThirdNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(ThirdNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(ThirdNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(FourthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(FourthNearestEnemyOf(Myself),ENEMY)
!StateCheck(FourthNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(FourthNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(FourthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(FourthNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(FourthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(FifthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(FifthNearestEnemyOf(Myself),ENEMY)
!StateCheck(FifthNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(FifthNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(FifthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(FifthNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(FifthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SixthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SixthNearestEnemyOf(Myself),ENEMY)
!StateCheck(SixthNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(SixthNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(SixthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SixthNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(SixthNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(SeventhNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(SeventhNearestEnemyOf(Myself),ENEMY)
!StateCheck(SeventhNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(SeventhNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(SeventhNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(SeventhNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(SeventhNearestEnemyOf(Myself))
END

IF
ActionListEmpty()
See(EighthNearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
!Allegiance(EighthNearestEnemyOf(Myself),ENEMY)
!StateCheck(EighthNearestEnemyOf(Myself),STATE_DISABLED)
!CheckStatGT(EighthNearestEnemyOf(Myself),0,HELD)
OR(2)
!CheckStatGT(EighthNearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
CheckStatLT(EighthNearestEnemyOf(Myself),75,RESISTCRUSHING)
THEN
RESPONSE #100
MoveToObject(EighthNearestEnemyOf(Myself))
END

IF
See(Player4)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player4,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player4)
END

IF
See(Player5)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player5,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player5)
END

IF
See(Player6)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player6,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player6)
END

IF
See(Player3)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player3,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player3)
END

IF
See(Player2)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player2,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player2)
END

IF
See(Player1)
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(Player1,2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(Player1)
END

IF
See(NearestEnemyOf(Myself))
Allegiance(Myself,ENEMY)
OR(2)
!CheckStatGT(NearestEnemyOf(Myself),2,WIZARD_PROTECTION_FROM_MAGIC_WEAPONS)
GlobalTimerNotExpired("seedefences","LOCALS")
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(NearestEnemyOf(Myself))
END

IF
See(NearestEnemyOf(Myself))
!GlobalTimerNotExpired("setmeleetarget","LOCALS")
Allegiance(Myself,ENEMY)
THEN
RESPONSE #100
SetGlobal("validtarget","LOCALS",1)
EquipMostDamagingMelee()
AttackOneRound(NearestEnemyOf(Myself))
END

IF
!Allegiance(Myself,[ENEMY])
See(NearestEnemyOf(Myself))
THEN
RESPONSE #100
AttackReevaluate(NearestEnemyOf(Myself),30)
END

IF
!Allegiance(Myself,[ENEMY])
AttackedBy([ANYONE],DEFAULT)
THEN
RESPONSE #100
Attack(LastAttackerOf(Myself))
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",1)
!See(NearestEnemyOf(Myself))
!Detect(Player1)
InMyArea(Player1)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player1,STATE_INVISIBLE)
!CheckStatGT(Player1,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player1)
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",2)
!See(NearestEnemyOf(Myself))
!Detect(Player2)
InMyArea(Player2)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player2,STATE_INVISIBLE)
!CheckStatGT(Player2,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player2)
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",3)
!See(NearestEnemyOf(Myself))
!Detect(Player3)
InMyArea(Player3)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player3,STATE_INVISIBLE)
!CheckStatGT(Player3,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player3)
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",4)
!See(NearestEnemyOf(Myself))
!Detect(Player4)
InMyArea(Player4)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player4,STATE_INVISIBLE)
!CheckStatGT(Player4,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player4)
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",5)
!See(NearestEnemyOf(Myself))
!Detect(Player5)
InMyArea(Player5)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player5,STATE_INVISIBLE)
!CheckStatGT(Player5,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player5)
END

IF
ActionListEmpty()
Global("inafight","LOCALS",1)
Allegiance(Myself,[ENEMY])
!Detect(NearestEnemyOf(Myself))
Global("chasePC","LOCALS",6)
!See(NearestEnemyOf(Myself))
!Detect(Player6)
InMyArea(Player6)
!AreaCheck("ar3004")
!AreaCheck("ar2202")
!StateCheck(Player6,STATE_INVISIBLE)
!CheckStatGT(Player6,0,SANCTUARY)
THEN
RESPONSE #100
ReallyForceSpellRES("dw#fitel",Player6)
END