IF
    AttackedBy([PC],DEFAULT)
    Allegiance(Myself,NEUTRAL)
THEN
    RESPONSE #100
        Enemy()
END

IF
    Heard([0.0.ELF.0.SULDANESSALLAR],199)
    Allegiance(Myself,NEUTRAL)
THEN
    RESPONSE #100
        Enemy()
END

IF
    Allegiance(Myself,ENEMY)
THEN
    RESPONSE #100
        Shout(199)
        EscapeArea()
END

IF
    Detect([PC])
    Dead("surakw1")
    Dead("surakw2")
    Dead("surakw3")
    Dead("surakw4")
    Dead("suelfw9")
    Dead("suelfw10")
    Global("Scene2","AR2800",2)
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        SetGlobal("Scene2","AR2800",3)
        DisplayStringHead(Myself,23965) // Seek out the befoulers! 
        Wait(1)
        ForceSpell(Myself,DRYAD_TELEPORT)
END

IF
    Global("Scene2","AR2800",3)
    OR(2)
        !Dead("suelfw9")
        !Dead("suelfw10")
THEN
    RESPONSE #100
        SetInterrupt(FALSE)
        Wait(1)
        ForceSpell(Myself,DRYAD_TELEPORT)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",0)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell(Myself,WIZARD_MINOR_SPELL_DEFLECTION)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",1)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell([ENEMY],WIZARD_CONTAGION)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",2)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell([ENEMY],WIZARD_MELF_METEOR)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",3)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell([ENEMY],FLASHY_1)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",4)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell([ENEMY],WIZARD_LIGHTNING_BOLT)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
    Global("Fight","LOCALS",5)
THEN
    RESPONSE #100
        IncrementGlobal("Fight","LOCALS",1)
        ForceSpell([ENEMY],WIZARD_MAGIC_MISSILE)
END

IF
    Global("Scene2","AR2800",2)
    See([ENEMY])
THEN
    RESPONSE #100
        AttackReevaluate(NearestEnemyOf(Myself),45)
END


