IF
    Heard([ANYONE],111)
THEN
    RESPONSE #100
        MoveToObject(NearestEnemyOf(Myself))
        Continue()
END

IF
    See(NearestEnemyOf(Myself))
    HaveSpell(CLERIC_IRONSKIN)
THEN
    RESPONSE #100
        DisplayStringHead(Myself,@0) // Ice Skin !
        Spell(Myself,CLERIC_IRONSKIN)
        ApplySpell(Myself,WIZARD_FIRE_SHIELD_BLUE)
END

IF
    See(NearestEnemyOf(Myself))
    !See([GOODCUTOFF])
THEN
    RESPONSE #80
        PlaySound("lhICE2")
        RunAwayFrom(LastAttackerOf,15)
        DisplayStringHead(Myself,@1) // Arctic Attack !
        ReallyForceSpell(NearestEnemyOf(Myself),WIZARD_CONE_OF_COLD)
        MoveToObject(NearestEnemyOf(Myself))
        Wait(3)
    RESPONSE #20
        ForceSpell(NearestEnemyOf(Myself),WIZARD_ICE_STORM)
        DisplayStringHead(Myself,@2) // Avalanche !
        RunAwayFrom(LastAttackerOf,20)
END

IF
    See(NearestEnemyOf(Myself))
THEN
    RESPONSE #100
        PlaySound("lhICE1")
        RunAwayFrom(LastAttackerOf,5)
        DisplayStringHead(Myself,@3) // Icebeam !
        ReallyForceSpell(NearestEnemyOf(Myself),AERIE_DISPEL_MAGIC)
        MoveToObject(NearestEnemyOf(Myself))
END

IF
    !See(NearestEnemyOf(Myself))
THEN
    RESPONSE #100
        MoveToObject(Player1)
END


