Лаги при создание юнитов через loop

function SpellPrizrak_Actions takes nothing returns nothing
    local unit U = GetSpellAbilityUnit()
    local unit U_D
    local real R = 0
    local real X, Y = 0
    local location L = GetSpellTargetLoc()
    local location T[]
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = 36
    loop
    exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
    
        set X = GetLocationX(L) + 600 * Cos(R * bj_DEGTORAD)
        set Y = GetLocationY(L) + 600 * Sin(R * bj_DEGTORAD)
        set T[bj_forLoopAIndex] = Location(X, Y)
        set U_D = CreateUnit(GetOwningPlayer(U), 'uban', GetLocationX(T[bj_forLoopAIndex]), GetLocationY(T[bj_forLoopAIndex]), R )
        call SetUnitFlyHeight( U_D, -100.00, 0.00 )
        call SetUnitPathing( U_D, false )
        R = ( R + ( 360.00 / 36 ) )
        
    set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    SetUnitAnimation( U, "Death" )
    set U = null
    set U_D = null
    set L = null
    set T[bj_forLoopAIndex] = null
endfunction

function SpellPrizrak_Cond takes nothing returns boolean
    return GetSpellAbilityId()=='A01T'
endfunction


//===========================================================================
function InitTrig_SpellPrizrak takes nothing returns nothing
    set gg_trg_SpellPrizrak = CreateTrigger(  )
        local integer index

    set index = 0
    loop
            TriggerRegisterPlayerUnitEvent(gg_trg_SpellPrizrak, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)

        set index = index + 1
        exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
        TriggerAddCondition(gg_trg_SpellPrizrak,Condition(function SpellPrizrak_Cond))
        TriggerAddAction( gg_trg_SpellPrizrak, function SpellPrizrak_Actions )
endfunction