Sorry your browser is not supported!

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"LOAD"
text 0,160,"OPTIONS"
text 0,190,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME"

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end
sync
loop

Rem Project: menu6
Rem Created: 14/04/2006 19:30:09

Rem ***** Main Source File *****
` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"LOAD"
text 0,160,"OPTIONS"
text 0,190,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME":choice=1

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD":choice=2

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS":choice=3

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end

if choice=1 then  startgame()
if choice=2 then  loadgame()
if choice=3 then  options()
sync
loop
function startgame()
text 0,0,"startgame"
rem your code
endfunction

function loadgame()
text 0,0,"loadgame"
rem your code
endfunction

function options()
text 0,0,"Options"
rem your code
endfunction

`HELP
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"HELP"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1
   cls
   hide mouse
   ink rgb (255,255,255),0
   p=1

   repeat
     if escapekey()=1 then p=0
     set cursor 200,200
     Print "HELP"

     set cursor 200,250
     Print "The objective of the game is to prevent the spheres from hitting the screen by moving the box ontop of them"

     set cursor 200,270
     Print "The mouse moves the box and the up and down arrows control the speed at which they move"
     sync
   until p=0
   show mouse
endif