Sound works fine

This commit is contained in:
Aaron 2011-08-20 18:30:12 +02:00
parent 51dd7953fb
commit 66e15a7991
3 changed files with 7 additions and 7 deletions

View File

@ -2,6 +2,7 @@
Procedure HandleEventMenu()
If KeyboardReleased(#PB_Key_Up)
PlaySound(0, #PB_Sound_MultiChannel)
Menu_GotoCurrent()
*ActiveMenu\Entries()\Selected = #False
@ -15,6 +16,7 @@ Procedure HandleEventMenu()
EndIf
If KeyboardReleased(#PB_Key_Down)
PlaySound(0, #PB_Sound_MultiChannel)
Menu_GotoCurrent()
*ActiveMenu\Entries()\Selected = #False
@ -29,6 +31,7 @@ Procedure HandleEventMenu()
; We go to the target game state
If KeyboardReleased(#PB_Key_Return)
PlaySound(1, #PB_Sound_MultiChannel)
Menu_GotoCurrent()
CurrentState = *ActiveMenu\Entries()\TargetState
*ActiveMenu.GameMenu = Menus(CurrentState)

View File

@ -1,5 +1,5 @@

Global DataPath.s = "../data/"
#DATA_PATH = "../data/"
; Global variables
Global Fullscreen = 0
@ -27,6 +27,6 @@ Enumeration 500
EndEnumeration
; Sounds
Global Dim Sounds.s(2)
Sounds(0) = DataPath + "sound/menu_change.wav"
Sounds(1) = DataPath + "sound/menu_select.wav"
Global Dim Sounds.i(2)
Sounds(0) = LoadSound(0, #DATA_PATH + "sound/menu_change.wav")
Sounds(1) = LoadSound(1, #DATA_PATH + "sound/menu_select.wav")

View File

@ -18,9 +18,6 @@ XIncludeFile "Functions.pbi"
XIncludeFile "Events.pbi"
; Initialize all the variables and stuff. I think we refactor this
; into a separate file if it gets messy.
GameStates("MAIN_MENU")\DrawFun = @DrawMenu()