IF
    Global("DenDie","GLOBAL",1)
THEN
    RESPONSE #100
        ClearAllActions()
        EscapeArea()
END

IF
    Global("DenDie","GLOBAL",2)
THEN
    RESPONSE #100
        ClearAllActions()
        EscapeArea()
END

IF
    Global("DenDie","GLOBAL",3)
THEN
    RESPONSE #100
        Deactivate(Myself)
        DestroySelf()
END

IF
    HPLT(Myself,1)
THEN
    RESPONSE #100
        SetGlobal("CPult1","AR2100",1)
        Deactivate(Myself)
        DestroySelf()
END

IF
    See([GOODCUTOFF])
    Global("CPult1","AR2100",0)
    !Range(NearestEnemyOf(Myself),10)
THEN
    RESPONSE #70
        ForceSpell(NearestEnemyOf(Myself),ANOMEN_TITLE)
        Wait(1)
    RESPONSE #10
        ForceSpell(Player1,ANOMEN_TITLE)
        Wait(1)
    RESPONSE #10
        ForceSpell(Player2,ANOMEN_TITLE)
        Wait(1)
    RESPONSE #10
        ForceSpell(Player3,ANOMEN_TITLE)
        Wait(1)
END


