function RDS_Timer2 takes nothing returns nothing
local timer tim2=GetExpiredTimer()
endfunction

function RDS_Timer takes nothing returns nothing
local timer tim=GetExpiredTimer()
local timer tim2=CreateTimer()
local integer i=GetHandleId(tim)
local unit c=LoadUnitHandle(udg_Hash,i,130)
local unit t=LoadUnitHandle(udg_Hash,i,131)
local real ht=GetUnitFlyHeight(t)
call UnitAddAbility(c,'Amrf')
call UnitRemoveAbility(c,'Amrf')
call UnitAddAbility(t,'Amrf')
call UnitRemoveAbility(t,'Amrf')
if ht >= 800 then
call SetUnitFlyHeight(c,200*RDSn,500.)
call TimerStart(tim2,1,false,function RDS_Timer2)
call UnitDamageTarget(c,t,60,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,null)
call SetUnitFlyHeight(t,0,500.)
call SetUnitFlyHeight(c,0,300.)
call PauseTimer(tim)
set RDSn=1
call FlushChildHashtable(udg_Hash,i)
call DestroyTimer(tim)
set ht=0
else
call SetUnitFlyHeight(c,ht,500)
call UnitDamageTarget(c,t,60,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,null)
call SetUnitFlyHeight(t,200*RDSn,300)
set RDSn=RDSn+1
endif
endfunction

function RDS_Action takes nothing returns nothing
local timer tim=CreateTimer()
local integer i=GetHandleId(tim)
local unit c=GetSpellAbilityUnit()
local unit t=GetSpellTargetUnit()
call SaveUnitHandle(udg_Hash,i,130,c)
call SaveUnitHandle(udg_Hash,i,131,t)
call TimerStart(tim,1.0,true,function RDS_Timer)
endfunction

function Trig_visualTEST_Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local integer i = 0
    local real r = 0.00
    local real array x
    local real array y
.................................... какие-то действия
\\ждать пока глобалка используящаяся в других триггерах не станет = 0 
ну и дальше выполнять обнуления
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        call DestroyEffect( e[i-1] )
        call DestroyTextTagBJ( t[i-1] )
        set x[i-1] = 0
        set y[i-1] = 0
        set i = (i-1)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    set i = 0
    set r = 0.00