More timers or array of timers - GameCreators Forum

Author

Message

lux1963

7

Years of Service

User Offline

Joined: 6th Jan 2017

Location:

Posted: 24th May 2017 04:07

Link

Some games need more timer. In AppGameKit I have only a timer but in other program is possible to have many timer (array of objet timer).
How create a array of timer and resettimer?

explample:
alpha = timer(1)
beta = timer(2)
.............
if hungry = 0 then resetimer(1)
.............
resetimer(2)
delta=timer(3)

max precision at second

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 24th May 2017 06:53

Link

example

// AGK 2017.05.15 (Tier1 Basic)

// MR 24.05.2017

// multiple timer

SetSyncRate(10,0)

type TTimer
 beep as integer
 m as float
endtype

Main()
end

Function Main()

local ping as TTimer[2]

TimerInit(ping)

local i as Integer

Do
		Print("timer 1,2,3 seconds")

TimerUpdate(ping)
				
		if ping[0].m => 1.0 
			TimerReset(ping[0])
			ping[0].beep = 1
		else
			ping[0].beep = 0
		endif

if ping[1].m => 2.0
			TimerReset(ping[1])
			ping[1].beep = 1
		else
			ping[1].beep = 0
		endif

if ping[2].m => 3.0
			TimerReset(ping[2])
			ping[2].beep = 1
		else
			ping[2].beep = 0
		endif

for i = 0 to ping.length
			print(ping[i].beep)
		next
		
		sync()
	Loop
	
EndFunction

Function TimerInit(ping ref as TTimer[])
	
	local i as Integer
	
	for i = 0 to ping.length
		TimerReset(ping[i])
	next
	
EndFunction

Function TimerUpdate(ping ref as TTimer[])
	
	local i as Integer
	
	for i = 0 to ping.length
		ping[i].m = ping[i].m + GetFrameTime()
	next
	
EndFunction

Function TimerReset(ping ref as TTimer)
		
	ping.m = 0
	
EndFunction

+ Code Snippet

// AGK 2017.05.15 (Tier1 Basic)

// MR 24.05.2017

// multiple timer

SetSyncRate(10,0)

type TTimer
 beep as integer
 m as float
endtype

Main()
end

Function Main()

	local ping as TTimer[2]

	TimerInit(ping)

	local i as Integer

	Do
		Print("timer 1,2,3 seconds")

		TimerUpdate(ping)
				
		if ping[0].m => 1.0 
			TimerReset(ping[0])
			ping[0].beep = 1
		else
			ping[0].beep = 0
		endif

		if ping[1].m => 2.0
			TimerReset(ping[1])
			ping[1].beep = 1
		else
			ping[1].beep = 0
		endif

		if ping[2].m => 3.0
			TimerReset(ping[2])
			ping[2].beep = 1
		else
			ping[2].beep = 0
		endif

		for i = 0 to ping.length
			print(ping[i].beep)
		next
		
		sync()
	Loop
	
EndFunction 

Function TimerInit(ping ref as TTimer[])
	
	local i as Integer
	
	for i = 0 to ping.length
		TimerReset(ping[i])
	next
	
EndFunction 

Function TimerUpdate(ping ref as TTimer[])
	
	local i as Integer
	
	for i = 0 to ping.length
		ping[i].m = ping[i].m + GetFrameTime()
	next
	
EndFunction 

Function TimerReset(ping ref as TTimer)
		
	ping.m = 0
	
EndFunction

AGK (Steam) V2017.05.15 : Windows 10 Pro 64 Bit : AMD (17.4.4) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 24th May 2017 11:59

Link

Would it be better to call the time outside of the loop? So the array stays a little more synced if you get what i mean.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 24th May 2017 12:05 Edited at: 24th May 2017 12:08

Link

you mean like this? because > test the reset to zero make it out of sync.
if ping[0].m => 1.0
ping[0].m=ping[0].m-1.0

// AGK 2017.05.15 (Tier1 Basic)
 
// MR 24.05.2017
 
// multiple timer
 
SetSyncRate(10,0)
 
type TTimer
 beep as integer
 m as float
endtype
 
Main()
end
 
Function Main()
 
    local ping as TTimer[2]
 
    TimerInit(ping)
 
    local i as Integer
 
    Do
        Print("timer 1,2,3 seconds")
 
        TimerUpdate(ping)
                 
        if ping[0].m => 1.0 
            TimerReset(ping[0],1.0)
            ping[0].beep = 1
        else
            ping[0].beep = 0
        endif
 
        if ping[1].m => 2.0
            TimerReset(ping[1],2.0)
            ping[1].beep = 1
        else
            ping[1].beep = 0
        endif
 
        if ping[2].m => 3.0
            TimerReset(ping[2],3.0)
            ping[2].beep = 1
        else
            ping[2].beep = 0
        endif
 
        for i = 0 to ping.length
            print(ping[i].beep)
        next
         
        sync()
    Loop
     
EndFunction 
 
Function TimerInit(ping ref as TTimer[])
     
    local i as Integer
     
    for i = 0 to ping.length
        ping[i].m=0
        ping[i].beep=0
    next
     
EndFunction 
 
Function TimerUpdate(ping ref as TTimer[])
     
    local i as Integer
     
    for i = 0 to ping.length
        ping[i].m = ping[i].m + GetFrameTime()
    next
     
EndFunction 
 
Function TimerReset(ping ref as TTimer,t as float)
         
    ping.m = ping.m - t
     
EndFunction

+ Code Snippet

// AGK 2017.05.15 (Tier1 Basic)
 
// MR 24.05.2017
 
// multiple timer
 
SetSyncRate(10,0)
 
type TTimer
 beep as integer
 m as float
endtype
 
Main()
end
 
Function Main()
 
    local ping as TTimer[2]
 
    TimerInit(ping)
 
    local i as Integer
 
    Do
        Print("timer 1,2,3 seconds")
 
        TimerUpdate(ping)
                 
        if ping[0].m => 1.0 
            TimerReset(ping[0],1.0)
            ping[0].beep = 1
        else
            ping[0].beep = 0
        endif
 
        if ping[1].m => 2.0
            TimerReset(ping[1],2.0)
            ping[1].beep = 1
        else
            ping[1].beep = 0
        endif
 
        if ping[2].m => 3.0
            TimerReset(ping[2],3.0)
            ping[2].beep = 1
        else
            ping[2].beep = 0
        endif
 
        for i = 0 to ping.length
            print(ping[i].beep)
        next
         
        sync()
    Loop
     
EndFunction 
 
Function TimerInit(ping ref as TTimer[])
     
    local i as Integer
     
    for i = 0 to ping.length
        ping[i].m=0
        ping[i].beep=0
    next
     
EndFunction 
 
Function TimerUpdate(ping ref as TTimer[])
     
    local i as Integer
     
    for i = 0 to ping.length
        ping[i].m = ping[i].m + GetFrameTime()
    next
     
EndFunction 
 
Function TimerReset(ping ref as TTimer,t as float)
         
    ping.m = ping.m - t
     
EndFunction

AGK (Steam) V2017.05.15 : Windows 10 Pro 64 Bit : AMD (17.4.4) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / More timers or array of timers