scope FallenAngel initializer FallenAngelInit {

    boolean FallenAngelCond() {
    return GetSpellAbilityId() == 'A0LN'
    }

    function FallenAngelCast2 takes void returns void
        timer t = GetExpiredTimer()
        int id = GetHandleId(t)
        unit u = LoadUnitHandle(h, id, 0)
        real time = LoadReal(h, id, 2)
        real x = GetUnitX(u)
        real y = GetUnitY(u)
        real x1 = LoadReal(h, id, 5)
        real y1 = LoadReal(h, id, 6)
        player p = GetOwningPlayer(u)
        int ip = GetPlayerId(p)
        group g = LoadGroupHandle(h, id, 8)
        if time < 5 {
            GroupEnumUnitsInRange(G, x, y, 500, Base)
            loop
                E = FirstOfGroup(G)
                if Condition_Base(p, E) then
                    n = CreateUnit(p, 'h019', x, y, 0)
                    UnitAddAbility(n, 'A0LO')
                    SetUnitAbilityLevel(n, 'A0LO', 1)
                    UnitApplyTimedLife(n, 'BTLF', 1)
                    IssueTargetOrder(n, "thunderbolt", E)
                    if IsUnitInGroup(E, g) == false then
                        SetUnitTimeScale(E, 0)
                    endif
                endif
                GroupRemoveUnit(G, E)
                exitwhen E == null
            endloop
            SaveReal(h, id, 2, time + 0.1)
        else
            loop
                E = FirstOfGroup(g)
                SetUnitTimeScale(E, 1)
                GroupRemoveUnit(g, E)
                exitwhen E == null
            endloop
            PauseTimer(t)
            DestroyGroup(g)
            DestroyTimer(t)
            FlushChildHashtable(h, id)
            }
            p = null
            t = null
            u = null
            g = null
        endfunction

        function FallenAngelCast takes void returns void
            timer t = CreateTimer()
            unit u = GetTriggerUnit()
            int id = GetHandleId(t)
            real x = GetUnitX(u)
            real y = GetUnitY(u)
            player p = GetOwningPlayer(u)
            int ip = GetPlayerId(p)
            SaveGroupHandle(h, id, 8, CreateGroup())
            SaveUnitHandle(h, id, 0, u)
            SaveReal(h, id, 2, 0)
            UnitApplyTimedLife(CreateUnit(p, 'e0HF', x, y, 0), 1, 5)
            UnitApplyTimedLife(CreateUnit(p, 'e0HG', x, y, 0), 1, 5)
            SaveReal(h, id, 5, x)
            SaveReal(h, id, 6, y)
            TimerStart(t, 0.1, true, function FallenAngelCast2)
            t = null
            p = null
            u = null
        endfunction

        void FallenAngelInit (){
        trigger t = CreateTrigger()
        integer i = 0
        loop
            TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
            i++ 
            exitwhen i == bj_MAX_PLAYER_SLOTS
        endloop
        TriggerAddAction(t, function FallenAngelCast)
        TriggerAddCondition(t, Condition(function FallenAngelCond))
        t = null
        }
        }