//TESH.scrollpos=66
//TESH.alwaysfold=0
globals
real ELAPSED_TIME = 0.01
endglobals
function increase_time_Actions takes nothing returns nothing
local timer t = GetExpiredTimer()
local timer g
call DestroyTimer(t)
set ELAPSED_TIME = ELAPSED_TIME + 0.01
set g = CreateTimer()
call TimerStart(g,0.01,false,function increase_time_Actions)
//call DisplayTextToPlayer(Player(0),0,0, R2S(ELAPSED_TIME))
endfunction
function Loop_System_init_Actions takes nothing returns nothing
local timer g = CreateTimer()
//call DisplayTextToForce(GetPlayersAll(),"Timerstart!")
call TimerStart(g,0.01,false,function increase_time_Actions)
endfunction
//===========================================================================
function Init_Loop_System_init takes nothing returns nothing
local trigger Loop_System_init = CreateTrigger()
call TriggerAddAction( Loop_System_init, function Loop_System_init_Actions )
endfunction
function test takes nothing returns nothing
local trigger t = GetTriggeringTrigger()
local unit u
local real x
local real y
local rect r = GetPlayableMapRect()
set x = GetRectCenterX(r)
set y = GetRectCenterY(r)
set u = CreateUnit(Player(0),'hwat',x,y,270)
call UnitApplyTimedLife(u,'0000',0.25)
call DisplayTextToForce(GetPlayersAll(),R2S(ELAPSED_TIME)+" : A trigger has been executed!")
call DestroyTrigger(t)
endfunction
//===========================================================================
function Init_test takes nothing returns nothing
local trigger test_init = CreateTrigger()
call TriggerAddAction( test_init, function test )
endfunction
//#################################################
function ADD_EVENT takes real WhichTime returns trigger
local trigger t = CreateTrigger()
local timer g = CreateTimer()
local real r = 0.00
set r = WhichTime - ELAPSED_TIME
call TimerStart(g,r,false,function test)
return t
endfunction
//#################################################
function TEST_ACTIONS takes nothing returns nothing
local integer i = 0
local real r = 0.00
local trigger d
loop
exitwhen i == 10
set r = ELAPSED_TIME + 1.25 + (i * 0.25)
call DisplayTextToForce(GetPlayersAll(),"Current time :"+R2S(ELAPSED_TIME))
call DisplayTextToForce(GetPlayersAll(),"Execution time :"+R2S(r))
set d = ADD_EVENT(r)
call TriggerAddAction(d, function test)
set i = i + 1
endloop
endfunction
//===========================================================================
function TEST_init takes nothing returns nothing
local trigger TEST = CreateTrigger()
call TriggerAddAction( TEST, function TEST_ACTIONS )
endfunction
Name | Type | is_array | initial_value |