import GUI

setscreen ("graphics: 900;900, nobuttonbar")
colourback (black)
cls

forward procedure unmute
forward procedure mute
forward procedure hideMute
forward procedure hideUnmute

var menuFont : int := Font.New ("castellar:30:bold")
var muteButton : int := GUI.CreateButton (maxx div 2, 750, 100, "MUTE", mute)
GUI.SetColour (muteButton, white)
var unmuteButton : int := GUI.CreateButton (maxx div 2, 700, 100, "UNMUTE", unmute)
GUI.SetColour (unmuteButton, white)
GUI.Hide (unmuteButton)

Music.PlayFileLoop ("menu.mp3")
Font.Draw ("MENU", 430, 850, menuFont, white)

%The boxes I tried to draw
body procedure hideMute
    const x1 : int := GUI.GetX (muteButton)
    const y1 : int := GUI.GetY (muteButton)
    const width1 : int := GUI.GetWidth (muteButton)
    const height1 : int := GUI.GetHeight (muteButton)
    Draw.Box (x1, y1, x1 + width1 - 1, y1 + height1 - 1, black)
end hideMute

%more box drawing
body procedure hideUnmute
    const x : int := GUI.GetX (unmuteButton)
    const y : int := GUI.GetY (unmuteButton)
    const width : int := GUI.GetWidth (unmuteButton)
    const height : int := GUI.GetHeight (unmuteButton)
    Draw.Box (x, y, x + width - 1, y + height - 1, black)
end hideUnmute

%the actual GUIs
body procedure mute
    Music.PlayFileStop
    GUI.Hide (muteButton)
    const x1 : int := GUI.GetX (muteButton)
    const y1 : int := GUI.GetY (muteButton)
    const width1 : int := GUI.GetWidth (muteButton)
    const height1 : int := GUI.GetHeight (muteButton)
    Draw.Box (x1, y1, x1 + width1 - 1, y1 + height1 - 1, black)
    GUI.Show (unmuteButton)
end mute

%More guis
body procedure unmute
    Music.PlayFileLoop ("menu.mp3")
    GUI.Hide (unmuteButton)
    hideUnmute
    GUI.Show (muteButton)
end unmute

loop
    exit when GUI.ProcessEvent
end loop