diff --git a/assets/sounds/emit.wav b/assets/sounds/emit.wav new file mode 100644 index 0000000..0728005 Binary files /dev/null and b/assets/sounds/emit.wav differ diff --git a/game.scm b/game.scm index 8319f0b..7493fab 100644 --- a/game.scm +++ b/game.scm @@ -66,6 +66,7 @@ (define audio:no (load-sound-effect "no")) (define audio:exit (load-sound-effect "exit")) (define audio:pickup (load-sound-effect "pickup")) +(define audio:emit (load-sound-effect "emit")) (define audio:die (load-sound-effect "die")) (define audio:gate (load-sound-effect "gate")) (define audio:warp (load-sound-effect "warp")) @@ -229,6 +230,8 @@ ;; TODO: Maybe show a little achievement popup when all gems ;; are collected? (set! *gems* (cons *level-idx* *gems*))) + (('emit x y) + (play-sound-effect audio:emit)) ((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)) diff --git a/modules/game/actors.scm b/modules/game/actors.scm index bc8b363..6ce8ba5 100644 --- a/modules/game/actors.scm +++ b/modules/game/actors.scm @@ -134,6 +134,7 @@ (let ((t ($ timer))) (cond ((= (modulo t interval) 0) + ($ grid-info 'append-event `(emit ,x ,y)) 'electron-head) ((= (modulo t interval) 1) 'electron-tail)