diff --git a/assets/sounds/floor-switch.wav b/assets/sounds/floor-switch.wav new file mode 100644 index 0000000..94022fd Binary files /dev/null and b/assets/sounds/floor-switch.wav differ diff --git a/game.scm b/game.scm index a32ba18..8319f0b 100644 --- a/game.scm +++ b/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)