diff --git a/src/Globals.pbi b/src/Globals.pbi index 6ce768a..5dc51a1 100644 --- a/src/Globals.pbi +++ b/src/Globals.pbi @@ -29,5 +29,7 @@ Global GFXTileset.i Global Dim Tileset.i(2) ; Sounds +Global MenuSoundStarted = 0 LoadSound(0, #DATA_PATH + "sound/menu_change.wav") -LoadSound(1, #DATA_PATH + "sound/menu_select.wav") \ No newline at end of file +LoadSound(1, #DATA_PATH + "sound/menu_select.wav") +LoadSound(2, #DATA_PATH + "sound/title_song.wav") diff --git a/src/Main.pb b/src/Main.pb index b246fd2..61a5ec9 100644 --- a/src/Main.pb +++ b/src/Main.pb @@ -83,6 +83,17 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent Define Event = WindowEvent() Until Event = 0 + ; Handle the background music + If CurrentState = "MAIN_MENU" Or CurrentState = "RLY_QUIT" + If MenuSoundStarted = 0 + MenuSoundStarted = PlaySound(2, #PB_Sound_MultiChannel|#PB_Sound_Loop) + SoundVolume(2, 70, MenuSoundStarted) + EndIf + Else + StopSound(2, MenuSoundStarted) + MenuSoundStarted = 0 + EndIf + ; Handle global events ExamineKeyboard() If KeyboardReleased(#PB_Key_F)