Hi there
First, I just need to say that menu making is actually quite a complicated program but you needn't fret
It's do-able but will take some time and dedication.
Here is a newer version for a main menu code I just wrote which uses mathematical co-ordinates. The same basic procedure is the same and follows the attached flow chart (see download).
REM ************************************************************************************
REM SIMPLE MENU SYSTEM
REM By: HWT Date: 8th April 2005
REM This shows how to use maths to form a simple but effective menu system
REM ************************************************************************************
`Reset screen variable
screen=1
REM MAIN PROGRAM LOOP
sync on : sync rate 0
do
`If screen has to show main menu...
if screen=1
`Clear screen
cls
`If mouse co-ordinates are within the boundaries for "NEW GAME"...
if mousex()>280 and mousex()<360 and mousey()>200 and mousey()<215
`Change ink color to red (selected) and refresh output "NEWGAME" now in red color
ink rgb(255,0,0),0 : center text 320,200,"NEW GAME"
`If user clicks, change the screen to show new game screen (screen=2)
if mouseclick()=1 then screen=2
`If mouse is not within the boundaries
else
`Change ink color to white (neutral) and refresh output "NEWGAME" now in white color
ink rgb(255,255,255),0 : center text 320,200,"NEW GAME"
endif
REM *** NOTICE: THE FOLLOWING PROCEDURES FOLLOW THE SAME FLOW AS THE ABOVE ***
`If boundaries are for quit game
if mousex()>280 and mousex()<360 and mousey()>240 and mousey()<260
`Show highlighted selection, change screen if user clicks
ink rgb(255,0,0),0 : center text 320,240,"QUIT GAME"
if mouseclick()=1 then screen=3
`If not in boundaries...
else
`Show unhighlighted text
ink rgb(255,255,255),0 : center text 320,240,"QUIT GAME"
endif
endif
`If screen has to show new game scren...
if screen=2
`Clear all
cls
`Show header (in white)
ink rgb(255,255,255),0 : center text 320,0,"YOU ARE IN NEW GAME"
`If mouse is in boundaries
if mousex()>0 and mousex()<160 and mousey()>0 and mousey()<15
`Show highlighted text, change screen if user clicks
ink rgb(255,0,0),0 : text 0,0,"BACK TO MAIN MENU"
if mouseclick()=1 then screen=1
`Otherwise (not in boundaries)...
else
`Show unhighlighted text
ink rgb(255,255,255),0 : text 0,0,"BACK TO MAIN MENU"
endif
endif
`If screen has to show quit game screen...
if screen=3
`Clear
cls
`Output text asking for confirmation (with header) in white
ink rgb(255,255,255),0 : center text 320,0,"ARE YOU SURE?"
ink rgb(255,255,255),0 : text 320,240,"YES OR NO"
`If mouse is in "yes" boundaries...
if mousex()>315 and mousex()<350 and mousey()>240 and mousey()<255
`Output highlighted text, if user clicks, end program
ink rgb(255,0,0),0 : text 320,240,"YES"
if mouseclick()=1 then end
`If not in boundaries...
else
`Show unhighlighted text
ink rgb(255,255,255),0 : text 320,240,"YES"
endif
`If mouse is in "no boundaries"
if mousex()>375 and mousex()<395 and mousey()>240 and mousey()<255
`Highlight the text, if user clicks then return to main menu
ink rgb(255,0,0),0 : text 376,240,"NO"
if mouseclick()=1 then screen=1
`If not in boundaries
else
`Show unhighlighted text
ink rgb(255,255,255),0 : text 376,240,"NO"
endif
endif
sync : loop
You could also check out the Code Base particularly this search result (keyword "Menu")
href]
http://www.thegamecreators.com/?m=codebase_search&global=true&ca=&la=&ma=25&te=menu&sc=summary&p=[/href]
Please feel free to ask if you have any doubts
Good Luck!
HelloWorld Tommorrow
