function BuffDuration takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local real Duration = LoadReal(udg_Hash,GetHandleId(t),1)
    set Duration = Duration - 1.00
    call SaveReal(udg_Hash,GetHandleId(t),1, Duration)
    call DisplayTextToForce( GetPlayersAll(), R2S(Duration) )
        if Duration == 0.00 then
            call DestroyTimer(t)
        endif
    set t = null
endfunction
    
    
function Buff takes unit uTarg, real Duration, integer IdOfEffect returns nothing
    local unit u = uTarg
    local integer IdE = IdOfEffect
    local timer t = CreateTimer()
    // ------------------------------
    call SaveReal(udg_Hash,GetHandleId(t),1,Duration)
    call TimerStart(t, 1.00, true, function BuffDuration)
    call DisplayTextToForce( GetPlayersAll(), "buff starts" )
        
        
        if LoadReal(udg_Hash,GetHandleId(t),1) == 0.00 then
        call FlushChildHashtable(udg_Hash,GetHandleId(t))
            if IdE == 1 then
                call SetUnitUserData( u, 0 )
                call DisplayTextToForce( GetPlayersAll(), "buff end of effect" )
                call DisplayTextToForce( GetPlayersAll(), I2S(GetUnitUserData(u)) )
            endif
        endif
    set t = null
    set u = null
endfunction