Add sound effects for switched emitters.

This commit is contained in:
David Thompson 2024-05-23 15:07:48 -04:00
parent ade893c45a
commit 65076c40f3
4 changed files with 11 additions and 2 deletions

View file

@ -70,6 +70,8 @@
(define audio:exit (load-sound-effect "exit"))
(define audio:pickup (load-sound-effect "pickup"))
(define audio:emit (load-sound-effect "emit"))
(define audio:emitter-on (load-sound-effect "emitter-on"))
(define audio:emitter-off (load-sound-effect "emitter-off"))
(define audio:die (load-sound-effect "die"))
(define audio:gate (load-sound-effect "gate"))
(define audio:warp (load-sound-effect "warp"))
@ -258,6 +260,10 @@
(set! *gems* (cons *level-idx* *gems*)))
(('emit x y)
(play-sound-effect audio:emit))
(('emitter-on x y)
(play-sound-effect audio:emitter-on))
(('emitter-off x y)
(play-sound-effect audio:emitter-off))
(('gate-open x y)
(play-sound-effect audio:gate))
(('gate-close x y)