function GetTimer takes nothing returns timer
        if (FC==0) then
            set FT[0]=CreateTimer()
        else
            set FC=FC-1
        endif
        return FT[FC]
    endfunction
    
    function RecycleTimer takes timer t returns nothing
        if t==null then
            return
        elseif FC==8191 then
            call DestroyTimer(t)
            return
        endif
        call PauseTimer(t)
        if HaveSavedInteger(F_HASH,GetHandleId(t),0) then
            call RemoveSavedInteger(F_HASH,GetHandleId(t),0)
        endif
        set FT[FC]=t
        set FC=FC+1
    endfunction

function Local takes nothing returns nothing
    local timer time = GetTimer()
    call RecycleTimer(time)
endfunction