function TextTag takes unit u, string s, integer r, integer g, integer b returns nothing
   local texttag t = CreateTextTag()
    call SetTextTagText(t, s, .0253)
    call SetTextTagPos(t, GetUnitX(u), GetUnitY(u), 0)
    call SetTextTagVelocity(t, 0, .032)
    call SetTextTagColor(t, r, g, b, 255)    
    call SetTextTagLifespan( t, 5.00 ) //Меня эта функция смущает
    call SetTextTagFadepoint( t, 3.50 )
    call SetTextTagPermanent( t, false )
    set t = null
endfunction

function TTDestroy takes nothing returns nothing
    local timer t = GetExpiredTimer()
    call DestroyTextTag(LoadTextTagHandle(udg_Hash,GetHandleId(t),0))
    call FlushChildHashtable(udg_Hash, GetHandleId(t))
    call DestroyTimer(t)
    set t = null 
endfunction

function TextTag takes unit u, string s, integer r, integer g, integer b returns nothing
    local texttag tt = CreateTextTag()
    local timer t = CreateTimer()
    call SetTextTagText(tt, s, .0253)
    call SetTextTagPos(tt, GetUnitX(u), GetUnitY(u), 0)
    call SetTextTagVelocity(tt, 0, .032)
    call SetTextTagColor(tt, r, g, b, 255)    
    call SetTextTagLifespan( tt, 5.00 )
    call SetTextTagFadepoint( tt, 3.50 )
    call SetTextTagPermanent( tt, false )
    call SaveTextTagHandle(udg_Hash,GetHandleId(t),0,tt)
    call TimerStart(t,5.00,false,function TTDestroy)
    set t = null
    set tt = null
endfunction