The gameclock revised. - GameCreators Forum

Author

Message

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 24th May 2003 01:35 Edited at: 24th May 2003 01:37

Link

Even though my gameclock worked fine before. I wanted to shorten it. In my experimentation I got this far. The problem is when the clock reaches 1:59 instead of 2:00 it goes back to 1:00. Any help would be cool.

+ Code Snippet

t=timer()
tt=158
_gameclock:
paste image 5,710,0
if t<=timer()-6000 then tt=tt+1 : t=timer()
t$=str$(tt) : c=len(t$) : for b=1 to c
p$=mid$(t$,b) : d=val(p$)
if c>2 then r$=right$(t$,2)
if c=3 then le$=left$(t$,1)
if c=4 then le$=left$(t$,2)
r=val(r$) : le=val(le$)
if r=60 then tt=le*100

if c=1 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000,758,7 : paste image 1000+d,758+(b*16),7
if c=2 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000+d,742+(b*16),7
if c=3 then paste image 1000,726,7 : paste image 1000+d,726+(b*16),7
if c=4 then paste image 1000+d,726+(b*16),7
next b
return

*** Maxillian Software ***

Back to top

Profile PM Email Website

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 24th May 2003 03:17

Link

I did some more work on the gameclock. I fixed the advance to next hour prob. Now I have a new prob. When the clock hits 00:00 it stays there. I notice a flicker from the clock when it goes to 00:01 but then it flicks back to 00:00. Ill eventually figure this out but go ahead and post if you wish.

+ Code Snippet

t=timer()
tt=2358
_gameclock:
if t<=timer()-6000 then tt=tt+1 : t=timer()
paste image 5,710,0
t$=str$(tt) : c=len(t$) : for b=1 to c
p$=mid$(t$,b) : d=val(p$)
if c>2 then ri$=right$(t$,2)
if c=3 then le$=left$(t$,1)
if c=4 then le$=left$(t$,2)
ri=val(ri$) : le=val(le$)
if ri=60 then tt=le*100+100
if tt=2400 then tt=0
if c=1 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000,758,7 : paste image 1000+d,758+(b*16),7
if c=2 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000+d,742+(b*16),7
if c=3 then paste image 1000,726,7 : paste image 1000+d,726+(b*16),7
if c=4 then paste image 1000+d,710+(b*16),7
next b
return

*** Maxillian Software ***

Back to top

Profile PM Email Website

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 24th May 2003 03:50

Link

I know Ive been posting quite a bit. But if I can help anyone else I hope i will. I set up a gosub routine called clockcycle. It will update the clock instance once every 6 seconds instead of every millisecond. Taking a huge load off the cpu. Still figuring out the 00:00 prob.

+ Code Snippet

_gameclock:
if t<=timer()-6000 then tt=tt+1 : t=timer() : gosub _clockcycle
_clockcycle:
paste image 5,710,0
t$=str$(tt) : c=len(t$) : for b=1 to c
p$=mid$(t$,b) : d=val(p$)
if c>2 then ri$=right$(t$,2)
if c=3 then le$=left$(t$,1)
if c=4 then le$=left$(t$,2)
ri=val(ri$) : le=val(le$)
if ri=60 then tt=le*100+100
if tt=2400 then tt=0
if c=1 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000,758,7 : paste image 1000+d,758+(b*16),7
if c=2 then paste image 1000,726,7 : paste image 1000,742,7 : paste image 1000+d,742+(b*16),7
if c=3 then paste image 1000,726,7 : paste image 1000+d,726+(b*16),7
if c=4 then paste image 1000+d,710+(b*16),7
next b
return
return

*** Maxillian Software ***

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 24th May 2003 07:40

Link

May I reccomend some global arrays and a function?

this method will make it easier to update the time should u need to within other functions, An array declared at the top will pass throught a function in a global sense.

Sometimes things might change the time in your game IE time jumping portals so this will cover any problems you have there.

+ Code Snippet

sync on : sync rate 60
make object cube 1,1

dim WT_start(1) : WT_start(1) = 0
dim WT_elapsed(1) : WT_elapsed(1) = 0
dim WT_maxtime(1) : WT_maxtime(1) = 15
dim WT_day(1) : WT_day(1) = 1

WT_start(1) = timer()


disable escapekey
while escapekey()=0

   run_world_timer()

   text 10,10,"world time counter "+STR$(WT_elapsed(1))
   text 10,30,"days "+STR$(WT_day(1))

sync
endwhile

delete object 1

undim WT_start(1)
undim WT_elapsed(1)
undim WT_maxtime(1)



function run_world_timer()
if WT_elapsed(1) = WT_maxtime(1)
   WT_start(1)=timer()
   WT_day(1) = WT_day(1)+1
endif

WT_elapsed(1)=(timer()-WT_start(1))/1000
endfunction

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 24th May 2003 07:41

Link

oops I didnt clean up neatly and undim WT_day(1)

just add that component at the end where the others are.

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 24th May 2003 12:14 Edited at: 24th May 2003 12:15

Link

Hmm a few global arrays and a function. I see about trying to use them. Im not familiar with arrays and functions yet but hey Ill take them on if itll help. Gonna have to learn them sooner or later anyway.

Thanks indi

*** Maxillian Software ***

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 24th May 2003 12:32

Link

no problem just ask if u have questions regarding those commands.

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 24th May 2003 14:13

Link

You really need be using global variables for this instead of using arrays.

Variables are very slightly faster than arrays, but more importantly, don't use anywhere near as much memory as arrays, and don't need to be cleaned up after use.

Here's the code with the small number of changes made:

+ Code Snippet

sync on : sync rate 60
make object cube 1,1

global WT_start : WT_start = 0
global WT_elapsed : WT_elapsed = 0
global WT_maxtime : WT_maxtime = 15
global WT_day : WT_day = 1

WT_start = timer()


disable escapekey
while escapekey()=0

   run_world_timer()

   text 10,10,"world time counter "+STR$(WT_elapsed)
   text 10,30,"days "+STR$(WT_day)

sync
endwhile

delete object 1


function run_world_timer()
if WT_elapsed = WT_maxtime
   WT_start=timer()
   WT_day = WT_day+1
endif

WT_elapsed=(timer()-WT_start)/1000
endfunction

Back to top

Profile PM Email Website

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 24th May 2003 16:08

Link

Slightly faster, not as much mem, no clean up. Sound like good reasons to me. Thanks.

*** Maxillian Software ***

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 24th May 2003 17:57

Link

I made the arrays because,

the method works across DBC and DBP in case you were still on classic.

allows more then one time to be tracked within the same array if you added more.

allows you to save the array data when the game needs to be saved easily.

you can still do all this now with the new methods, I have no idea what your requirements were so I left factors in for multiple time tracking.

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

sicjoshsic

21

Years of Service

User Offline

Joined: 8th May 2003

Location: United Kingdom

Posted: 25th May 2003 00:56

Link

hey maxillian did you try my code i posted the other day? that should work fine

BTW,
if i was you id use more recognisable variables, it's going to be hell when you get sidetracked with something else then need to remember what they all mean again (trust me, i learnt the hard way)

http://www.geocities.com/darkwolfproductions - My Games 'Company' Website
http://www.geocities.com/demonfists - My Homepage

Back to top

Profile PM Email Website

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 25th May 2003 14:55

Link

Yeah im gonna try using words instead of single or double variables. That way Im sure to not reuse one. Yup your code works fine.

*** Maxillian Software ***

Back to top

Profile PM Email Website

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 25th May 2003 18:44 Edited at: 25th May 2003 19:02

Link

Well i fixed my 00:00 problem. It had to do with the sequence. I had to relocate the line "if ttclock=2400 then ttclock=0". Its not staying at 00:00 anymore. Here's the code.

+ Code Snippet

_gameclock:
if tclock<=timer()-6000 then ttclock=ttclock+1 : tclock=timer() : gosub _clockcycle
_clockcycle:
paste image 5,710,0
time$=str$(ttclock) : timec=len(time$) : for timeb=1 to timec
timep$=mid$(time$,timeb) : timed=val(timep$)
if ttclock=2400 then ttclock=0
if timec>2 then timeri$=right$(time$,2)
if timec=3 then timele$=left$(time$,1)
if timec=4 then timele$=left$(time$,2)
timeri=val(timeri$) : timele=val(timele$)
if timeri=60 then ttclock=timele*100+100

Well now when it goes past 00:59 it goes to 00:60 instead of 01:00
but I fixed that by adding "if ttclock=60 then ttclock=100" it would have been a even longer line to do it the other way. Here's the new code.

+ Code Snippet

_gameclock:
if tclock<=timer()-6000 then ttclock=ttclock+1 : tclock=timer() : gosub _clockcycle
_clockcycle:
paste image 5,710,0
time$=str$(ttclock) : timec=len(time$) : for timeb=1 to timec
timep$=mid$(time$,timeb) : timed=val(timep$)
if ttclock=2400 then ttclock=0
if ttclock=60 then ttclock=100
if timec>2 then timeri$=right$(time$,2)
if timec=3 then timele$=left$(time$,1)
if timec=4 then timele$=left$(time$,2)
timeri=val(timeri$) : timele=val(timele$)
if timeri=60 then ttclock=timele*100+100

I know its not the best code but it works and I shortened it alot.
I think Ill post it in the code snippets cause it also controls a
graphical 24 hour clock at the upper right of your screen as well.

*** Maxillian Software ***

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 26th May 2003 02:32

Link

here is another way you could represent time as well using a type and an array together.

Sounds like you have chosen your method already tho

+ Code Snippet

TYPE TIME
SECOND AS INTEGER
MINUTE AS STRING
HOUR AS INTEGER
DAY AS INTEGER
YEAR AS INTEGER
ENDTYPE

dim TIME(1) as TIME

TIME(1).SECOND = 34
TIME(1).MINUTE = 56
TIME(1).HOUR = 14
TIME(1).DAY = 156
TIME(1).YEAR = 1900

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 26th May 2003 02:33

Link

doh

MINUTE AS INTEGER

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Maxx illian

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 26th May 2003 03:12

Link

Well the method i used works for now. But there's plenty of time to come up with something better. As I experiment with arrays and functions I'll might work something else out. Thanks Indi

*** Maxillian Software ***

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 26th May 2003 03:15

Link

no worries max by the way welcome to DB!

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / The gameclock revised.