local timer t=GetExpiredTimer()
local real x = LoadReal(udg_SnS_HT, GetHandleId(t), 0)

function Explode takes nothing returns nothing
    local timer t=GetExpiredTimer() //Получаем таймер, вызвавший данную ф-цию
    local unit u=LoadUnitHandle(udg_Hash, GetHandleId(t),1) //Загружаем нужного нам юнита

    call ExplodeUnitBJ(u) //И взрываем его :)
    call FlushChildHashtable(udg_Hash, GetHandleId(t)) //Удаляем записи таймера

    call DestroyTimer(t) //Обнуляем переменные и “разрушаем” таймер
    set t=null
    set u=null
endfunction

function Trig_Explode_Actions takes nothing returns nothing
    local timer t=CreateTimer() //Создаём новый таймер
    local unit u=GetSpellAbilityUnit() //Заносим в переменную юнита-кастера

    set udg_Hash=InitHashtable() //Инициализируем хеш-таблицу, если ранее это действие не выполнялось
    call SaveUnitHandle(udg_Hash, GetHandleId(t), 1, u) //Сохраняем ссылку на юнита “внутри” таймера
    call TimerStart(t, 5.00, false, function Explode) //Запускаем таймер

    set t=null //Обнуляем переменные
    set u=null
endfunction

function Trig_Actions takes nothing returns nothing
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = 10
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        set bj_lastCreatedUnit = CreateUnitAtLoc(Player(0), 'hpea', GetUnitLoc(gg_unit_hfoo_0000), 0.00)
        call SnS (bj_lastCreatedUnit, GetRandomReal(0, 360), GetRandomReal(10,750), 5, GetRandomReal(50,200))
        call UnitApplyTimedLifeBJ( 5.00, 'BTLF', GetLastCreatedUnit() )
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop

//===========================================================================
function InitTrig_Trig takes nothing returns nothing
    set gg_trg_Trig = CreateTrigger(  )
    call TriggerRegisterPlayerEventEndCinematic( gg_trg_Trig, Player(0) )
    call TriggerAddAction( gg_trg_Trig, function Trig_Actions )
endfunction

function SnS_Actions takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit u = LoadUnitHandle(udg_SnS_HT, GetHandleId(t), 0)
    local real ti = LoadReal(udg_SnS_HT, GetHandleId(t), 1)
    local real h = LoadReal(udg_SnS_HT, GetHandleId(t), 2)
    local real r = LoadReal(udg_SnS_HT, GetHandleId(t), 3)
    local real fu = LoadReal(udg_SnS_HT, GetHandleId(t), 4)
    local real x = LoadReal(udg_SnS_HT, GetHandleId(t), 5)
    local real x0 = LoadReal(udg_SnS_HT, GetHandleId(t), 6)
    local real y = LoadReal(udg_SnS_HT, GetHandleId(t), 7)
    local real time = LoadReal(udg_SnS_HT, GetHandleId(t), 8)+1
    local real p = r / (20.00 * ti)    
    set x = x + ( x0 / (ti*20.00 / 2.00) )
    set y =(-1.00*(x*x)) + h
    call SetUnitPositionLoc( u, Location(GetLocationX(GetUnitLoc(u)) + p * Cos(fu * bj_DEGTORAD), GetLocationY(GetUnitLoc(u)) + p * Sin(fu * bj_DEGTORAD)) )
    call SetUnitFlyHeight( u, y, 0.00 )
    call SaveReal( udg_SnS_HT, GetHandleId(t),5, x )
    call SaveReal( udg_SnS_HT, GetHandleId(t),7, y )
    call SaveReal( udg_SnS_HT, GetHandleId(t),8, time )
    if time >= ti*20 or (GetUnitState(u, UNIT_STATE_LIFE) <= 0) == true then
       call FlushChildHashtable( udg_SnS_HT, GetHandleId(t))
       call DestroyTimer(t)
    endif
    set t = null
    set u = null
endfunction

function SnS takes unit u, real ti, real h, real r, real fu returns nothing
    local timer t = CreateTimer()
    local real x = SquareRoot(h)*-1
    local real x0 = SquareRoot(h)
    local real y = 0
    local real time = 0
    call TimerStart( t, 0.05, true, function SnS_Actions )
    call SaveUnitHandle( udg_SnS_HT, GetHandleId(t),0,u )
    call SaveReal( udg_SnS_HT, GetHandleId(t),1, ti )
    call SaveReal( udg_SnS_HT, GetHandleId(t),2, h )
    call SaveReal( udg_SnS_HT, GetHandleId(t),3, r )
    call SaveReal( udg_SnS_HT, GetHandleId(t),4, fu )
    call SaveReal( udg_SnS_HT, GetHandleId(t),5, x )
    call SaveReal( udg_SnS_HT, GetHandleId(t),6, x0 )
    call SaveReal( udg_SnS_HT, GetHandleId(t),7, y )
    call SaveReal( udg_SnS_HT, GetHandleId(t),8, time )
    set t = null
    set u = null
endfunction