scope MySc
globals
define private H = udg_Hash // Название твоей хэш-таблицы

define private AbilityID = 'A000' // ID способности
define private DummyID = 'u000' // ID дамми-юнита

define private Discarding = 5.00 // Сила отбрасывания
define private DiscardingTime = 1.00 // Время отбрасывания
endglobals
//==========================================================================
private function IsUnitDead takes unit u returns boolean
    return IsUnitType(u,UNIT_TYPE_DEAD) or GetUnitTypeId(u) == 0
endfunction

private function move1 takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer i = GetHandleId(t)
    local unit u = LoadUnitHandle(H,i,0)
    local real a = LoadReal(H,i,1)
    local real d = LoadReal(H,i,2)
    local real tm = LoadReal(H,i,3)+0.01
    
    if tm > DiscardingTime or IsUnitDead(u) then
        call PauseTimer(t)
        call DestroyTimer(t)
        call FlushChildHashtable(H,i)
    else
        call SetUnitX(u,GetUnitX(u)+d*Cos(a))
        call SetUnitY(u,GetUnitY(u)+d*Sin(a))
        call SaveReal(H,i,2,d-(Discarding/DiscardingTime*0.01))
        call SaveReal(H,i,3,tm)
    endif
    
    set t = null
    set u = null
endfunction

private function Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local integer i = GetHandleId(t)
    local unit u = GetSpellTargetUnit()
    local unit uu = GetSpellAbilityUnit()
    
    //Создание дамми-щита
    set bj_lastCreatedUnit = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),DummyID,GetUnitX(u),GetUnitY(u),Atan2(GetUnitY(uu)-GetUnitY(u),GetUnitX(uu)-GetUnitX(u))*bj_RADTODEG)
    call UnitApplyTimedLife(bj_lastCreatedUnit,'BTLF',1.)
    set bj_lastCreatedUnit = null
    //===================
    
    call SaveUnitHandle(H,i,0,u)
    call SaveReal(H,i,1,Atan2(GetUnitY(u)-GetUnitY(uu),GetUnitX(u)-GetUnitX(uu)))
    call SaveReal(H,i,2,Discarding)
    call TimerStart(t,0.01,true,function move1)
    
    set t = null
    set u = null
    set uu = null
endfunction

//===========================================================================
private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == AbilityID
endfunction

function InitTrig_Phoenix takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer index = 0
    loop
        call TriggerRegisterPlayerUnitEvent(t,Player(index),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
        set index = index + 1
        exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
    call TriggerAddCondition(t,Condition(function Conditions))
    call TriggerAddAction(t,function Actions)
    set t = null
endfunction
endscope

private function move1 takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer i = GetHandleId(t)
    local unit u = LoadUnitHandle(H,i,0)
    local real a = LoadReal(H,i,1)
    local real d = LoadReal(H,i,2)
    local real tm = LoadReal(H,i,3)+0.03
    
    if tm > WaveDiscardingTime then
        call PauseTimer(t)
        call DestroyTimer(t)
        call FlushChildHashtable(H,i)
    else
        call SetUnitX(u,GetUnitX(u)+d*Cos(a))
        call SetUnitY(u,GetUnitY(u)+d*Sin(a))
        call SaveReal(H,i,2,d-(WaveDiscarding/WaveDiscardingTime*0.03))
        call SaveReal(H,i,3,tm)
    endif
    
    set t = null
    set u = null
endfunction

scope MySc
globals
    location LocationForGetZ = Location(0,0)
    string S = ""
endglobals

private function GetUnitZ takes unit u returns real
    call MoveLocation(LocationForGetZ,GetUnitX(u),GetUnitY(u))
    return GetLocationZ(LocationForGetZ)+GetUnitFlyHeight(u)
endfunction

private function IsUnitDead takes unit u returns boolean
	return IsUnitType(u,UNIT_TYPE_DEAD) or GetUnitTypeId(u) == 0
endfunction

private function mt takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer i = GetHandleId(t)
    local real r = LoadReal(H,i,1)+0.01
    local unit u = LoadUnitHandle(H,i,0)
    local integer ii = GetHandleId(u)
    local unit uu = LoadUnitHandle(H,ii,1)
    
    if IsUnitDead(u) or IsUnitDead(uu) or LoadInteger(H,ii,4) == 1 then
        call PauseTimer(t)
        call DestroyTimer(t)
        call DestroyLightning(LoadLightningHandle(H,ii,3))
        call DestroyEffect(LoadEffectHandle(H,ii,5))
        call FlushChildHashtable(H,i)
        call FlushChildHashtable(H,ii)
		BJDebugMsg("чтрарапрв")
    else
        if r >= 0.10 then
            set ii = GetUnitTypeId(uu)
            if ii == 'h000' then
                set r = 0.05
            elseif ii == 'h001' then
                set r = 0.15
            elseif ii == 'h002' then
                set r = 0.25
            endif
            call SetUnitState(uu,UNIT_STATE_LIFE,GetUnitState(uu,UNIT_STATE_MAX_LIFE)*RMaxBJ(0,GetUnitLifePercent(uu)+r)*0.01)
            set r = 0.
        endif
        call SaveReal(H,i,1,r)
    endif
    
    set t = null
    set u = null
    set uu = null
endfunction

private function Actions takes nothing returns nothing
    local unit u = GetSpellAbilityUnit()
    local unit uu = GetSpellTargetUnit()
    local timer t = null
    local integer i = GetHandleId(u)
    local integer ii = GetUnitTypeId(u)
    
    if LoadLightningHandle(H,i,3) != null then
        call DestroyLightning(LoadLightningHandle(H,i,3))
    endif
    
    if LoadEffectHandle(H,i,5) != null then
        call DestroyEffect(LoadEffectHandle(H,i,5))
    endif
    
    if ii == 'h000' then
        set S = "HWPB"
    elseif ii == 'h001' then
        set S = "HWPB"
    elseif ii == 'h002' then
        set S = "HWPB"
    endif
    
    call SaveUnitHandle(H,i,1,uu)
    call SaveLightningHandle(H,i,3,AddLightningEx(S,true,GetUnitX(u),GetUnitY(u),GetUnitZ(u),GetUnitX(uu),GetUnitY(uu),GetUnitZ(uu)))
    call SaveEffectHandle(H,i,5,AddSpecialEffectTarget("Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl",uu,"origin"))
    
    if LoadInteger(H,i,2) == 0 then
        call SaveInteger(H,i,2,1)
        set t = CreateTimer()
        call SaveUnitHandle(H,GetHandleId(t),0,u)
        call TimerStart(t,0.01,true,function mt)
        set t = null
    endif
    
    set u = null
    set uu = null
endfunction

//===========================================================================
private function Conditions takes nothing returns boolean
    local integer i = GetSpellAbilityId()
    return i == 'A000' or i == 'A001' or i == 'A002'// Прожимаемая абилка
endfunction

function InitTrig_Phoenix takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer index = 0
    loop
        call TriggerRegisterPlayerUnitEvent(t,Player(index),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
        set index = index + 1
        exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
    call TriggerAddCondition(t,Condition(function Conditions))
    call TriggerAddAction(t,function Actions)
    set t = null
endfunction
endscope