a simple menu error - GameCreators Forum

Author

Message

Daygamer

14

Years of Service

User Offline

Joined: 16th Mar 2010

Location: United States

Posted: 7th Jul 2010 08:07

Link

Hey,

I've got a simple problem that has been bothering me for a while.

+ Code Snippet

sync on
do
cls

ink rgb(255,255,255),0
center text 320,0,"MENU"

if option = 0 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,30,"New Game"

if option = 1 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,50,"Load Game"

if option = 2 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,70,"Can't think of another typical option"

if option = 3 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,90,"Exit"

if option > 0 and upkey()=1 then dec option
if option < 3 and downkey()=1 then inc option

sync
loop

In my example code it is very hard to move the cursor to one of the middle options, because you would have to release the key faster than the program loops, right? Like if you want to Load Game you can’t get the cursor to it. Is there any genius command that will fix this? I've tried many stupid things like this:

+ Code Snippet

if option > 0 and upkey()=1 then dec option : wait 200
if option < 3 and downkey()=1 then inc option : wait 200

This the player time to let their finger off the key, but it's not very cool and I hate it.

thanks everyone.

Have a nice day, God Bless You!

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 7th Jul 2010 11:39 Edited at: 7th Jul 2010 11:41

Link

You need a veriable to hold the timer() value of the last keypress.

Then you need to check that value, against the current Timer() value; and not accept another input until 200ms has passed.

+ Code Snippet

if upkey()=1 and timer()-keyPressTimer>200 : ` or whatever delay you need
    keyPressTimer=timer()
    dec option
endif

Back to top

Profile PM Email Website

Dia

19

Years of Service

User Offline

Joined: 16th Jan 2005

Location:

Posted: 7th Jul 2010 12:46 Edited at: 7th Jul 2010 12:49

Link

either that or use a key lock in your code, something like

+ Code Snippet

if upkey()=1 and uplock=0
   uplock = 1
   inc option
endif

ip upkey()=0 then uplock=0

of course this means you have to press and release the up key every time you want to change option. It depends if you are after that or a time based one like prof said above

This is not the Sig you are looking for....

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 7th Jul 2010 19:12 Edited at: 7th Jul 2010 19:14

Link

Or stop all action till the user lets go of the key.

+ Code Snippet

do

 ` Check for up arrow
 if upkey()
  print "Up"
 endif

 if downkey()
  print "Down"
 endif

 ` Wait till no key is being pressed
 repeat
 until scancode()=0

loop

A timer would be better looking though.

Back to top

Profile PM Email

Daygamer

14

Years of Service

User Offline

Joined: 16th Mar 2010

Location: United States

Posted: 8th Jul 2010 06:14

Link

thanks everyone. I plugged in all those snippets to my program, and they all got the job done. Thanks for the ideas!!!

For anyone reading this, here is all those spinnets pulled into my program:

Timer Option:

+ Code Snippet

sync on
do
cls

ink rgb(255,255,255),0
center text 320,0,"MENU"

if option = 0 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,30,"New Game"

if option = 1 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,50,"Load Game"

if option = 2 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,70,"Can't think of another typical option"

if option = 3 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,90,"Exit"

if upkey()=1 and option > 0 and timer()-keyPressTimer>200
    keyPressTimer=timer()
    dec option
endif

if downkey()=1 and option < 3 and timer()-keyPressTimer>200
    keyPressTimer=timer()
    inc option
endif

sync
loop

"Lock" Variable Option:

+ Code Snippet

sync on
do
cls

ink rgb(255,255,255),0
center text 320,0,"MENU"

if option = 0 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,30,"New Game"

if option = 1 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,50,"Load Game"

if option = 2 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,70,"Can't think of another typical option"

if option = 3 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,90,"Exit"

if upkey()=1 and option > 0 and uplock=0
   uplock = 1
   dec option
endif
if upkey()=0 then uplock=0

if downkey()=1 and option < 3 and downlock=0
   downlock = 1
   inc option
endif
if downkey()=0 then downlock=0

sync
loop

All Stop Option:

+ Code Snippet

sync on
do
cls

ink rgb(255,255,255),0
center text 320,0,"MENU"

if option = 0 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,30,"New Game"

if option = 1 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,50,"Load Game"

if option = 2 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,70,"Can't think of another typical option"

if option = 3 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
center text 320,90,"Exit"

if upkey()=1 and option > 0
  dec option
endif 
 
if downkey()=1 and option < 3
  inc option
endif 
 
`Wait till no key is being pressed 
repeat
until scancode()=0 

sync
loop

Have a nice day, God Bless You!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / a simple menu error