function Podriv_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A01M' 
endfunction

function Podriv_T takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local group g=LoadGroupHandle(udg_Hash, GetHandleId(t), 0)
    local unit eu
    
     loop
        set eu = FirstOfGroup(g)
        exitwhen eu == null
            if IsUnitDeadBJ(eu) == false then
                call SetUnitFlyHeight( eu, 0.00, 500.00 )
                call PauseUnit(eu, false)
            endif
        call GroupRemoveUnit(g, eu)
    endloop
    call DestroyGroup(g)
    call FlushChildHashtable(udg_Hash, GetHandleId(t))
    call DestroyTimer(t)
    set t=null
    set eu=null
endfunction

function Podriv_Actions takes nothing returns nothing
    local timer t=CreateTimer()
    local group g=CreateGroup()
    local group g2
    local unit u=GetTriggerUnit()
    local unit eu
    local real i = I2R(GetUnitAbilityLevel(u, 'A01M'))
    local real damage=40.00 * i
    local real radius = 300 + (20*i)
    local real x = GetSpellTargetX()
    local real y = GetSpellTargetY()
    
    call GroupEnumUnitsInRange( g, x, y, radius, null)
    call GroupRemoveUnit(g, u)
    loop
        set eu = FirstOfGroup(g)
        exitwhen eu == null
        if IsPlayerEnemy(GetOwningPlayer(eu), GetOwningPlayer(u)) == true and IsUnitDeadBJ(eu) == false and IsUnitType(eu, UNIT_TYPE_STRUCTURE) == false then
            //call UnitAddAbility(eu, 'Aave') ЗАЧЕМ!? (Но если надо, включить никогда не поздно)
            //call UnitRemoveAbility( eu, 'Aave') ЗАЧЕМ!? (Но если надо, включить никогда не поздно)
            call UnitDamageTarget(u,eu,damage,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_UNIVERSAL   ,WEAPON_TYPE_WHOKNOWS)
            call PauseUnit( eu, true )
            call SetUnitFlyHeight( eu, 700.00, 500.00 )
            call GroupAddUnit(g2, eu)
        endif
        call GroupRemoveUnit(g, eu)
    endloop
    
    call SaveGroupHandle(udg_Hash, GetHandleId(t), 0, g2)
    call TimerStart(t, 1.40, false, function Podriv_T)
    
    call DestroyGroup(g)
    call DestroyGroup(g2)
    set t=null
    set u=null
    set eu=null
endfunction

//===========================================================================
function InitTrig_Podriv takes nothing returns nothing
    local trigger t = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Podriv_Conditions ) )
    call TriggerAddAction( t, function Podriv_Actions )
    set t=null
endfunction

globals
hashtable=InitHashtable()
endglobals

if IsUnitDeadBJ(GetFiltredUnit()) = false and IsUnitEnemy(GetOwningPlayer(GetFiltredUnit(), GetOwningPlayer(GetTriggerUnit()) then
//Твои действия начинаются тут Оо
//...
//...
endif

Function Cond takes nothing returns boolean
return IsUnitDeadBJ(GetFiltredUnit()) = false and IsUnitEnemy(GetOwningPlayer(GetFiltredUnit(), GetOwningPlayer(GetTriggerUnit())
endfunction