IF
    HP(Myself,1)
THEN
    RESPONSE #100
        CreateCreatureObject("lhICE2",Myself,2,0,0)
        TakeItemReplace("","MINHP1",Myself) // No such index
        Deactivate(Myself)
        DestroySelf()
END

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)
        Weather(SNOW)
END

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


