Sorry your browser is not supported!

SYNC ON
GLOBAL MSECONDS 
GLOBAL TIME_ELAPSED 
GLOBAL X

MAKE OBJECT CUBE 1,30
POSITION CAMERA 50,50,50
POINT CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
//        You will want to tell Sync which function to call
//     We Accomplish this using the Set PostSync CallBack Function                                                                    
//_____________________________SETUP__________________________________ 

//------Here we get our Timer Function-------
// Pointer to our Timer function 
// which will get called every Fixed amount of time  
// Set by Variable MSECONDS in Milliseconds so MSECONDS = 1000 = 1 Second

Pointer = GET PTR TO FUNCTION ("_I_TIMER")
SET POSTSYNC CALLBACK POINTER   //<-- Timer function to get called by Sync
MSECONDS = 1000                 //<-- Set Timer Frequency

// Initialize the Timer
TIME_ELAPSED = TIMER() 

//Now Run program and as long as Sync is being called and your program is not boged
//down past what the timer is set for It should be called with relative Accuracy. 
//Window Commands such as resizing will stall it for a split second

WHILE SPACEKEY() = 0
SYNC
ENDWHILE 

FUNCTION _I_TIMER(MS AS INTEGER)
    IF TIMER() - TIME_ELAPSED > MSECONDS
         SET CURSOR 0,0
         TIME_ELAPSED = TIMER()
        _MOVE_BOX()
    ENDIF
ENDFUNCTION

function _MOVE_BOX()
    XROTATE OBJECT 1,OBJECT ANGLE X(1) + 20
endfunction

type System_type_intervalData
	id as string
	mark as integer
	interval as integer
	doneTicks as integer
	maxTicks as integer
	callback as string
	args as string
endtype


dim _System_timedIntervals[] as System_type_intervalData


function System_setInterval(rCallback as string, rArgs as string, rTicks as integer, rInterval as integer)
	array insert at bottom _System_timedIntervals[]
	_System_timedIntervals[].id = generate guid$()
	_System_timedIntervals[].mark = timer()
	_System_timedIntervals[].interval = rInterval
	_System_timedIntervals[].doneTicks = 0
	_System_timedIntervals[].maxTicks = rTicks
	_System_timedIntervals[].callback = rCallback
	_System_timedIntervals[].args = rArgs
	tID$ = _System_timedIntervals().id
endfunction tID$


function System_clearInterval(rID as string)
	for i = 0 to array count(_System_timedIntervals[])
		if _System_timedIntervals[i].id = rID
			array delete element _System_timedIntervals[], i
			exitfunction
		endif
	next i
endfunction


function System_clearAllIntervals()
	empty array _System_timedIntervals[]
endfunction


function System_getIntervalByCallback(rCallback as string)
	for i = 0 to array count(_System_timedIntervals[])
		if _System_timedIntervals[i].callback = rCallback
			exitfunction i
		endif
	next i
endfunction -1


function System_updateIntervals()

	updateMark as dword
	updateMark = hitimer(1000000)

	GCcount = 0
	GCindex = -1

	`process ticks
	tArrCount = array count(_System_timedIntervals[])
	if tArrCount > -1
		for i = 0 to tArrCount
			now = timer()
			if now - (_System_timedIntervals[i].mark + System.timing.pauseElapsed) >= _System_timedIntervals[i].interval
				_System_timedIntervals[i].mark = now
				App_callFunction(_System_timedIntervals[i].callback, _System_timedIntervals[i].args)
				if _System_timedIntervals[i].maxTicks > -1
					inc _System_timedIntervals[i].doneTicks
					if _System_timedIntervals[i].doneTicks >= _System_timedIntervals[i].maxTicks
						_System_timedIntervals[i].id = "GC_THIS"
						inc GCcount
						GCindex = i
					endif
				endif
			endif
		next i

		`garbage collect
		if GCcount > 0
			if GCcount > 1
				for c = 1 to GCcount
					for i = 0 to array count(_System_timedIntervals[])
						if _System_timedIntervals[i].id = "GC_THIS"
							array delete element _System_timedIntervals[], i
							exit
						endif
					next i
				next c
			else
				array delete element _System_timedIntervals[], GCindex
			endif
		endif
	endif
endfunction

//---

function App_callFunction(rFunctionName as string, rArgs as string)

	err = TRUE
	returnStr$ = ""

	select rFunctionName
		//anim3d.dbx
		//case "Anim3d_updateActiveAnimations": Anim3d_updateActiveAnimations() : err = FALSE : endcase
		//case "Anim3d_clearAppliedAnimationsDeferred": Anim3d_clearAppliedAnimationsDeferred(intval(rArgs)) : err = FALSE : endcase
	endselect

	if err = TRUE
		//System_log("main.dbx", 4, "error", "ERROR: Callback function not registered: " + rFunctionName)
		//App_closeGame(TRUE)
	endif

endfunction returnStr$

//register some timers to the update handler

System_setInterval("echoString", "oh hai", 1, 1000) 
   //this will be called once, after 1 second during the update as:    App_callFunction(_System_timedIntervals[i].callback, _System_timedIntervals[i].args)    ----->     App_callFunction("echoString", "oh hai")

System_setInterval("echoNum", "1.0", 1, 2000)
   //this will be called once, after 2 seconds during the update as:    App_callFunction(_System_timedIntervals[i].callback, _System_timedIntervals[i].args)    ----->     App_callFunction("echoNum", "1.0")

System_SetInterval("echoComplex", "some message,123,yayNesting", -1, 5000)
   //this will be called every 5 seconds, forever, during the update as:    App_callFunction(_System_timedIntervals[i].callback, _System_timedIntervals[i].args)    ----->     App_callFunction("echoComplex",  "some message,123,yayNesting")



//dispatcher:

//this is a less than ideal work around for 'call function name myFunc, myArgs' but it gets the job done.
//it just does a select/case on the function name, then passes the argument string as needed.

function App_callFunction(rFunctionName as string, rArgs as string)
 
    err = TRUE
    returnStr$ = ""
 
    select rFunctionName
       case "echoString": echoString(rArgs) : err = FALSE : endcase
       case "echoNum": echoNum(val(rArgs)) : err = FALSE : endcase
       case "echoComplex": echoComplex(rArgs) : err = FALSE : endcase
       case "yayNesting": yayNesting() : err = FALSE : endcase
    endselect
 
    if err = TRUE
        //System_log("main.dbx", 4, "error", "ERROR: Callback function not registered: " + rFunctionName)
        //App_closeGame(TRUE)
    endif
 
endfunction returnStr$




//callback functions

function echoString(rMessage as string)
   print rMessage
endfunction


function echoNum(rNum as float)
   inc rNum, 1000.0
   print rNum
endfunction


function yayNesting()
   print "!!!"
endfunction


function echoComplex(rArgs as string)
   split string rArgs, ","
   tMessage$ = get split word(1)
   tNum# = val(get split word(2))
   tFunc$ = get split word(3)
   echoString(tMessage$)
   echoNum(tNum#)
   App_callFunction(tFunc$, "")
endfunction


do
   System_updateIntervals()
   sync
loop