Sorry your browser is not supported!

dim button_co-ords(5,4)
`set up co-ordinates for checking if our mouse is over where our buttons will be
`button_co-ords(x,1)=Left Corordinate
`button_co-ords(x,2)=Right Corordinate
`button_co-ords(x,3)=Top Corordinate
`button_co-ords(x,4)=Bottom Corordinate

button_co-ords(1,1)=1
button_co-ords(1,2)=201
button_co-ords(1,3)=296
button_co-ords(1,4)=315
button_co-ords(2,1)=1
button_co-ords(2,2)=201
button_co-ords(2,3)=316
button_co-ords(2,4)=335
button_co-ords(3,1)=1
button_co-ords(3,2)=201
button_co-ords(3,3)=336
button_co-ords(3,4)=355
button_co-ords(4,1)=1
button_co-ords(4,2)=201
button_co-ords(4,3)=356
button_co-ords(4,4)=375
button_co-ords(5,1)=1
button_co-ords(5,2)=201
button_co-ords(5,3)=376
button_co-ords(5,4)=395

dim MenuTarget$(5)
MenuTarget$(1)="NewGame"
MenuTarget$(2)="LoadGame"
MenuTarget$(3)="Options"
MenuTarget$(4)="Update"
MenuTarget$(5)="Exit"

`see if we are within the co-ordinates
for buttoncheck = 1 to 5
   if mousex() >= button_co-ords(buttoncheck,1) and mousex() <= button_co-ords(buttoncheck,2) and mousey() >= button_co-ords(buttoncheck,3) and mousex() <= button_co-ords(buttoncheck,4) and mouseclick() = 1
   gosub MenuTarget$(buttoncheck)
   endif
next buttoncheck

Rem Start(optional if you want your program windowed) set window on

sync rate 30
sync on

enable escapekey

Print "Version:"

set text size 20
center text 320,20, "Title Here"

Rem Text Links

do

text 1,300, "New Game"
text 1,320, "Load Game"
text 1,340, "Options"
text 1,360, "Check For Updates"
text 1,380, "Exit"






set text size 12 
text 1,450, "Made By (Team or Author)"

sync
loop

do
 cls

 newgame = TextButton(1, 300, "New Game")
 loadgame = TextButton(1, 340, "Load Game")
 options = TextButton(1, 380, "Options")
 check4updates = TextButton(1, 420, "Check For Updates")
 exitprog = TextButton(1, 460, "Exit")

 if mouseclick() = 1
  if newgame = 1 then gosub _new_game
  if loadgame = 1 then gosub _load_game
  if options = 1 then gosub _options
  if check4updates = 1 then gosub _chk_4_updates
  if exitprog = 1 then end
 endif

loop

_new_game:
 rem random new game coding stuff
return

_load_game:
 rem random load game coding stuff
return

_options:
 rem random options coding stuff
return

_chk_4_updates:
 rem update coding stuff
return


function TextButton(x, y, text$)
 textlength = text width(text$)
 textheight = text height(text$)

 ink white, 0

 if mousex() > x and mousex() < x + textlength and mousey() > y and mousey() < y + textheight
  onmouse = 1
 else
  onmouse = 0
 endif

 text x, y, text$
endfunction onmouse

do
 cls

 newgame = TextButton(1, 300, "New Game")
 loadgame = TextButton(1, 340, "Load Game")
 options = TextButton(1, 380, "Options")
 check4updates = TextButton(1, 420, "Check For Updates")
 exitprog = TextButton(1, 460, "Exit")

 if mouseclick() = 1
  if newgame = 1 then gosub _new_game
  if loadgame = 1 then gosub _load_game
  if options = 1 then gosub _options
  if check4updates = 1 then gosub _chk_4_updates
  if exitprog = 1 then end
 endif

loop

_new_game:
 rem random new game coding stuff
return

_load_game:
 rem random load game coding stuff
return

_options:
 rem random options coding stuff
return

_chk_4_updates:
 rem update coding stuff
return


function TextButton(x, y, text$)
 textlength = text width(text$)
 textheight = text height(text$)

 currentcol as dword

 if mousex() > x and mousex() < x + textlength and mousey() > y and mousey() < y + textheight
  onmouse = 1 : currentcol = rgb(255, 0, 0)
 else
  onmouse = 0 : currentcol = rgb(255, 255, 255)
 endif

 ink currentcol, 0

 text x, y, text$
endfunction onmouse

set text size 12 
text 1,450, "Made By (Team or Author)"
do


 newgame = TextButton(1, 300, "New Game")
 loadgame = TextButton(1, 320, "Load Game")
 options = TextButton(1, 340, "Options")
 check4updates = TextButton(1, 360, "Check For Updates")
 exitprog = TextButton(1, 380, "Exit")


 if mouseclick() = 1
  if newgame = 1 then gosub _new_game
  if loadgame = 1 then gosub _load_game
  if options = 1 then gosub _options
  if check4updates = 1 then gosub _chk_4_updates
  if exitprog = 1 then end
 endif

loop






function TextButton(x, y, text$)
 textlength = text width(text$)
 textheight = text height(text$)



 if mousex() > x and mousex() < x + textlength and mousey() > y and mousey() < y + textheight
  onmouse = 1 : currentcol = rgb(255, 0, 0)
 else
  onmouse = 0 : currentcol = rgb(255, 255, 255)
 endif

 ink currentcol, 0

 text x, y, text$
endfunction onmouse


Rem MenuLinks::::::::::::.........

`New Game

_new_game:

cls

do

sync
set text size 20
center text 320,20, "Title Here"

loop


`Load Game

_load_game:

cls

do

sync
set text size 20
center text 320,20, "Title Here"

loop


`Options
_options:

cls

do

sync
set text size 20
center text 320,20, "Title Here"

loop

_chk_4_updates:

cls



do

sync
Text 310,240, "Loading"
Wait 1000
Text 310,240, "Loading."
Wait 1000
Text 310,240, "Loading.."
Wait 1000
Text 310,240, "Loading..."
Wait 1000
Text 310,240, "Loading...."
Wait 1000

Text 310,260, "No Updates Found!"
center text 320,450, "Press Esc To Go Back"




loop

Gosub Menu
Rem Main Loop
Do
  Sync
Loop

Menu:
  Rem Draw Menu Screen
  Repeat
    I=Scancode()
    Select I
      Case 24
        Rem Do What's Needed Here
        Gosub Whatever
      EndCase
      Case 52
        Rem Do What's Needed Here
        Gosub Whatever
      EndCase
    EndSelect
  Until I=55: Rem Where 55 is the Play Game Key
Return