%January ____ 2013%
%Bomberman Game:%
%Menu%
import GUI
forward procedure menu
forward procedure options
forward procedure help
forward procedure start
%%%
var finished : boolean := false
process backgroundmusic
    loop
        exit when finished
        Music.PlayFile ("Diddy Kong Racing - Lobby Theme Tune.mp3")
    end loop
end backgroundmusic
fork backgroundmusic
%%%
body procedure start
    put "Process 1"
end start
%%%
procedure musicon
    Music.PlayFileLoop ("Diddy Kong Racing - Lobby Theme Tune.mp3")
end musicon
procedure musicoff
finished:=true
    Music.PlayFileStop
end musicoff
%%%
body procedure options
cls
    put "Settings"
    var button4:int:=GUI.CreateButton (0,25,0,"MUSIC ON", musicon)
    var button5:int:=GUI.CreateButton (150,25,0,"MUSIC OFF", musicoff)
end options
%%%
body procedure help
    cls
    put "Game Controls"
    put "Controls" : 20, "Keys"
    put "Move Up" : 20, "Up Arrow"
    put "Move Down" : 20, "Down Arrow"
    put "Move Right" : 20, "Right Arrow"
    put "Move Left" : 20, "Left Arrow"
    put "Place Bomb" :20, "Space Bar"
end help
%%%
%MENU%
body procedure menu
var button1 : int := GUI.CreateButton (100, 0, 0, "START", start)
var button2 : int := GUI.CreateButton (200, 0, 0, "OPTIONS", options)
var button3 : int := GUI.CreateButton (300, 0, 0, "HELP", help)
end menu
%%%
loop
    exit when GUI.ProcessEvent
end loop