简单的timer系统(GC，数组两版……)

疯人￠衰人

用GC做存储的系统的话
很容易因为使用过多的计时器而导致string泄露
恩恩……
这个泄露实际上就是用了过多的timer
于是用于存储的handle值字符串过多而出现的
于是做了个简单的系统：
[jass]
globals  
integer udg_Head = 0
integer udg_Exist = 0
timer array udg_TimerList
endglobals
function LoadTimer takes nothing returns timer
    set udg_TimerList[udg_Head] = null
    if udg_Exist == 0 then
        return CreateTimer()
    endif   
    set udg_Head = udg_Head + 1
    if udg_Head == 8190 then
        set udg_Head = 0
    endif
    set udg_Exist = udg_Exist - 1
    return udg_TimerList[udg_Head]
endfunction
function SaveTimer takes timer t returns nothing
    if udg_Exist == 8190 then
        call DestroyTimer(t)
        return
    endif
    set udg_TimerList[(udg_Head + udg_Exist) - (udg_Head + udg_Exist) / 8190 * 8190] = t
    set udg_Exist = udg_Exist + 1
endfunction
[/jass]
如以上函数
使用也很简单
用LoadTimer获得timer
用SaveTimer排泄即可

如果想使用数组的存储系统
[jass]
globals  
integer udg_Head = 0
integer udg_UsedTimerNum = -1
timer array udg_UseTimer
timer array udg_TimerList
endglobals
function StartDoing takes nothing returns nothing
    local integer i = 0
    loop
        set udg_UseTimer = CreateTimer()
        set i = i + 1
        exitwhen i == 8190
    endloop
endfunction
function LoadTimer takes nothing returns timer
    if udg_Head == 0 then
        if udg_UsedTimerNum == 8190 then
            return null
        endif
        set udg_UsedTimerNum = udg_UsedTimerNum + 1
        return udg_UseTimer[udg_UsedTimerNum]
    endif   
    set udg_Head = udg_Head - 1
    return udg_TimerList[udg_Head]
endfunction
function SaveTimer takes timer t returns nothing
    call PauseTimer(t)
    set udg_TimerList[udg_Head] = t
    set udg_Head = udg_Head + 1
endfunction[/jass]

游戏初始化时执行StartDoing，
此系统存储结构类似handle，有数组8192上限
然后使用方法同GC的
用获得的timer的handle值对8190的模的余数作为存储数组的序号即可

GC版无同时运行timer上限，数组的有8191个timer为上限

以上函数未经测试……
纯属虚构……
如有问题……
纯属失误……