diff --git a/data/sound/menu_change.wav b/data/sound/menu_change.wav new file mode 100644 index 0000000..df52354 Binary files /dev/null and b/data/sound/menu_change.wav differ diff --git a/data/sound/menu_select.wav b/data/sound/menu_select.wav new file mode 100644 index 0000000..0416ccd Binary files /dev/null and b/data/sound/menu_select.wav differ diff --git a/src/Events.pbi b/src/Events.pbi index 022d1f1..d75e901 100644 --- a/src/Events.pbi +++ b/src/Events.pbi @@ -38,7 +38,7 @@ Procedure HandleEventMenu() EndProcedure Procedure HandleEventRunningGame() - If KeyboardReleased(#PB_Key_Escape) + If KeyboardReleased(#PB_Key_F10) CurrentState = "MAIN_MENU" *ActiveMenu.GameMenu = Menus(CurrentState) EndIf diff --git a/src/Globals.pbi b/src/Globals.pbi index 458135b..ddd0173 100644 --- a/src/Globals.pbi +++ b/src/Globals.pbi @@ -1,4 +1,6 @@  +Global DataPath.s = "../data/" + ; Global variables Global Fullscreen = 0 Global Title.s = "ESCape - Build " + Str(#PB_Editor_BuildCount) @@ -23,3 +25,8 @@ Enumeration 500 #Tile05 #Tile06 EndEnumeration + +; Sounds +Global Dim Sounds.s(2) +Sounds(0) = DataPath + "sound/menu_change.wav" +Sounds(1) = DataPath + "sound/menu_select.wav" \ No newline at end of file diff --git a/src/Main.pb b/src/Main.pb index c79c44a..bac0c50 100644 --- a/src/Main.pb +++ b/src/Main.pb @@ -5,7 +5,7 @@ EnableExplicit ; Initialize subsystems -If InitSprite() = 0 Or InitKeyboard() = 0 +If InitSprite() = 0 Or InitKeyboard() = 0 Or InitSound() = 0 MessageRequester("Error", "Sorry, can't keep up.", 0) End EndIf