Messing around with indexing.

library Index

    globals
        private constant integer SUBTRACT = 0x100000
        private constant integer ARRAY_SIZE = 8190
    endglobals
    
    struct index
        
        private static method Handle2Integer takes handle h returns integer
            return h
            return 0
        endmethod
        
        private handle indexed
        
        static method add takes handle u returns index
            local index i = index.Handle2Integer(u)-SUBTRACT
            if index.Handle2Integer(u)-SUBTRACT > ARRAY_SIZE then
                debug call BJDebugMsg("Index is too big (" + I2S(i) + ")")
                return i
            endif
            set i.indexed = u
            return i
        endmethod
        
        static method get takes handle u returns index
            return index.Handle2Integer(u)-SUBTRACT
        endmethod

    endstruct
    
endlibrary

scope Demo initializer InitTrig

    struct timerdata
        string name
    endstruct
    
    function Remove takes nothing returns nothing
        local index sometimer = index.get(GetExpiredTimer()) // Get the expired timer
        local timerdata d = sometimer // load the timers attached struct
        call BJDebugMsg(d.name) // display the timers stored name
        call sometimer.flush() // clears the index so it can be re-used.
    endfunction

    private function Actions takes nothing returns nothing
        local timer t = CreateTimer() // create some timer
        local index sometimer = index.add(t) // create the index and store the timer
        local timerdata d = sometimer // Some struct that will store data to the timer
        
        set d.name = "SomeTimer" // set the name of the timer
        
        call TimerStart(t, 1, false, function Remove) // Begin the timer
    endfunction

    //===========================================================================
    private function InitTrig takes nothing returns nothing
        local trigger t = CreateTrigger()
        call TriggerRegisterTimerEvent(t, 0.00, false)
        call TriggerAddAction(t, function Actions)
    endfunction

endscope

set myStruct = i

set myStruct = 0