nothing Destroy_texttag_func(){
    timer t = GetExpiredTimer()
    texttag tt =LoadTextTagHandle(udg_has,GetHandleId(t),4)
    FlushChildHashtable(udg_has,GetHandleId(t))
    PauseTimer(t)
    DestroyTimer(t)
    DestroyTextTag(tt)
    t=null
}

nothing STTL(texttag tt,real life,real fade){
    SetTextTagLifespan(tt, life)
    SetTextTagFadepoint(tt, fade)
    timer t = CreateTimer()
    SaveTextTagHandle(udg_has,GetHandleId(t),4,tt)
    TimerStart(t,life+1.,false, function Destroy_texttag_func)
    t=null
}

SetTextTagPermanent(bj_lastCreatedTextTag, false)
SetTextTagLifespan(bj_lastCreatedTextTag, life)
SetTextTagFadepoint(bj_lastCreatedTextTag, fade)