globals
    unit array unit_lazer
endglobals

function TurnOnlyTarget takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local integer i = 1
    local unit array u
    loop 
        exitwhen i > 4
            set u[i] = LoadUnitHandle(hash,h,i)
            i++
        endloop
    set i = 1
    loop
        exitwhen i > 4
        call SetUnitFacingToFaceLocTimed( u[i], GetUnitLoc(unit_lazer[i]), 0.16 )
        i++
    endloop
endfunction

function CastSpell takes nothing returns nothing
    local rect array re
    local unit array u
    local group g = CreateGroup()
    local integer i = 1
    local unit un
    local real x
    local real y
    local integer facing = 315
    local timer t = CreateTimer()
    local integer ha = GetHandleId(t)
    set re[1]=gg_rct_25lvlA
    set re[2]=gg_rct_25lvlB
    set re[3]=gg_rct_25lvlD
    set re[4]=gg_rct_25lvlC
    loop
        exitwhen i > 4
        set x = GetRectCenterX(re[i])
        set y = GetRectCenterY(re[i])
        set u[i]= CreateUnit(Player(12),'h00K', x,y,facing)
        set facing = facing-90
        i++
    endloop
    set i=1
    set g = GetUnitsInRectAll(gg_rct_25lvlGameZone)
    loop
        set un = FirstOfGroup(g)
                if GetUnitTypeId(un) == 'H00G' then
                    set unit_lazer[i]=un
                    call GroupRemoveUnit(g,un)
                    call BJDebugMsg("True")
                    i++
                else
                    call GroupRemoveUnit(g,un)
                    call BJDebugMsg("False")
                endif
    exitwhen un == null
    endloop
    set i=1
    loop
        exitwhen i > 4
        call IssuePointOrderLoc(u[i],"blizzard",GetUnitLoc(unit_lazer[i]) )
        call SaveUnitHandle(hash,ha,i,u[i])
        i++
    endloop
    call TimerStart(t,0.20,true,function TurnOnlyTarget)
endfunction

library Units initializer Init{
    include "cj_types_priv.j"
    define{
        private E1="Abilities\\Spells\\Undead\\AntiMagicShell\\AntiMagicShell.mdl"
        private E2="Abilities\\Spells\\Human\\Banish\\BanishTarget.mdl"
    }
    unit unit_lazer[8000]
    private void onAction(){
        rect re[]
        unit u[]
        group g = CreateGroup()
        integer i = 1
        unit un
        real x
        real y
        integer facing = 315
        timer t = CreateTimer()
        integer ha = GetHandleId(t)
        re[1]=gg_rct_A1
        re[2]=gg_rct_A2
        re[3]=gg_rct_A3
        re[4]=gg_rct_A4
        re[5]=gg_rct_All
        do{
            x = GetRectCenterX(re[i])
            y = GetRectCenterY(re[i])
            u[i]= CreateUnit(Player(0),'hpea', x,y,facing)
            UnitAddAbility(u[i],'AHbz')
            facing = facing-90
        }whilenot(i++ >= 4)
        i=0
        g= GetUnitsInRectAll(re[5])
        do{
            un = FirstOfGroup(g)
            if GetUnitTypeId(un) == 'hfoo' then
                unit_lazer[i]=un
                GroupRemoveUnit(g,un)
                BJDebugMsg("True")
                debug AddSpecialEffectTarget(E1,un,"origin")
                i++
            else
                GroupRemoveUnit(g,un)
                debug AddSpecialEffectTarget(E2,un,"origin")
                BJDebugMsg("False")
            endif
        }whilenot(un == null)
        i=1
        do{
            IssuePointOrderLoc(u[i],"blizzard",GetUnitLoc(unit_lazer[i]) )
            //SaveUnitHandle(hash,ha,i,u[i])
        }whilenot(i++>=4)
    }
    private void Init(){
        onAction()
    }
}