Sorry your browser is not supported!

` a nice & simple highlighted menu system
` there are no links from the options (for now), but you get to learn the BASICs...
` & my first functions... (very simple, for now, but I'm going to like these!)

dim menu$(3)
menu$(0)="Option 1"
menu$(1)="Option 2"
menu$(2)="Option 3"
menu$(3)="Option 4"

hilite=0

`position the menu
px=text height(menu$(num))
x=(screen width())/2
y=((screen height())/2)-(px*((array count(menu$(0))+1)/2))

`the loop
_top:
do
`cls needs to be in the main loop or the screen goes skew-if
cls
set text opaque
`^^^^or you won't see the highlight...

`input actions & limits
`change these 3's to 4's if you'd like a 'highlight off'
if upkey()=1 then dec hilite,1
if downkey()=1 then inc hilite,1
if hilite>3 then hilite=0
if hilite<0 then hilite=3

`main menu list
for num=0 to 3
if hilite<num then whitetx() : center text x,y+(px*num),menu$(num)
if hilite=num then blacktx() : center text x,y+(px*num),menu$(num)
if hilite>num then whitetx() : center text x,y+(px*num),menu$(num)
next num

`whoah cowboy! 60 seems to give the best timing
`see what happens when you rem the wait 60 ;)
wait 60
loop

wait key

function whitetx()
ink rgb(255,255,255), rgb(0,0,0)
endfunction

function blacktx()
ink rgb(0,0,0), rgb(255,255,255)
endfunction

` a nice & simple highlighted menu system
` & my first functions... (very simple, for now, but I'm going to like these!)

dim menu$(3)
menu$(0)="Option 1"
menu$(1)="Option 2"
menu$(2)="Option 3"
menu$(3)="Option 4"

hilite=0

`position the menu
px=text height(menu$(num))
x=(screen width())/2
y=((screen height())/2)-(px*((array count(menu$(0))+1)/2))

`the loop
_top:
do
`cls needs to be in the main loop or the screen goes skew-if
cls
set text opaque
`^^^^or you won't see the highlight...

`input actions & limits
if upkey()=1 then dec hilite,1
if downkey()=1 then inc hilite,1
if hilite>3 then hilite=0
if hilite<0 then hilite=3


`main menu list
for num=0 to 3
if hilite<num then whitetx() : center text x,y+(px*num),menu$(num)
if hilite=num then blacktx() : center text x,y+(px*num),menu$(num)
if hilite>num then whitetx() : center text x,y+(px*num),menu$(num)
next num

whitetx() : print "use up/down cursor to highlight then press return"
`whoah cowboy! 60 seems to give the best timing
`see what happens when you rem the wait 60 ;)
wait 60
if returnkey()=1 then gosub _option
loop


_option:
cls
num=hilite
whitetx()
print "You chose '"; menu$(num) ;"'"
print "press a key to go back..."
wait key
wait 100
gosub _top

function whitetx()
ink rgb(255,255,255), rgb(0,0,0)
endfunction

function blacktx()
ink rgb(0,0,0), rgb(255,255,255)
endfunction

sync on
sync rate 0

back=rgb(128,128,0)
border=rgb(70,104,32)
white=rgb(255,255,255)

ink border,0

set text font "ariel"
set text size 60
center text 320,20,"Title Screen"


selected=1
set text size 20
ink border,0
do
ink border,0
line 10,10,628,10
line 10,11,628,11
line 10,12,628,12
line 628,10,628,469
line 10,10,10,469
line 10,469,628,469
line 10,468,628,468
line 10,467,628,467

if selected=1 then ink white,0 else ink border,0
center text 320,175,"Start new gaMe"

if selected=2 then ink white,0 else ink border,0
center text 320,225,"Load gaMe"

if selected=3 then ink white,0 else ink border,0
center text 320,275,"Options"

If selected=4 then ink white,0 else ink border,0
center text 320,325,"Exit"

if downkey()=1 and hold=0 then inc selected,1 : hold=1 
if upkey()=1 and hold=0  then dec selected,1 : hold=1 

if selected>4 then selected=1
if selected<1 then selected=4
if upkey()=0 and downkey()=0 then hold=0

if returnkey()=1
if selected=4
play sound 2
end
endif
	endif
sync
loop

if upkey()=0 and downkey()=0 then hold=0

`variables
px=text height(menu$(num))
x=(screen width())/2
y=((screen height())/2)-(px*((array count(menu$(0))+1)/2))
hilite=0
hold=0