Start implement the sound thingy

This commit is contained in:
Aaron 2011-08-20 18:18:52 +02:00
parent c5e16f150f
commit 9a39e7b66c
5 changed files with 9 additions and 2 deletions

BIN
data/sound/menu_change.wav Normal file

Binary file not shown.

BIN
data/sound/menu_select.wav Normal file

Binary file not shown.

View file

@ -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

View file

@ -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"

View file

@ -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