function B takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer th = GetHandleId(t)
    local unit u = LoadUnitHandle(hash,th,0)
    //Действия...
        if Условие /*конца действий*/ then
            call FlushChildHashtable(hash,th)
            call PauseTimer(t)
            call DestroyTimer(t)
        endif
    set t = null
    set u = null
endfunction

function A takes nothing returns nothing
    local timer t = CreateTimer()
    local unit u = GetTriggerUnit()
    call SaveUnitHandle(hash,GetHandleId(t),0,u)
    call TimerStart(t,.03,true,function B)
    set t = null
    set u = null
endfunction

function B takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer i = 0
        loop
            exitwhen t == Timer[i]
            set i = i+1
        endloop
    //Действия над Unit[i]
        if Условие /*конца действий*/ then
            set Timer[i] = null
            set Unit[i] = null
            call PauseTimer(t)
            call DestroyTimer(t)
        endif
    set t = null
endfunction

function A takes nothing returns nothing
    local integer i = 0
        loop
            exitwhen Timer[i] == null
            set i = i+1
        endloop
    set Unit[i] = GetTriggerUnit()
    call TimerStart(Timer[i],.03,true,function B)
endfunction