Millisecs() equivalent?

' MonkeyToolsAdditions.monkey

Import mojo

Class Timer
	Field timer:Float
	Field starttime:Float
	Field stoptime:Float
	Field paused:Bool
	Field stopped:Bool
	Method New()
		stopped=True
	End
	Method Start:Void()
		Reset
		Resume
	End
	Method Pause:Void()
		If Not paused Then
			paused=True
		End
	End
	Method Stop:Void()
		If Not stopped Then
			stopped=True
			stoptime=Millisecs
			If paused Then timer=Millisecs
		End
	End
	Method Resume:Void()
		If paused Then paused=False
		If stopped Then
			stopped=False
			starttime+=Millisecs-stoptime
		End
	End
	Method Reset:Void()
		starttime=timer
	End
	Method GetTime:Float()
		If Not stopped Then
			If Not paused Then timer=Millisecs
		End
		Return (timer-starttime)/1000.0
	End
End

Import mojo
Import MonkeyToolsAdditions

Class Game Extends App
	Field timer:Timer
	Method OnCreate()
		SetUpdateRate 60
		timer=New Timer
	End
	Method OnRender()
		Cls 30,60,30
		DrawText "Timer is "+timer.GetTime(),0,0
		DrawText "F1: start timer" ,0,15
		DrawText "F2: pause timer" ,0,30
		DrawText "F3: resume timer",0,45
		DrawText "F4: reset timer" ,0,60
		DrawText "F5: stop timer"  ,0,75
	End
	Method OnUpdate()
		If KeyDown(KEY_F1) Then timer.Start
		If KeyDown(KEY_F2) Then timer.Pause
		If KeyDown(KEY_F3) Then timer.Resume
		If KeyDown(KEY_F4) Then timer.Reset
		If KeyDown(KEY_F5) Then timer.Stop
	End
End

Function Main()
	New Game
End

Import mojo.app


Class Time
	Field targetFps:Float
	Field currentFps:Float
	Field deltaTime:Float
	Field deltaTimeFactor:Float
	Field currentTime:Float
	Field timeSinceStart:Float	
	Field framesSinceStart:Float

	Field timeFpsUpdateInterval:Float
	Field oldTime:Float,timeFpsCurrent:Float,framesSinceFpsUpdate:Float

	Method New(fps:Float,upd:Float)
		targetFps=fps
		timeFpsUpdateInterval=upd
		oldTime=Millisecs*.001
		timeSinceStart=0
		framesSinceStart=0
		timeFpsCurrent=0
		framesSinceFpsUpdate=0
	End

	Method New(fps:Float)
		targetFps=fps
		timeFpsUpdateInterval=0
		oldTime=Millisecs*.001
		timeSinceStart=0
		framesSinceStart=0
		timeFpsCurrent=0
		framesSinceFpsUpdate=0
	End
	
	Method Update()
		currentTime=Millisecs*.001
		deltaTime=currentTime-oldTime
		deltaTimeFactor=deltaTime*targetFps
		oldTime=currentTime
		framesSinceStart+=1
		timeSinceStart+=deltaTime
		If timeFpsUpdateInterval>0 Then
			framesSinceFpsUpdate+=1
			timeFpsCurrent+=deltaTime
			If timeFpsCurrent>=timeFpsUpdateInterval Then
				currentFps=framesSinceFpsUpdate/timeFpsCurrent
				timeFpsCurrent=0
				framesSinceFpsUpdate=0
			End
		End
	End
End

Import mojo
Import time


Class MyApp Extends App
	Field time:Time

	Method OnCreate()
		fps=30
		SetUpdateRate fps
		time=New Time(fps,.1)	
	End

	Method OnUpdate()
		time.Update()
	End

	Method OnRender()
		Cls 0,0,0
		DrawText "targetFps="+time.targetFps,32,20
		DrawText "currentFps="+time.currentFps,32,20*2
		DrawText "deltaTime="+time.deltaTime,32,20*3
		DrawText "deltaTimeFactor="+time.deltaTimeFactor,32,20*4
		DrawText "currentTime="+time.currentTime,32,20*5
		DrawText "timeSinceStart="+time.timeSinceStart,32,20*6
		DrawText "framesSinceStart="+time.framesSinceStart,32,20*7
	End
End


Global fps:Float


Function Main()
	New MyApp	
End