// условие триггера, на проверку применённого скилла
function orbs_conditions_cast takes nothing returns boolean
    return GetSpellAbilityId() == 'A000'
endfunction
// действия триггера при срабатывании, в данном случаи тут пока конверт из GUI
function orbs_actions_cast takes nothing returns nothing
    call DisplayTimedTextToPlayer(Player(0), 0., 0., 60., "123") // это для теста
    // =====
    set udg_orbs_Max = ( udg_orbs_Max + 1 )
    // =====
    set udg_orbs_hero[udg_orbs_Max] = GetTriggerUnit()
    set udg_orbs_angle[udg_orbs_Max] = GetRandomDirectionDeg()
    set udg_orbs_range[udg_orbs_Max] = GetRandomReal(128.00, 512.00)
    set udg_orbs_speed[udg_orbs_Max] = GetRandomReal(-16.00, 16.00)
    set udg_orbs_time[udg_orbs_Max] = GetRandomReal(4.00, 20.00)
    // =====
        set udg_orbs_point[0] = GetUnitLoc(GetTriggerUnit())
        set udg_orbs_point[1] = PolarProjectionBJ(udg_orbs_point[0], udg_orbs_range[udg_orbs_Max], udg_orbs_angle[udg_orbs_Max])
    // =====
    call CreateNUnitsAtLoc( 1, 'u000', GetOwningPlayer(GetTriggerUnit()), udg_orbs_point[1], 0.00 )
    set udg_orbs_dummy[udg_orbs_Max] = GetLastCreatedUnit()
    call SetUnitVertexColorBJ( GetLastCreatedUnit(), GetRandomReal(0.00, 100.00), GetRandomReal(0.00, 100.00), GetRandomReal(0.00, 100.00), 0 )
    call SetUnitFlyHeightBJ( GetLastCreatedUnit(), GetRandomReal(30.00, 600.00), 0.00 )
    // =====
        call RemoveLocation(udg_orbs_point[0])
        call RemoveLocation(udg_orbs_point[1])
    // =====
    if ( udg_orbs_Max == 1 ) then
        call StartTimerBJ( udg_orbs_Timer, true, 0.03 )
    endif
endfunction
// вот эта часть - инициализация триггера, его создание, установление ему события, условия и действия
// это чисто для себя, да-да, а то я забуду потом
function InitTrig_orbs takes nothing returns nothing
    local trigger T = CreateTrigger()
    call TriggerAddEventUnitCast(T) // моя функция, прикреплена ниже (у мня она находится нестандартном коде)
    call TriggerAddCondition( T, Condition( function orbs_conditions_cast ) )
    call TriggerAddAction( T, function orbs_actions_cast )
    set T = null
endfunction

function TriggerAddEventUnitCast takes trigger t returns nothing
    local integer i = 16
    loop
        set i = i - 1
        call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        exitwhen i == 0
    endloop
endfunction

globals orbs
    global integer udg_orbs_Max = 0
    global integer udg_orbs_Loop = 0
    global integer udg_orbs_Index = 0
    global unit array udg_orbs_hero
    global unit array udg_orbs_dummy
    global real array udg_orbs_angle
    global real array udg_orbs_range
    global real array udg_orbs_speed
    global real array udg_orbs_time
    global timer udg_orbs_Timer = CreateTimer()
    global timer udg_orbs_Group = CreateGroup()
endglobals

function abc_actions_periodic takes nothing returns nothing
    local integer L
    local real x
    local real y
    
    set L = 0
    loop
        set L = L + 1
        // =====
        set abc_distance[L] = abc_distance[L] - 30.
        set x = Polar_X(GetUnitX(abc_unit[L]), 30., abc_angle[L])
        set y = Polar_Y(GetUnitY(abc_unit[L]), 30., abc_angle[L])
        // =====
        call SetUnitPosition(abc_unit[L], x, y)
        // =====
        if abc_distance[L] < 30. then
            call KillUnit(abc_unit[L])
            // =====
            set abc_unit[L] = abc_unit[abc_Max]
                set abc_unit[abc_Max] = null
            set abc_angle[L] = abc_angle[abc_Max]
            set abc_distance[L] = abc_distance[abc_Max]
            // =====
            set L = L - 1
            set abc_Max = abc_Max - 1
            // =====
            if abc_Max == 0 then
                call PauseTimer(abc_Timer)
            endif
        endif
        // =====
        exitwhen L == abc_Max
    endloop
    
endfunction


// действия триггера "abc"
function abc_actions_start takes nothing returns nothing
    set abc_Max = abc_Max + 1
    if ( abc_Max == 1 ) then
        call TimerStart(abc_Timer, .03, true, null)
    endif
    // =====
    set abc_unit[abc_Max] = CreateUnit(Player(0), 'ewsp', 0., 0., 0.)
    set abc_angle[abc_Max] = GetRandomReal(0., 360.)
    set abc_distance[abc_Max] = 600.
    // =====
    call UnitAddAbility(abc_unit[abc_Max], 'Aloc')
endfunction

// инициализация триггера "abc"
function InitTrig_abc takes nothing returns nothing
    local trigger t1 = CreateTrigger() // триггер-старт
    local trigger t2 = CreateTrigger() // триггер-период
    // =====
    call TriggerAddEventPlayerESC_ALL(t1) // событие старта
    call TriggerRegisterTimerExpireEvent(t2, abc_Timer) // событие периодп
    // =====
    // condition
    // =====
    call TriggerAddAction(t1, function abc_actions_start)
    call TriggerAddAction(t2, function abc_actions_periodic)
    // =====
    set t1 = null
    set t2 = null
endfunction

globals
    integer abc_Max = 0
    integer abc_Loop = 0
    integer abc_Index = 0
    unit array abc_unit
    real array abc_angle
    real array abc_distance
    timer abc_Timer = CreateTimer()
endglobals

function TriggerAddEventPlayerESC_ALL takes trigger t returns nothing
    local integer i = 16
    loop
        set i = i - 1
        call TriggerRegisterPlayerEvent(t, Player(i), EVENT_PLAYER_END_CINEMATIC)
        exitwhen i == 0
    endloop
endfunction

function Polar_X takes real x, real d, real a returns real
    return x + d * Cos(a * bj_DEGTORAD)
endfunction

function Polar_Y takes real y, real d, real a returns real
    return y + d * Sin(a * bj_DEGTORAD)
endfunction