function Text takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(udg_Hash,GetHandleId(t),0)
    call FlushChildHashtable(udg_Hash,GetHandleId(t))
    call FlushChildHashtable(udg_Hash,GetHandleId(u))
    call DestroyTimer(t)
    set t=null
    set u=null
endfunction

function Trig_Text_Actions takes nothing returns nothing
    local real r=GetEventDamage()
    local unit u=GetTriggerUnit()
    local texttag tt = LoadTextTagHandle(udg_Hash,GetHandleId(u),2)
    local real rr = LoadReal(udg_Hash,GetHandleId(u),3)
    local timer t = LoadTimerHandle(udg_Hash,GetHandleId(u),1)
    
    if t==null then
    set t = CreateTimer()
    call TimerStart(t,0.40,false,function Text)
    call SaveTimerHandle(udg_Hash,GetHandleId(u),1,t)
    call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)
    call SaveReal(udg_Hash,GetHandleId(u),3,r)
    call CreateTextTagUnitBJ( ( "|cffFF0000" + ( I2S(R2I(r)) + " Dmg" ) ), GetTriggerUnit(), 0, 8.75, 100, 100, 100, 0 )
    BJDebugMsg(I2S(R2I(r)))
    call SaveTextTagHandle(udg_Hash,GetHandleId(u),2,GetLastCreatedTextTag())
    call SetTextTagVelocityBJ( GetLastCreatedTextTag(), 200.00, GetRandomReal(1.00, 360.00) )
    call SetTextTagPermanentBJ( GetLastCreatedTextTag(), false )
    call SetTextTagLifespanBJ( GetLastCreatedTextTag(), 0.35 )
    call SetTextTagFadepointBJ( GetLastCreatedTextTag(), 0.45 )
    elseif TimerGetRemaining(t)<=0.40 then
    call SaveReal(udg_Hash,GetHandleId(u),3,r+rr)
    call SetTextTagTextBJ(tt, "|cffFF0000" + I2S(R2I(r+rr)) + " Dmg"  , 8.75)
        BJDebugMsg(I2S(R2I(r+rr)))

    endif
    set t=null
    set u=null
    set tt=null
endfunction

function InitTrig_Untitled_Trigger_001 takes nothing returns nothing
    local trigger trg_Untitled_Trigger_001 = CreateTrigger(  )
    call TriggerRegisterUnitEvent( trg_Untitled_Trigger_001, gg_unit_Hpal_0000, EVENT_UNIT_DAMAGED )
    call TriggerAddAction( trg_Untitled_Trigger_001, function Trig_Text_Actions )
endfunction