scroll menu - GameCreators Forum

Author

Message

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 7th Jan 2006 01:30

Link

Help!! I am making a title screen to my game and I want it to change selection when you use the arrowkeys. Instead of going through each one, it just skips from the first one to the second one.

+ Code Snippet

sync rate 25
color1=255:color2=0:color3=0:color4=0:color5=0
do
ink RGB(255,0,0),0:set text size 35:Set Cursor 180,0:Print "Space Shoot-OUT!"
ink RGB(0,color1,255),0:set text size 20:set cursor 0,50:Print "All Levels"
ink RGB(0,color2,255),0:set cursor 0,70:Print "Level 1"
ink RGB(0,color3,255),0:set cursor 0,90:Print "Level 2"
ink RGB(0,color4,255),0:set cursor 0,110:Print "Level 3"
ink RGB(0,color5,255),0:set cursor 0,130:Print "Level 4"
if downkey()=1 and color1=255:color1=0:color2=255:endif
if downkey()=1 and color2=255:color2=0:color3=255:endif
if downkey()=1 and color3=255:color3=0:color4=255:endif
if downkey()=1 and color4=255:color4=0:color5=255:endif
if upkey()=1 and color5=255:color5=0:color4=255:endif
if upkey()=1 and color4=255:color4=0:color3=255:endif
if upkey()=1 and color3=255:color3=0:color2=255:endif
if upkey()=1 and color2=255:color2=0:color1=255:endif
sync
loop

Mysteries Surround You

Back to top

Profile PM

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 7th Jan 2006 02:05 Edited at: 7th Jan 2006 02:06

Link

this is simple there is nothing wrong with you code it is just that
1. loops go extremely fast and it wouls seem like it is going down to the last.
2. also darkbasic reads code iine by line so after the first line becomes true your second becomes true because youve incresed the veriables to make it true and so on

here is a code that will work.
what it does is once the downkey is pressed it sets variables to check if it has gone through the code once so you have to let go of the downkey for it to be able to restart.

sync rate 25
color1=255:color2=0:color3=0:color4=0:color5=0
do
ink RGB(255,0,0),0:set text size 35:Set Cursor 180,0:Print "Space Shoot-OUT!"
ink RGB(0,color1,255),0:set text size 20:set cursor 0,50:Print "All Levels"
ink RGB(0,color2,255),0:set cursor 0,70:Print "Level 1"
ink RGB(0,color3,255),0:set cursor 0,90:Print "Level 2"
ink RGB(0,color4,255),0:set cursor 0,110:Print "Level 3"
ink RGB(0,color5,255),0:set cursor 0,130:Print "Level 4"
if downkey()=1  and decolor=0:decolor=1:endif
if decolor=1 and decng=0 and color1=255
color1=0
color2=255
decng=1
endif
if decolor=1 and decng=0 and color2=255
color2=0
color3=255
decng=1
endif
if decolor=1 and decng=0 and color3=255
color3=0
color4=255
decng=1
endif
if decolor=1 and decng=0 and color4=255
color4=0
color5=255
decng=1
endif
if upkey()=1 and incolor=0:incolor=1:endif
if incolor=1 and incng=0 and color5=255
color5=0
color4=255
incng=1
endif
if incolor=1 and incng=0 and color4=255
color4=0
color3=255
incng=1
endif
if incolor=1 and incng=0 and color3=255
color3=0
color2=255
incng=1
endif
if incolor=1 and incng=0 and color2=255
color2=0
color1=255
incng=1
endif
if upkey()=0:incolor=0:incng=0:endif
if downkey()=0:decolor=0:decng=0:endif
sync
loop

+ Code Snippet

sync rate 25
color1=255:color2=0:color3=0:color4=0:color5=0
do
ink RGB(255,0,0),0:set text size 35:Set Cursor 180,0:Print "Space Shoot-OUT!"
ink RGB(0,color1,255),0:set text size 20:set cursor 0,50:Print "All Levels"
ink RGB(0,color2,255),0:set cursor 0,70:Print "Level 1"
ink RGB(0,color3,255),0:set cursor 0,90:Print "Level 2"
ink RGB(0,color4,255),0:set cursor 0,110:Print "Level 3"
ink RGB(0,color5,255),0:set cursor 0,130:Print "Level 4"
if downkey()=1  and decolor=0:decolor=1:endif
if decolor=1 and decng=0 and color1=255
color1=0
color2=255
decng=1
endif
if decolor=1 and decng=0 and color2=255
color2=0
color3=255
decng=1
endif
if decolor=1 and decng=0 and color3=255
color3=0
color4=255
decng=1
endif
if decolor=1 and decng=0 and color4=255
color4=0
color5=255
decng=1
endif
if upkey()=1 and incolor=0:incolor=1:endif
if incolor=1 and incng=0 and color5=255
color5=0
color4=255
incng=1
endif
if incolor=1 and incng=0 and color4=255
color4=0
color3=255
incng=1
endif
if incolor=1 and incng=0 and color3=255
color3=0
color2=255
incng=1
endif
if incolor=1 and incng=0 and color2=255
color2=0
color1=255
incng=1
endif
if upkey()=0:incolor=0:incng=0:endif
if downkey()=0:decolor=0:decng=0:endif
sync
loop

Back to top

Profile PM

TKsFox

18

Years of Service

User Offline

Joined: 25th Nov 2005

Location: No no no - Its not the Cyberspace

Posted: 7th Jan 2006 14:42

Link

Y not using a variable?

u use AllowUp and AllowDown they r 1 if the given arrow isnt pressed
and if the key is pressed u check if the Allow one is 1 - then u add +1 (up) or -1 (down) to a variable named Line.

It's me...

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 7th Jan 2006 15:37

Link

Quote: "Y not using a variable?"

I had the same thought. Using a variable (with an array) is the easiest way to make a text driven menu.

Hope this helps.

+ Code Snippet

sync rate 0
sync on

` Make an array of text for the menu
dim Menu$(4)
Menu$(0)="All Levels"
Menu$(1)="Level 1"
Menu$(2)="Level 2"
Menu$(3)="Level 3"
Menu$(4)="Level 4"

` CMenu is the current selected text 
CMenu=0
tim=timer()
ink rgb(255,0,0),0
set text size 35
center text 320,0,"Space Shoot-OUT!"
set text size 20
do
 ` Print the text
 y=50
 for t=0 to 4
  if t=CMenu
   ` Menu select color
   ink rgb(0,255,255),0
   else
   ` Menu non-select color
   ink rgb(0,0,255),0
  endif
  text 0,y,Menu$(t)
  inc y,20
 next t

 if downkey() and timer()>tim+100
  inc CMenu
  tim=timer()
 endif

 if upkey() and timer()>tim+100
  dec CMenu
  tim=timer()
 endif

 ` Wrap CMenu around if it goes beyond the limits
 if CMenu=5 then CMenu=0
 if CMenu=-1 then CMenu=4
 sync
 
loop

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 16th Jan 2006 22:19

Link

thanks Jerok, your code is exactly what I needed!

Mysteries Surround You

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / scroll menu