Start implement the sound thingy
This commit is contained in:
parent
c5e16f150f
commit
9a39e7b66c
5 changed files with 9 additions and 2 deletions
BIN
data/sound/menu_change.wav
Normal file
BIN
data/sound/menu_change.wav
Normal file
Binary file not shown.
BIN
data/sound/menu_select.wav
Normal file
BIN
data/sound/menu_select.wav
Normal file
Binary file not shown.
|
@ -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
|
||||
|
|
|
@ -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"
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue