Sorry your browser is not supported!

rem your menu
do
set cursor 0,0
print "Main Menu"
if returnkey()=1 then gosub main_game
if upkey()=1 then gosub UP_menu
loop

UP_menu:
return

rem Your GAME!
main_game:
do
print "Your game here"
loop
return

rem MENU
MENU:

do
if upkey() = 1
 MenuSelect = MenuSelect + 1
endif
if downkey() = 1
  MenuSelect = MenuSelect - 1
endif

if returnkey() = 1
 if MenuSelect = 1
  goto game
 endif
 if MenuSelect = 2
  "load"
 endif
 if MenuSelect = 3
  "options"
 endif
 if MenuSelect = 4
  "quit"
 endif
endif
loop

rem MAIN GAME
game:
do
 "play the game"
 if died/won/stoped playing
  goto MENU:
 endif
loop

for a=1 to 5
TextSelect(textSize,textHeight,width,height)
next a

function TextSelect(textSize,textHeight,width,height)
set text transparent
`set text opaque
set text font "arial"
textSize=20
set text size textSize
dim string$(5)
string$(0)="[List-Up]"
string$(1)="[List-Down]"
string$(2)="[Play]"
string$(3)="[Save]"
string$(4)="[Load]"
driveMaxNum=5
ink rgb(100,100,255),0
center text screen width()/2,textHeight,"Please click on the drive you wish to search."
i=0
while i<>1
sync
textwidth=0
for j=0 to driveMaxNum
textwidth=textwidth+text width(string$(1))
if mousex()>textwidth and mousex()<textwidth+text width(string$(1))
ink rgb(0,0,100),0
if mouseclick()=1 and string$(j)<>"" then i=1:d$=string$(j):option=j
center text textwidth,screen height()/2,string$(j)
else
ink rgb(100,100,255),0
center text textwidth,screen height()/2,string$(j)
endif
next j
endwhile
select option
case 0 : print d$,"...",option:endcase
case 1 : print d$,"...",option:endcase
case 2 : print d$,"...",option:endcase
case 3 : print d$,"...",option:endcase
case 4 : print d$,"...",option:endcase
case default : return:endcase
endselect
option=0
wait key
endfunction

rem quadrablades main menu
dim START$(4)
dim 1$(4,4)
dim 2$(4,4)
dim 3$(4,4)
dim 4$(1)
rem menu names
start$(1,0)="START GAME"
start$(2,0)="LOAD GAME"
start$(3,0)="OPTIONS"
start$(4,0)="QUIT"

1$(1,1)="START"
1$(1,2)="INFO"
1$(1,3)="BACK"

2$(2,4)="LEVEL 1 INTRO"

3$(3,1)="CONTROLS"
3$(3,2)="SOUND"
3$(3,3)="CODES"
3$(3,4)="BACK"

REM START
sync on
sync rate 1000

rem start
load bitmap "textures/steel02.bmp"
ink 1,1
ink rgb(244,0,0),0

center text 100,10,start$(1,0)
center text 250,10,start$(2,0)
center text 400,10,start$(3,0)
center text 550,10,start$(4,0)