Sorry your browser is not supported!

`turn the sync on
sync on
`make the current menu (you'll see later)
menu=0
`make the current mode blank
mode$=""
`create colors so we don't have to type rgb's all the time
red=rgb(255,0,0)
green=rgb(0,255,0)
`assign colors to the text
text1=red
text2=red
while mode$=""
cls

`make new game to have a variable color
ink text1,0
text 5,5,"New Game"
`make load game have a variable color
ink text2,0
text 5,20,"Load Game"

`change the menu item selected
if upkey()=1 then dec menu
if downkey()=1 then inc menu
`keep the menu in order
if menu < 0 then menu=0
if menu > 1 then menu=1

`highlight different colors
if menu=0 then text1=green else text1=red


if returnkey()=1 and menu=0
mode$="new"
endif


if menu=1 then text2=green else text2=red

if returnkey()=1 and menu=1
mode$="load"
endif


sync
endwhile
cls
print "Mode is :",mode$

sync on : sync rate 0

`This is for saving me some troubles
dim Mouse$(3)
Mouse$(0) = "Nothing"
Mouse$(1) = "Left mouseclick"
Mouse$(2) = "Right mouseclick"
Mouse$(3) = "Both mousebuttons are pressed"

do

   cls

   for i = 1 to 5
      `Draw 5 buttons
      ink rgb(255,255,255),0
      text 5, 5 + ((i-1)*18), Mouse$(TextButton(320, 10 + ((i-1)*18), "This is button " + str$(i), rgb(0,255,0)))
   next i

   sync
loop

`*************
`* Functions *
`*************

`A ordinary text button
function TextButton(x, y, text$, MouseOverColor)

   `Reset variables( when using more than 1 buttons )
   pressed = 0

   `Get text width and height
   tx = text width(text$) / 2
   ty = text height(text$) / 2

   `Get mouseOver
   if mousex() < x + tx and mousex() > x - tx
      if mousey() < y + ty and mousey() > y - ty
         pressed = 1
      endif
   endif

   `Change color
   if pressed > 0 then ink MouseOverColor, 0
   center text x, y - ty, text$

   `Reset if the user didn't click
   if pressed > 0 then pressed = mouseclick()
endfunction pressed

`in the loop
if textbutton(320,240,"New game", rgb(0,255,0)) > 0 then gosub NewGame

`after the loop
NewGame:
cls
play animation 1
while animation playing(1) = 1 : endwhile
StartNewGame()