A simple paused code for your game.
if inkey$()="p"
do
center text 320,240,"Paused - Press Space Bar"
if spacekey()=1 then exit
sync
loop
endif
And here is a main menu. (not writen by me but you might like it).
load bitmap "your backround here.bmp",0
set current bitmap 0
a=1
menu:
do
ink rgb(0,0,0),0
if mousex()>=180 and mousex()<=250 and mousey()>=275 and mousey()<=275+text height("new Game")
ink rgb(500,500,500),1
endif
text 180,275,"new game"
if mousex()>=180 and mousex()<=250 and mousey()>=275 and mousey()<=275+text height("new Game")
ink rgb(500,500,500),1
if mouseclick()=1
exit
gosub game
endif
else
ink rgb(500,500,500),1
endif
ink rgb(0,0,0),0
if mousex()>=325 and mousex()<=375 and mousey()>=275 and mousey()<=275+text height("Options")
ink rgb(500,500,500),1
endif
text 325,275,"Options"
if mousex()>=325 and mousex()<=375 and mousey()>=275 and mousey()<=275+text height("Options")
ink rgb(500,500,500),1
if mouseclick()=1
d=1
gosub optionsgame
endif
else
endif
ink rgb(0,0,0),0
if mousex()>=450 and mousex()<=475 and mousey()>=275 and mousey()<=275+text height("quit")
ink rgb(500,500,500),1
endif
text 450,275,"quit"
if mousex()>=450 and mousex()<=475 and mousey()>=275 and mousey()<=275+text height("quit")
ink rgb(500,500,500),1
if mouseclick()=1
end
endif
else
ink rgb(500,500,500),1
endif
sync
loop
return
optionsgame:
if d=1
gosub options
else
goto game
endif
return
options:
if a=1
ink rgb(0,0,0),1
print "game options:";
print " controls";
print " credits" : a=2
endif
return
game:
cls
rem your game code under here
