function damage takes nothing return nothing
local integer i = LoadIntegerHandle(ht,1,1)
set i = i+1
call SaveIntegerHandle(ht,1 , 1, i)
endfunction

function Slow takes nothing returns nothing
local integer i
local timer t = CreateTimer()
call SaveIntegerHandle(ht,1 , 1, i)
call TimerStart(tm,1,true,function damage)
call LoadIntegerHandle(ht,1,1)
if i ==10 then
else
call DestroyTimer(tm)
endif
endfunction

function damage takes nothing return nothing
local unit t = LoadUnitHandle(ht, 1, 'A000')
local unit u = LoadUnitHandle(ht, 2, 'A000')
call UnitDamageTarget(u,t,1,false,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
set u = null
set t = null
endfunction

function Trig_Slow_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local unit t = GetSpellTargetUnit()
local timer tm = CreateTimer()
local integer i = 1
call SaveUnitHandle(ht, 1, 'A000', t)
call SaveUnitHandle(ht, 2, 'A000', u)
loop
exitwhen i < 10
   call TimerStart(tm,1,false,function damage)
   set i = i + 1
endloop
set u = null
set t = null
call DestroyTimer(tm)
set tm = null
endfunction

function A_End takes nothing returns nothing
    * ивлечение приаттаченных данных
    * 2я половина исполняемого кода
endfunction

function A_Start takes ... returns ...
    * 1я половина исполняемого кода
    * аттач таймеру необходимых данных
    call TmerStart(timer, r_period, b_periodic, function A_End)    // Наша замена wait-у
    // b_periodic = false если таймер используется в кач-ве вэйта
endfunction

function A(...) -> ...
{
    * 1я половина исполняемого кода
    * аттач таймеру необходимых данных
    TmerStart(timer, r_period, b_periodic, 
        function ()
        {
            * ивлечение приаттаченных данных
            * 2я половина исполняемого кода
        }
    );
}

/*line 910*/
native TimerStart takes timer whichTimer, real timeout, boolean periodic, code handlerFunc returns nothing

whichTimer - таймер, который запускаем
timeout    - время истечения (срабатывания)
periodic   - таймер срабатывает 1 раз или же периодически
handleFunc - функция, которая будет вызвана при срабатывании таймера

function damage takes nothing return nothing
local integer i = LoadIntegerHandle(ht,1,1)
local unit t = LoadUnitHandle(ht, 1, 'A000')
local unit u = LoadUnitHandle(ht, 2, 'A000')
  call UnitDamageTarget(u,t,1,false,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
set i = i+1
if i>10 then
//clean hashtable
call DestroyTimer(GetExpiredTimer())
else
call SaveIntegerHandle(ht,1 , 1, i)
endif
set u = null
set t = null
endfunction

function Trig_Slow_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local unit t = GetSpellTargetUnit()
local timer tm = CreateTimer()
local integer i = 1
call SaveUnitHandle(ht, 1, 'A000', t)
call SaveUnitHandle(ht, 2, 'A000', u)
call SaveIntegerHandle(ht,1 , 1, i)
   call TimerStart(tm,1,true,function damage)
set u = null
set t = null
set tm = null
endfunction