Fuckup script - how to avoid?

library Timer initializer Init

//* Configuration - start

globals
    //* Interval of the global timer
    private constant real TIMER_INTERVAL = 0.03
    //* Maximum number of instances at one time
    private constant integer MAXIMUM_TIMERS = 8190
endglobals

//* Configuration - end

globals
    private timer T = CreateTimer()
    private real array Interval
    private boolean array Periodic
    private boolean array Running
    private real array Counter
    private trigger array Trg
    private integer Count = 0
endglobals

public function Release takes integer i returns nothing
    set Running[i] = false
    set Count = Count - 1
endfunction

private function Handler takes nothing returns nothing
    local integer j = Count
    loop
        exitwhen j == 0
        set Counter[j] = Counter[j] + TIMER_INTERVAL
        if Counter[j] >= Interval[j] then
            call TriggerEvaluate(Trg[j])
            if Periodic[j] then
                set Counter[j] = 0.00
            else
                call TriggerClearConditions(Trg[j])
                call Release(j)
            endif
        endif
        set j = j - 1
    endloop
endfunction

public function Add takes real interval, boolean periodic, code callback returns boolean
    set Count = Count + 1
    if not Running[Count] then
        set Interval[Count] = interval
        set Periodic[Count] = periodic
        set Counter[Count]  = 0.00
        if Trg[Count] == null then
            set Trg[Count] = CreateTrigger()
        else
            call TriggerClearConditions(Trg[Count]) //* Just to be sure
        endif
        call TriggerAddCondition(Trg[Count], Condition(callback))
        if Count == 1 then
            call TimerStart(T, TIMER_INTERVAL, true, function Handler)
        endif
    else
        set Count = Count - 1
    endif
    return true
endfunction

private function Init takes nothing returns nothing
    local integer j = 0
    loop
        exitwhen j == MAXIMUM_TIMERS
        set Running[j] = false
        set j = j + 1
    endloop
endfunction

endlibrary