diff --git a/assets/sounds/explosion.wav b/assets/sounds/explosion.wav new file mode 100644 index 0000000..2a1ad28 Binary files /dev/null and b/assets/sounds/explosion.wav differ diff --git a/game.scm b/game.scm index 146482f..04532d8 100644 --- a/game.scm +++ b/game.scm @@ -94,6 +94,7 @@ (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")) +(define audio:explosion (load-sound-effect "explosion")) ;; Game state (define *state* #f) @@ -316,6 +317,7 @@ (('receive-electron x y) (play-sound-effect audio:warp 0.25)) (('explosion x y) + (play-sound-effect audio:explosion) (pk 'BOOM!)) (_ (values))) (lp rest))))