function Trig_HightBB takes nothing returns nothing
local integer i = LoadInteger (udg_hash,GetHandleId(GetEnumUnit()),0)
    if ( IsUnitEnemy(GetEnumUnit(), GetOwningPlayer(GetAttacker())) == true ) and ( GetUnitStateSwap(UNIT_STATE_LIFE, GetEnumUnit()) > 0.00 ) and i < 200 then
        // добавление и пауза их
        call UnitAddAbility( GetEnumUnit(), 'Amrf' )
        call UnitRemoveAbility( GetEnumUnit(), 'Amrf' )
        call PauseUnit( GetEnumUnit(), true )
        // изменение высоты 250
        call SetUnitFlyHeightBJ( GetEnumUnit(), 250.00, 200.00 )
        call SaveInteger (udg_hash,GetHandleId(GetEnumUnit()),0,i+1)
    else
        call PauseUnit( GetEnumUnit(), false )
        call SetUnitFlyHeightBJ( GetEnumUnit(), 0.00, 2000.00 )
    endif
endfunction

function Trig_dead takes nothing returns nothing
    if ( IsUnitEnemy(GetEnumUnit(), GetOwningPlayer(GetAttacker())) == true ) and ( GetUnitStateSwap(UNIT_STATE_LIFE, GetEnumUnit()) > 0.00 ) then
    // изменение высоты 0
    call SetUnitFlyHeightBJ( GetEnumUnit(),GetUnitDefaultFlyHeight(GetEnumUnit()), 2000.00 )
    call PauseUnit( GetEnumUnit(), false )
    call FlushChildHashtable (udg_hash,GetHandleId(GetEnumUnit()))
endif
endfunction

function ToTheSky takes nothing returns nothing
local timer k = GetExpiredTimer()
local unit h = LoadUnitHandle(udg_hash,GetHandleId(k),1)
local integer c = LoadInteger(udg_hash,GetHandleId(k),0)
    if c > 0 then
       call ForGroupBJ( GetUnitsInRangeOfLocAll(200.00, GetUnitLoc(h)), function Trig_HightBB ) 
       call SaveInteger (udg_hash,GetHandleId(k),0,c-1)
    else
        call DestroyTimer(k)
        call FlushChildHashtable (udg_hash,GetHandleId(k))
        call ForGroupBJ( GetUnitsInRangeOfLocAll(200.00, GetUnitLoc(h)), function Trig_dead ) 
    endif
set h = null
set k = null    
endfunction

function Timer takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit d = LoadUnitHandle(udg_hash,id,0)
local location b = GetUnitLoc(d)
call ForGroupBJ( GetUnitsInRangeOfLocAll(2000.00, b), function Trig_dead )
call FlushChildHashtable(udg_hash,id)
call DestroyTimer(t)
call RemoveLocation(b)
set b = null
set t = null
set d = null
endfunction

function Trig_Hight_Actions takes nothing returns nothing
        // Начало подьема и создание поля
        local timer t = CreateTimer()
        local integer id = GetHandleId(t)
        local unit u = GetAttacker()
        local unit e = GetTriggerUnit()
        local real x = GetUnitX(e)
        local real y = GetUnitY(e)
        local unit d
        local location b
        local timer k = CreateTimer()
        if GetRandomReal(1.00, 100.00) <= 15.00 and GetUnitAbilityLevel(u, 'A000') > 0 then
        set d = CreateUnit(  GetOwningPlayer(u), 'h000', x, y, 0)
        set b = GetUnitLoc(d)
        call SaveUnitHandle(udg_hash,GetHandleId(t),0,d)
        call SaveUnitHandle(udg_hash,GetHandleId(k),1,d)
        call SaveInteger(udg_hash,GetHandleId(k),0,500)
        call TimerStart(t,5.00,false,function Timer)
        call UnitApplyTimedLife( d, 'BTLF', 5.00 )
        call TimerStart(k,.01,true,function ToTheSky)
        // тут выбор отряда
        call ForGroupBJ( GetUnitsInRangeOfLocAll(200.00, b), function Trig_HightBB )
   endif
    call RemoveLocation(b)
    set b = null
    set d = null
    set u = null
    set t = null
endfunction

//===========================================================================
function InitTrig_Hight takes nothing returns nothing
    set gg_trg_Hight = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Hight, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( gg_trg_Hight, function Trig_Hight_Actions )
endfunction