In-game Clock - GameCreators Forum

Author

Message

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 28th Dec 2007 05:19

Link

+ Code Snippet

SET WINDOW ON
SET WINDOW SIZE 800, 600
SET WINDOW TITLE "Clock"
INK RGB(255,255,255), RGB(0,0,0)
SET TEXT SIZE 21
SET TEXT FONT "Small Fonts"

GTIME = TIMER()
SLEEP 120000

DO

   GSEC = (TIMER() - (GTIME))/1000
   IF GSEC > 59
      GMIN = GSEC/60
      GSEC = 0
      GTIME = TIMER()
   ENDIF
   IF GMIN > 59
      GHOUR = GHOUR + 1
      GMIN = 0
   ENDIF
   IF GHOUR > 23
      GDAY = GDAY + 1
      GHOUR = 0
   ENDIF
   TEXT 10, 10, "Time: " + STR$(GDAY) + " Day " + STR$(GHOUR) + ":" + STR$(GMIN) + ":" + STR$(GSEC)
   SLEEP 1000
   SYNC:CLS

LOOP

That is my in-game clock program, thus far anyways. I am trying to figure out how to use a Float instead of Int to get the clock to resume when it's not being loaded by the program (This clock will display in a menu, but not all the time.) I found out how to get the minutes to resume, but the seconds are kind of blocking me right now. Sorry for the shoddy description, but it's kind of hard to explain

If anyone did get what I'm looking for however, feel free to help me out

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

flashing snall

18

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 28th Dec 2007 05:33

Link

just take out all the sleep commands.... idk, when i tried it, i got nothing, once i took out the sleeps, it worked fine..

"these shoes are 300 hundred dollars"-Shoes by Kelly http://smallgroupproductions.com/

Back to top

Profile PM Email Website

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 28th Dec 2007 05:44

Link

The sleep command was to debug, to see if the clock resumed accurately after not being displayed/used for 2 minutes. Sorry I forgot to take it out, but if you type in a number that would leave a remainder when divided by 60 (To get the minutes), the seconds are not carried over.

Say you put SLEEP 125000, when the clock resumes the time will be displayed as 0:2:0, when it should display 0:2:5. Hope that helps to clear up what I'm talking about here.

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

Roxas

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: http://forum.thegamecreators.com

Posted: 28th Dec 2007 15:26

Link

Try to use Wait 2000 instead of Sleep and see if it works

And why this is in 2 Dimensional Chat?

Click For Details!

Back to top

Profile PM Email

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 28th Dec 2007 21:32

Link

Thanks for the replies and sorry for posting this in the wrong forum, it was late for me.

@WindowsKiller - I know this is wrong, I was hoping someone had some insight on a better way to program this clock. I was thinking maybe use floats instead of integers then use the remainder of GSEC/60 to get calculate the seconds? Given it wouldn't be 100% accurate, but who is really going to sit there and watch the clock and run tests?

Thanks for all the replies so far.

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 28th Dec 2007 23:37

Link

Is there any Documentation on the MOD command, MY DBPro doesn't seem to have any...

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 29th Dec 2007 11:43

Link

So couldn't I just use /60 instead of MOD 60?

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

Saiochi

17

Years of Service

User Offline

Joined: 17th Sep 2006

Location: Under your bed

Posted: 29th Dec 2007 20:46 Edited at: 30th Dec 2007 08:13

Link

Think I got the hang of it, mind checking my work?

+ Code Snippet

SET WINDOW ON
SET WINDOW SIZE 800, 600
SET WINDOW TITLE "Clock Debug"
INK RGB(255,255,255), RGB(0,0,0)
SET TEXT SIZE 21
SET TEXT FONT "Arial"
ENDING AS STRING
SPADDING AS STRING
MPADDING AS STRING
HPADDING AS STRING
RTTIMER = TIMER()

GSTART = TIMER()

DO
   GDIFF = (TIMER() - GSTART) / 1000

   GSEC = (GDIFF MOD 60)
   GMIN = (GDIFF MOD 3600) / 60
   GHOUR = (GDIFF MOD 86400) / 1440
   GDAY = (GDIFF MOD 604800) / 86400
   IF GSEC < 10
      SPADDING = "0"
   ELSE
      SPADDING = ""
   ENDIF
   IF GMIN < 10
      MPADDING = "0"
   ELSE
      MPADDING = ""
   ENDIF
   IF GHOUR < 10
      HPADDING = "0"
   ELSE
      HPADDING = ""
   ENDIF
   IF GHOUR < 12
      ENDING = "AM"
   ELSE
      ENDING = "PM"
   ENDIF
   TEXT 10, 10, "Time: Day " + STR$(GDAY) + ", " + HPADDING + STR$(GHOUR) + ":" + MPADDING + STR$(GMIN) + ":" + SPADDING + STR$(GSEC) + " " + ENDING
   SLEEP 1000
   SYNC:CLS
LOOP

If you have X-ray vision, can you see through your own eyelids?

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / In-game Clock