Ok sorry about the wait.
My Menu System:
menu:
selected = 1
sync on
completed:
cls
if selected = 0 then selected = (options)
if selected = (options+1) then selected = 1
ink rgb(50,50,50),0
box 19,1,639,20
ink rgb(200,200,200),0
box 1,1,19,20
ink rgb(255,0,0),0
text 20,1,Menutitle$
if m = 1
ink rgb(255,0,0),0
text 400,1,"P1: "+str$(MoneyOne)+"u P2: "+str$(MoneyTwo)+"u"
endif
for opt = 1 to options
ink rgb(255,0,0),0
if Left$(Opts$(opt),6) = "Denied" then ink rgb(100,0,0),0
text 20,(opt * 20),Opts$(opt)
if Sub = 1 then text 400,(opt*20),Subtext$(opt)
next opt
ink rgb(255,255,255),0
if Left$(Opts$(selected),6) = "Denied" then ink rgb(100,100,100),0
text 20,(selected * 20),Opts$(selected)
sync
wait 70
repeat
if downkey() = 1 then selected = selected + 1: goto completed
if upkey() = 1 then selected = selected - 1: goto completed
if Left$(Opts$(selected),6)= "Denied" then goto denied
if returnkey() = 1
sync off
Dim Subtext$(22)
for s = 1 to 22
Subtext$(s) = ""
next s
Sub = 0
return
endif
denied:
until escapekey() = 1
end
what you do is at some point in the program, you
put in the code:
dim Opts$(22)
Options = 5
Menutitle$ = "Who invented the lightbulb?"
Opts$(1) = "Albert Einstein"
Opts$(2) = "Stephen Hawking"
Opts$(3) = "Thomas Edison"
Opts$(4) = "Dmitri Mendeleev"
Opts$(5) = "Pythagoras"
gosub menu
if selected = 3 then right = right + 1
or similar. It's a really quick way of making
great menus.
