Add floor switch sound effect.
This commit is contained in:
parent
d4065aa2bf
commit
0aa32798ae
2 changed files with 3 additions and 0 deletions
BIN
assets/sounds/floor-switch.wav
Normal file
BIN
assets/sounds/floor-switch.wav
Normal file
Binary file not shown.
3
game.scm
3
game.scm
|
@ -69,6 +69,7 @@
|
|||
(define audio:die (load-sound-effect "die"))
|
||||
(define audio:gate (load-sound-effect "gate"))
|
||||
(define audio:warp (load-sound-effect "warp"))
|
||||
(define audio:floor-switch (load-sound-effect "floor-switch"))
|
||||
(define audio:electric-switch-on (load-sound-effect "electric-switch-on"))
|
||||
(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
|
||||
|
||||
|
@ -230,6 +231,8 @@
|
|||
(set! *gems* (cons *level-idx* *gems*)))
|
||||
((or ('gate-open x y) ('gate-close x y))
|
||||
(play-sound-effect audio:gate))
|
||||
((or ('floor-switch-on x y) ('floor-switch-off x y))
|
||||
(play-sound-effect audio:floor-switch))
|
||||
(('electric-switch-on x y)
|
||||
(play-sound-effect audio:electric-switch-on))
|
||||
(('electric-switch-off x y)
|
||||
|
|
Loading…
Add table
Reference in a new issue