Add floor switch sound effect.

This commit is contained in:
David Thompson 2024-05-23 09:01:47 -04:00
parent d4065aa2bf
commit 0aa32798ae
2 changed files with 3 additions and 0 deletions

Binary file not shown.

View file

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