Simple countdown timer -- help needed

Author

Message

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 27th Oct 2010 13:23

Link

Im not sure where to start.

i want a simple timer for my game which counts down from 10 minutes displaying minutes and seconds!

Anyone know the code?

Posting it will be great!!!!

Thanks

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 27th Oct 2010 20:17

Link

You take a snapshot of the current timer, add your required elapsed time to it, then continually check how far away from that target time you are - add a bit of basic pretty-formatting to the time (convert to mins, secs etc), and there you are.

There's an example I posted years ago in the codebase.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Lord Einstein

19

Years of Service

User Offline

Joined: 22nd Oct 2005

Location: Well here, of course...

Posted: 27th Oct 2010 23:41

Link

Try this:

+ Code Snippet

sync on
set display mode 800,600,32,1

`collect time of initial timer
`timer is measured in miliseconds so we'll convert it to seconds
init_time#=timer()/1000
time#=init_time#

do
    cls
    `collect updated time
    time#=timer()/1000-init_time#
    
    `to make it count down from a value just minus time from that value
    `e.g.
    time#=10*60-time#
    
    `convert to minuits and seconds
    min=floor(time#/60)
    sec=floor(time#-min*60)
    text 10,10,"Time: "+str$(min)+" : "+str$(sec)
    sync
LOOP

Back to top

Profile PM Email Website

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 19th Nov 2010 10:42

Link

thanks for the code.

I have recently tried adding, once the the countdwon finished it goes to a function but the countdown just stops at 0:1 annoyingly. run the code and you will see what i mean. Whats wrong?

sync on
set display mode 800,600,32,1

`collect time of initial timer
`timer is measured in miliseconds so we'll convert it to seconds
init_time#=timer()/1000
time#=init_time#

do
    cls
    `collect updated time
    time#=timer()/1000-init_time#
    
    `to make it count down from a value just minus time from that value
    `e.g.
    time#=1*60-time#
    
    `convert to minuits and seconds
    min=floor(time#/60)
    sec=floor(time#-min*60)
    text 10,10,"Time: "+str$(min)+" : "+str$(sec)
    
    if min = 0 and sec = 0
        credits()
    ENDIF
    
    sync
LOOP

function credits()
ink rgb(248,8,8),rgb(0,0,0)
 x = screen width()/2
   for y = 0 to 690
      y1 = 1000 - y
      center text x,y1,"The ....."
      center text x,y1+50,"Thank you for playing"
      center text x,y1+80,""
      center text x,y1+120,"This game was created by"
      center text x,y1+160,"......"
   wait 50
   cls
   next y
   set text size 36
   center text screen width()/2,screen height()/2,"THE END"
 wait key
endfunction

+ Code Snippet

sync on
set display mode 800,600,32,1

`collect time of initial timer
`timer is measured in miliseconds so we'll convert it to seconds
init_time#=timer()/1000
time#=init_time#

do
    cls
    `collect updated time
    time#=timer()/1000-init_time#
    
    `to make it count down from a value just minus time from that value
    `e.g.
    time#=1*60-time#
    
    `convert to minuits and seconds
    min=floor(time#/60)
    sec=floor(time#-min*60)
    text 10,10,"Time: "+str$(min)+" : "+str$(sec)
    
    if min = 0 and sec = 0
        credits()
    ENDIF
    
    sync
LOOP

function credits()
ink rgb(248,8,8),rgb(0,0,0)
 x = screen width()/2
   for y = 0 to 690
      y1 = 1000 - y
      center text x,y1,"The ....."
      center text x,y1+50,"Thank you for playing"
      center text x,y1+80,""
      center text x,y1+120,"This game was created by"
      center text x,y1+160,"......"
   wait 50
   cls
   next y
   set text size 36
   center text screen width()/2,screen height()/2,"THE END"
 wait key
endfunction

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 22nd Nov 2010 17:41

Link

You aren't using "sync" in your credits function...

Try it like this:

+ Code Snippet

function credits()
ink rgb(248,8,8),rgb(0,0,0)
 x = screen width()/2
   for y = 0 to 690
      y1 = 1000 - y
      center text x,y1,"The ....."
      center text x,y1+50,"Thank you for playing"
      center text x,y1+80,""
      center text x,y1+120,"This game was created by"
      center text x,y1+160,"......"
   wait 50
   cls
   next y
   set text size 36
   center text screen width()/2,screen height()/2,"THE END"
   sync
 wait key `just added this line
endfunction

Back to top

Profile PM Email

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 27th Dec 2010 22:47

Link

If i want my game to end when the clock is 0 min and 0 secs what do i need to do

At the moment i have the code below and as soon asx the level begins it goes to the outoftime()

+ Code Snippet


IF min = 0 AND sec = 0 
        outoftime()
ENDIF

Back to top

Profile PM

DigitalFury

14

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 28th Dec 2010 05:35 Edited at: 28th Dec 2010 05:55

Link

Here is a quick timer example:

Global Freq# : Freq# = GetFreq() ` Used to increase accuracy of the timer
Global OldTime# : OldTime# = PerfTimer()

Global StartTime# : StartTime# = 10.0 ` Start Time of Count Down In Minutes

Do
    CurrentTime# = StartTime# - GetMinutes() ` Subtract minutes elapsed
        
    If CurrentTime# <= 0
        ResetTimer() ` Reset our count down
    EndIf
    
    CLS ` Clear the screen
    Print "Current Time: " + Str$(CurrentTime#)
Loop

Function GetHours()
    Minutes# = (((PerfTimer() - OldTime#) / Freq#) / 60.0) / 60.0
EndFunction Minutes#

Function GetMinutes()
    Minutes# = ((PerfTimer() - OldTime#) / Freq#) / 60.0
EndFunction Minutes#

Function GetSeconds()
    Seconds# = (PerfTimer() - OldTime#) / Freq#
EndFunction Seconds#

Function GetMiliSeconds()
    MiliSeconds# = ((PerfTimer() - OldTime#) / Freq#) * 1000
EndFunction MiliSeconds#

Function ResetTimer()
    OldTime# = PerfTimer()
EndFunction

Function GetFreq()
	Load DLL "Kernel32.dll", 1

Memory = Make Memory(16)
	Call Dll 1, "QueryPerformanceFrequency", Memory
	Freq# = *Memory
	
	Delete DLL 1 : Delete Memory Memory	
EndFunction Freq#

+ Code Snippet

Global Freq# : Freq# = GetFreq() ` Used to increase accuracy of the timer
Global OldTime# : OldTime# = PerfTimer()

Global StartTime# : StartTime# = 10.0 ` Start Time of Count Down In Minutes

Do
    CurrentTime# = StartTime# - GetMinutes() ` Subtract minutes elapsed
        
    If CurrentTime# <= 0
        ResetTimer() ` Reset our count down
    EndIf
    
    CLS ` Clear the screen
    Print "Current Time: " + Str$(CurrentTime#)
Loop

Function GetHours()
    Minutes# = (((PerfTimer() - OldTime#) / Freq#) / 60.0) / 60.0
EndFunction Minutes#

Function GetMinutes()
    Minutes# = ((PerfTimer() - OldTime#) / Freq#) / 60.0
EndFunction Minutes#

Function GetSeconds()
    Seconds# = (PerfTimer() - OldTime#) / Freq#
EndFunction Seconds#

Function GetMiliSeconds()
    MiliSeconds# = ((PerfTimer() - OldTime#) / Freq#) * 1000
EndFunction MiliSeconds#

Function ResetTimer()
    OldTime# = PerfTimer()
EndFunction

Function GetFreq()
	Load DLL "Kernel32.dll", 1

	Memory = Make Memory(16)
	Call Dll 1, "QueryPerformanceFrequency", Memory
	Freq# = *Memory
	
	Delete DLL 1 : Delete Memory Memory	
EndFunction Freq#

How it Works:
OldTime# - Stores PerfTimer
PerfTimer - Gets the time since the computer was turned on.
"(PerfTimer() - OldTime#)" - By getting the difference between the time now and the start time you get the current time.
"OldTime# = PerfTimer()" - Will reset the timer
GetFreq() - To increase the timers accuracy.
StartTime# - The start time of the count down

DigitalFury

Back to top

Profile PM Email

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 28th Dec 2010 16:10

Link

Is ther nothing i can do with the timer i got?

I just want to know why using this..

+ Code Snippet


IF min = 0 AND sec = 0 
        outoftime()
ENDIF

Makes the outoftime function (an end game scenario) appear as soon as the game starts and doesnt even count down!

Back to top

Profile PM

DigitalFury

14

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 28th Dec 2010 21:25 Edited at: 28th Dec 2010 23:00

Link

@MightyRy -

Quote: "Is ther nothing i can do with the timer i got?"

Could you post your code. I can't find it. Thanks

I can explain what I got a bit more though:

If your ending the game then just replace this:

+ Code Snippet

If CurrentTime# <= 0
    ResetTimer() ` Reset our count down
EndIf

With this:

+ Code Snippet

If CurrentTime# <= 0
    outoftime() ` End game
EndIf

or using Baxslash's credits function:

+ Code Snippet

If CurrentTime# <= 0
    credits()
EndIf

Baxslash's credits function:

+ Code Snippet

function credits()
ink rgb(248,8,8),rgb(0,0,0)
 x = screen width()/2
   for y = 0 to 690
      y1 = 1000 - y
      center text x,y1,"The ....."
      center text x,y1+50,"Thank you for playing"
      center text x,y1+80,""
      center text x,y1+120,"This game was created by"
      center text x,y1+160,"......"
   wait 50
   cls
   next y
   set text size 36
   center text screen width()/2,screen height()/2,"THE END"
   sync
 wait key `just added this line
endfunction

The code I gave you should work just fine.

This line will set current time to the start time which is 10 minutes and subtract the minutes.

+ Code Snippet

CurrentTime# = StartTime# - GetMinutes() ` Subtract minutes elapsed

If you want to count down 10 seconds then use this:

+ Code Snippet

CurrentTime# = StartTime# - GetSeconds() ` Subtract Seconds elapsed

If you want to count down 10 hours then use this:

+ Code Snippet

CurrentTime# = StartTime# - GetHours() ` Subtract Seconds elapsed

If you want to count down 10 MiliSeconds then use this:

+ Code Snippet

CurrentTime# = StartTime# - GetMiliSeconds() ` Subtract Seconds elapsed

I posted a tutorial for you to make things easier:
http://forum.thegamecreators.com/?m=forum_view&t=178927&b=1&p=0

Let me know if you need any help.

DigitalFury

Back to top

Profile PM Email

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 29th Dec 2010 16:38 Edited at: 29th Dec 2010 16:51

Link

Here is my clock function, above the function is variables

+ Code Snippet


global init_time#
global time#
init_time#=timer()/1000
time#=init_time#
global speed#
global currtime#
global lasttime#
currtime# = timer()
lasttime# = currtime#


FUNCTION clock()

    `collect updated time
    time#=timer()/1000-init_time#

    `to make it count down from a value just minus time from that value
    `e.g.
    time#=1*60-time#

    `convert to minuits and seconds
    min=floor(time#/60)
    sec=floor(time#-min*60)
    text 550,20,"Time: "+str$(min)+" : "+str$(sec)
    
    
    if min = 0 AND sec = 10
       stop music 202
       play sound 204
       loop sound 204
       ink rgb(248,8,8),rgb(0,0,0)
    ENDIF
    
ENDFUNCTION

As i have said i want the game to end once it has finished counting down.

with this code

+ Code Snippet


   IF CurrentTime# <= 0
        outoftime()
   ENDIF

The program enters stright into the outoftime ()

In my DO-LOOP i now have this to go to the out of time scenario

+ Code Snippet


  IF currtime# <= 0
        outoftime()
     ENDIF

it now counts down but doesnt go the outoftime function when the timer is 0 : 0!

Back to top

Profile PM

DigitalFury

14

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 29th Dec 2010 22:04 Edited at: 30th Dec 2010 02:00

Link

Couldn't figure out exactly what is wrong with your code. I would need all of it to figure it out.

Here is a cleaned up example:

+ Code Snippet

Sync On : Sync Rate 30

Global Freq# : Freq# = GetFreq()
Global OldTime# : OldTime# = PerfTimer()

Do
	Clock()

	Sync
Loop

Function GetFreq()
	Load DLL "Kernel32.dll", 1

	Memory = Make Memory(16)
	Call Dll 1, "QueryPerformanceFrequency", Memory
	Freq# = *Memory
	
	Delete DLL 1 : Delete Memory Memory	
EndFunction Freq#

Function Clock(Minutes#, Seconds#)
    Time# = (PerfTimer() - OldTime#) / Freq#
	 
    MinutesLeft# = Minutes# - (Time# / 60.0)
    SecondsLeft# = Seconds# - Time#

    Text 0, 20, "Time: " + Str$(Int(MinutesLeft#)) + " : " + Str$(Int(SecondsLeft#))
	
    If MinutesLeft# <= 0.0 And SecondsLeft# <= 0.0
        OutOfTime()
    EndIf
EndFunction

Function OutOfTime()
	` Do Stuff
        End ` Ends the game
EndFunction

Function ResetTime()
	OldTime# = PerfTimer()
EndFunction

Hopefully that helps!

DigitalFury

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 1st Jan 2011 15:01

Link

Quote: "it now counts down but doesnt go the outoftime function when the timer is 0 : 0! "

Hmm.... I don't see currtime# being manipulated anywhere in your clock() function. How is it counting down?

Guns, cinematics, stealth, items and more!

Back to top

Profile PM Email

MightyRy

14

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 4th Jan 2011 16:29 Edited at: 4th Jan 2011 16:31

Link

sorry currtime# is used for a different function.

so my clock function and the variables are:

+ Code Snippet


global init_time#
global time#
init_time#=timer()/1000
time#=init_time#


FUNCTION clock()

    `collect updated time
    time#=timer()/1000-init_time#

    `to make it count down from a value just minus time from that value
    `e.g.
    time#=3*60-time#

    `convert to minuits and seconds
    min=floor(time#/60)
    sec=floor(time#-min*60)
    text 550,20,"Time: "+str$(min)+" : "+str$(sec)
    
    
    if min = 0 AND sec = 10
       stop music 202
       play sound 204
       loop sound 204
       ink rgb(248,8,8),rgb(0,0,0)
    ENDIF
    
ENDFUNCTION

And in the main do loop is:

+ Code Snippet


 IF CurrentTime# <= 0
        outoftime()
   ENDIF

AS i have said before, the game exits to the outoftime function instatntly. So the clock must set itself to 0, then set the 3 minutues after and that is why it is escaping.

Back to top

Profile PM

Agent

20

Years of Service

User Offline

Joined: 7th Sep 2004

Location: Sydney, Australia

Posted: 11th Jan 2011 16:24

Link

Seems much more likely that CurrentTime# is never being set to anything, or at least you're checking that it's <= 0 before you set it to something nonzero.

Even if you are setting it to something correctly, make sure it's a global variable and not a local one, otherwise clock() won't be able to access its contents and it'll treat it as zero, which triggers your IF...THEN check.

If these suggestions don't help, we'll need your complete code - every line, even the unrelated functions, so we can do a proper logic trace and help you track down the bug. If you skip any part of your program when you paste it to us, we can't help you any further.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Simple countdown timer -- help needed