we-soui/jass/YDWETimerSystem.j

#ifndef YDWETimerSystemIncluded
#define YDWETimerSystemIncluded

#include <YDTrigger/ImportSaveLoadSystem.h>

//===========================================================================
//ϵͳ-TimerSystem
//===========================================================================

library YDWETimerSystem initializer Init requires YDTriggerSaveLoadSystem

globals
	private integer CurrentTime
	private integer CurrentIndex
    private integer TaskListHead
    private integer TaskListIdleHead
    private integer TaskListIdleMax
    private integer  array TaskListIdle
    private integer  array TaskListNext
    private integer  array TaskListTime
    private trigger  array TaskListProc  //<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    private trigger  fnRemoveUnit        //<EFBFBD>Ƴ<EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    private trigger  fnDestroyTimer      //<EFBFBD>ݻټ<EFBFBD>ʱ<EFBFBD><EFBFBD>
    private trigger  fnRemoveItem        //<EFBFBD>Ƴ<EFBFBD><EFBFBD><EFBFBD>Ʒ
    private trigger  fnDestroyEffect     //ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч
    private trigger  fnDestroyLightning  //ɾ<EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч
    private trigger  fnRunTrigger        //<EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    private timer    Timer                //<EFBFBD><EFBFBD>Сʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>  ϵͳ<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>  <EFBFBD><EFBFBD><EFBFBD><EFBFBD>һЩ<EFBFBD><EFBFBD>Ҫ<EFBFBD><EFBFBD>ȷ<EFBFBD><EFBFBD>ʱ<EFBFBD>Ĺ<EFBFBD><EFBFBD><EFBFBD>
    private integer  TimerHandle

	private integer TimerSystem_RunIndex = 0
endglobals

private function NewTaskIndex takes nothing returns integer
	local integer h = TaskListIdleHead
	if TaskListIdleHead < 0 then
		if TaskListIdleMax >= 8000 then
			debug call BJDebugMsg("<EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
			return 8100
		else
			set TaskListIdleMax = TaskListIdleMax + 1
			return TaskListIdleMax
		endif
	endif
	set TaskListIdleHead = TaskListIdle[h]
	return h
endfunction

private function DeleteTaskIndex takes integer index returns nothing
	set TaskListIdle[index] = TaskListIdleHead
	set TaskListIdleHead = index
endfunction

//<EFBFBD>ú<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD>
private function NewTask takes real time, trigger proc returns integer
	local integer index = NewTaskIndex()
	local integer h = TaskListHead
	local integer t = R2I(100.*time) + CurrentTime
	local integer p

	set TaskListProc[index] = proc
	set TaskListTime[index] = t
	loop
		set p = TaskListNext[h]
		if p < 0 or TaskListTime[p] >= t then
		//	call BJDebugMsg("NewTask:"+I2S(index))
			set TaskListNext[h] = index
			set TaskListNext[index] = p
			return index
		endif
		set h = p
	endloop
	return index
endfunction

function YDWETimerSystemNewTask takes real time, trigger proc returns integer
	return NewTask(time, proc)
endfunction
function YDWETimerSystemGetCurrentTask takes nothing returns integer
	return CurrentIndex
endfunction

//ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ
private function RemoveUnit_CallBack takes nothing returns nothing
    call RemoveUnit(YDHashGet(YDHASH_HANDLE, unit, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, unit, TimerHandle, CurrentIndex)
endfunction

function YDWETimerRemoveUnit takes real time, unit u returns nothing
    call YDHashSet(YDHASH_HANDLE, unit, TimerHandle, NewTask(time, fnRemoveUnit), u)
endfunction

//<EFBFBD>ݻټ<EFBFBD>ʱ<EFBFBD><EFBFBD>
private function DestroyTimer_CallBack takes nothing returns nothing
    call DestroyTimer(YDHashGet(YDHASH_HANDLE, timer, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, timer, TimerHandle, CurrentIndex)
endfunction

function YDWETimerDestroyTimer takes real time, timer t returns nothing
    call YDHashSet(YDHASH_HANDLE, timer, TimerHandle, NewTask(time, fnDestroyTimer), t)
endfunction

//ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ
private function RemoveItem_CallBack takes nothing returns nothing
    call RemoveItem(YDHashGet(YDHASH_HANDLE, item, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, item, TimerHandle, CurrentIndex)
endfunction

function YDWETimerRemoveItem takes real time, item it returns nothing
    call YDHashSet(YDHASH_HANDLE, item, TimerHandle, NewTask(time, fnRemoveItem), it)
endfunction

//ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч
private function DestroyEffect_CallBack takes nothing returns nothing
    call DestroyEffect(YDHashGet(YDHASH_HANDLE, effect, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, effect, TimerHandle, CurrentIndex)
endfunction

function YDWETimerDestroyEffect takes real time, effect e returns nothing
    call YDHashSet(YDHASH_HANDLE, effect, TimerHandle, NewTask(time, fnDestroyEffect), e)
endfunction

//ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч
private function DestroyLightning_CallBack takes nothing returns nothing
    call DestroyLightning(YDHashGet(YDHASH_HANDLE, lightning, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, lightning, TimerHandle, CurrentIndex)
endfunction

function YDWETimerDestroyLightning takes real time, lightning lt returns nothing
	local integer i = NewTask(time, fnDestroyLightning)
    call YDHashSet(YDHASH_HANDLE, lightning, TimerHandle, i, lt)
endfunction

//<EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
private function RunTrigger_CallBack takes nothing returns nothing
    call TriggerExecute(YDHashGet(YDHASH_HANDLE, trigger, TimerHandle, CurrentIndex))
    call YDHashClear(YDHASH_HANDLE, trigger, TimerHandle, CurrentIndex)
endfunction

function YDWETimerRunTrigger takes real time, trigger trg returns nothing
    call YDHashSet(YDHASH_HANDLE, trigger, TimerHandle, NewTask(time, fnRunTrigger), trg)
endfunction

//ɾ<EFBFBD><EFBFBD>Ư<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function YDWETimerDestroyTextTag takes real time, texttag tt returns nothing
    local integer N=0
    local integer i=0
    if time <= 0 then
        set time = 0.01
    endif
    call SetTextTagPermanent(tt,false)
    call SetTextTagLifespan(tt,time)
    call SetTextTagFadepoint(tt,time)
endfunction

//<EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
private function Main takes nothing returns nothing
	local integer h = TaskListHead
	local integer p
	loop
		set CurrentIndex = TaskListNext[h]
		exitwhen CurrentIndex < 0 or CurrentTime < TaskListTime[CurrentIndex]
		//call BJDebugMsg("Task:"+I2S(CurrentIndex))
		call TriggerEvaluate(TaskListProc[CurrentIndex])
		call DeleteTaskIndex(CurrentIndex)
		set TaskListNext[h] = TaskListNext[CurrentIndex]
	endloop
	set CurrentTime = CurrentTime + 1
endfunction


//<EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
private function Init takes nothing returns nothing
    set Timer = CreateTimer()
	set TimerHandle	= YDHashAny2I(timer, Timer)
	set CurrentTime      = 0
	set TaskListHead     = 0
	set TaskListNext[0]  = -1
	set TaskListIdleHead = 1
	set TaskListIdleMax  = 1
	set TaskListIdle[1]  = -1
	
	set fnRemoveUnit       = CreateTrigger()
	set fnDestroyTimer     = CreateTrigger()
	set fnRemoveItem       = CreateTrigger()
	set fnDestroyEffect    = CreateTrigger()
	set fnDestroyLightning = CreateTrigger()
	set fnRunTrigger       = CreateTrigger()
	call TriggerAddCondition(fnRemoveUnit,        Condition(function RemoveUnit_CallBack))
	call TriggerAddCondition(fnDestroyTimer,      Condition(function DestroyTimer_CallBack))
	call TriggerAddCondition(fnRemoveItem,        Condition(function RemoveItem_CallBack))
	call TriggerAddCondition(fnDestroyEffect,     Condition(function DestroyEffect_CallBack))
	call TriggerAddCondition(fnDestroyLightning,  Condition(function DestroyLightning_CallBack))
	call TriggerAddCondition(fnRunTrigger,        Condition(function RunTrigger_CallBack))
	
    call TimerStart(Timer, 0.01, true, function Main)
endfunction

//ѭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ö<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>
function YDWETimerSystemGetRunIndex takes nothing returns integer
    return TimerSystem_RunIndex
endfunction

#define INDEX_TRIGGER  $D0001
#define INDEX_RUNINDEX $D0002
#define INDEX_TIMES    $D0003

private function RunPeriodicTriggerFunction takes nothing returns nothing
    local integer tid = YDHashAny2I(timer, GetExpiredTimer())
    local trigger trg = YDHashGet(YDHASH_HANDLE, trigger, tid, INDEX_TRIGGER)
	call YDHashSetByString(YDHASH_HANDLE, integer, I2S(YDHashAny2I(trigger, trg)), "RunIndex", YDHashGet(YDHASH_HANDLE, integer, tid, INDEX_RUNINDEX))
    if TriggerEvaluate(trg) then
        call TriggerExecute(trg)
    endif
    set trg = null
endfunction

private function RunPeriodicTriggerFunctionByTimes takes nothing returns nothing
    local integer tid = YDHashAny2I(timer, GetExpiredTimer())
    local trigger trg = YDHashGet(YDHASH_HANDLE, trigger, tid, INDEX_TRIGGER)
    local integer times = YDHashGet(YDHASH_HANDLE, integer, tid, INDEX_TIMES)
	call YDHashSetByString(YDHASH_HANDLE, integer, I2S(YDHashAny2I(trigger, trg)), "RunIndex", YDHashGet(YDHASH_HANDLE, integer, tid, INDEX_RUNINDEX))
    if TriggerEvaluate(trg) then
        call TriggerExecute(trg)
    endif
    set times = times - 1
    if times > 0 then
		call YDHashSet(YDHASH_HANDLE, integer, tid, INDEX_TIMES, times)
      else
        call DestroyTimer(GetExpiredTimer())
        call YDHashClearTable(YDHASH_HANDLE, tid)
    endif
    set trg = null
endfunction

function YDWETimerRunPeriodicTrigger takes real timeout, trigger trg, boolean b, integer times, integer data returns nothing
    local timer t
    local integer tid
    local integer index = 0
    if timeout < 0 then
        return
      else
        set t = CreateTimer()
		set tid = YDHashAny2I(timer, t)
    endif
    set TimerSystem_RunIndex = TimerSystem_RunIndex + 1
	call YDHashSet(YDHASH_HANDLE, trigger, tid, INDEX_TRIGGER, trg)
	call YDHashSet(YDHASH_HANDLE, integer, tid, INDEX_RUNINDEX, TimerSystem_RunIndex)
	set index = YDHashGet(YDHASH_HANDLE, integer, YDHashAny2I(trigger, trg), 'YDTS'+data)
    set index = index + 1
	call YDHashSet(YDHASH_HANDLE, integer, YDHashAny2I(trigger, trg), 'YDTS'+data, index)
	call YDHashSet(YDHASH_HANDLE, timer, YDHashAny2I(trigger, trg), ('YDTS'+data)*index, t)
	
    if b == false then
		call YDHashSet(YDHASH_HANDLE, integer, tid, INDEX_TIMES, times)
        call TimerStart(t, timeout, true, function RunPeriodicTriggerFunctionByTimes)
      else
        call TimerStart(t, timeout, true, function RunPeriodicTriggerFunction)
    endif
    set t = null
endfunction

function YDWETimerRunPeriodicTriggerOver takes trigger trg, integer data returns nothing
	local integer trgid = YDHashAny2I(trigger, trg)
    local integer index = YDHashGet(YDHASH_HANDLE, integer, trgid, 'YDTS'+data)
    local timer t
    loop
        exitwhen index <= 0
        set t = YDHashGet(YDHASH_HANDLE, timer, trgid, ('YDTS'+data)*index)
        call DestroyTimer(t)
        call YDHashClearTable(YDHASH_HANDLE, YDHashAny2I(timer, t))
		call YDHashClear(YDHASH_HANDLE, timer, trgid, ('YDTS'+data)*index)
        set index = index - 1
    endloop
	
    call YDHashClear(YDHASH_HANDLE, integer, trgid, 'YDTS'+data)
    set t = null
endfunction

#undef INDEX_TRIGGER
#undef INDEX_RUNINDEX
#undef INDEX_TIMES

endlibrary


#endif /// YDWETimerSystemIncluded