Sorry your browser is not supported!

sync on
disable escapekey
backdrop on
main:
do
if escapekey()=1 then esc=1
if esc=1 then esc=0:goto pausemenu
`[main loop commands in here]
text 0,0,"Main Loop"
text 0,20,"This is the game, press escape to go to the menu"
sync
loop
pausemenu:
do
`[menu commands in here]
`make sure there's a menu item which triggers a shutdown sequence!!
if escapekey()=1 then esc=1
if esc=1 then esc=0:goto main
if spacekey()=1 then end
text 0,0,"Pause Menu Loop"
text 0,20,"press space to exit, escape to return to 'game'"
sync
loop

Function PauseGame()

    While 1
        If somecondition = 1 then break : rem um, i actually dont know the db equivilent of a break statement, it will be break or exit or something i would guess
        sync
    endwhile
EndFunction

sync rate 0 : sync on

make object cube 1,10

do

  inc ang
  yrotate object 1,wrapvalue(ang)

  if returnkey()=1 then Pause()

  center text 320,240,"Press enter to pause"

  sync

loop


Function Pause()

  ` Get rid of any 3D so we can use 2D
  set camera view 0,0,0,0

  do

    inc i
    cls rgb(127 + sin(i)*127,0,0)

    center text 320,240,"Press space to return"

    if spacekey()=1 then exit

    sync

  loop

  set camera view 0,0,screen width(),screen height()

EndFunction