function TextTagSysAction takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(udg_Hash,GetHandleId(t),0)
    local texttag tt=LoadTextTagHandle(udg_Hash,GetHandleId(t),1)
    local real max=LoadReal(udg_Hash,GetHandleId(t),2)
    local real count=LoadReal(udg_Hash,GetHandleId(t),3)
    if count<=max and GetUnitState(u,UNIT_STATE_LIFE)>.405 then
        set count=count+1
        call SetTextTagPos(tt,GetUnitX(u),GetUnitY(u),0)
        call SaveReal(udg_Hash,GetHandleId(t),3,count)
    else
        call FlushChildHashtable(udg_Hash,GetHandleId(t))
        call DestroyTextTag(tt)
        call DestroyTimer(t)
    endif
endfunction

function TextTag takes unit u, real time, string s returns nothing
    local texttag tt
    local timer t
    if udg_Hash==null then
        set udg_Hash=InitHashtable()
    endif
    if s!="" and time!=0 and u!=null and time<20. then
        set t=CreateTimer()
        set tt=CreateTextTag()
        call SetTextTagText(tt,s,12*0.023/10)
        call SetTextTagPos(tt,GetUnitX(u),GetUnitY(u),0)
        call SetTextTagVelocityBJ(tt,128,90)
        call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)
        call SaveTextTagHandle(udg_Hash,GetHandleId(t),1,tt)
        call SaveReal(udg_Hash,GetHandleId(t),2,R2I(time*25))
        call SaveReal(udg_Hash,GetHandleId(t),3,0)
        call TimerStart(t,.04,true,function TextTagSysAction)
    endif
endfunction