Sorry your browser is not supported!

if timer() => 0.0100 and timer() =< 0.0199 
    inc ValueIamUsing
    resettimer()
endif

		if (timer() = 5+delta3#*5)
			inc custom
			print (custom)
		endif

		if (timer() = delta3#*5)
			inc custom
			print (custom)
		endif

//Credit PartTimeCoder @ https://forum.thegamecreators.com/thread/219869

Type tTimer
	start# 
	cycle#
	index
	max
EndType


ti_1 as tTimer
TimerCreate(ti_1, 0.1, -1)

ti_2 as tTimer
TimerCreate(ti_2, 0.5, -1)

ti_3 as tTimer
TimerCreate(ti_3, 1.0, -1)

ti_4 as tTimer
TimerCreate(ti_4, 1.5, -1)

ti_5 as tTimer
TimerCreate(ti_5, 2.0, -1)

timer1_cycle=0
timer2_cycle=0
timer3_cycle=0
timer4_cycle=0
timer5_cycle=0

do
    if TimerGet(ti_1)=1
		inc timer1_cycle, 1
	endif
    
    if TimerGet(ti_2)=1
		inc timer2_cycle, 1
	endif
    
    if TimerGet(ti_3)=1
		inc timer3_cycle, 1
	endif
	
    if TimerGet(ti_4)=1
		inc timer4_cycle, 1
	endif
	
    if TimerGet(ti_5)=1
		inc timer5_cycle, 1
	endif
	
	Print( timer1_cycle )
	Print( timer2_cycle )
	Print( timer3_cycle )
	Print( timer4_cycle )
	Print( timer5_cycle )
	
	
    Sync()
loop

Function TimerCreate(ti ref as tTimer, cycle#, max)
	
	ti.start# = timer()
	ti.cycle#=cycle#
	ti.max=max
	ti.index=0
	
EndFunction

Function TimerGet(ti ref as tTimer)

	current# = timer()-ti.start#
	if current# >= ti.cycle#
		inc ti.index, 1
		ti.start#=timer()
		if ti.max = -1
			result = 1
		else
			if ti.index<=ti.max
				result = 1
			else
				result = 0
			endif
		endif
	else
		result=0
	endif
	
EndFunction result

// Project: Timers 
// Created: 2022-05-07
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Timers" )
SetWindowSize( 640,360, 0 )
SetWindowAllowResize( 1 )

// set display properties
SetVirtualResolution( 1280,720)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 0, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 


Seconds = 0		:	Next1# = Timer() + 1.0
Tenths = 0		:	Next10# = Timer() + 0.1
Hundredths = 0	:	Next100# = Timer() + 0.01

Toggle = -1		:	Rate = 0
do
	
	If GetRawKeyState(27) then End //[ESC]

	If GetPointerPressed()
		Toggle = -Toggle
		If Toggle = -1 then Rate = 0 Else Rate = 60
		SetSyncRate(Rate,0)
	EndIf
	
	If Timer() >= Next1#
		INC Seconds
		R1# = Timer() - Next1#
		Next1# = Timer() + 1.0 - R1#
	EndIf
	
	If Timer() >= Next10#
		INC Tenths
		R10# = Timer() - Next10#
		Next10# = Timer() + 0.1 - R10#
	EndIf

	If Timer() >= Next100#
		INC Hundredths
		R100# = Timer() - Next100#
		Next100# = Timer() + 0.01 - R100#
	EndIf

	Print("Rate: " + STR(Rate))
	Print(Seconds)
	Print(Tenths)
	Print(Hundredths)
	Print(R100#)
    Sync()
loop