From d2eb41f6f323bca582e0b0cb76b8e0ddcc98cb51 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 25 May 2024 20:21:37 -0400
Subject: [PATCH] Shake screen when bomb explodes.

---
 game.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/game.scm b/game.scm
index 1e991a0..13baae4 100644
--- a/game.scm
+++ b/game.scm
@@ -319,8 +319,9 @@
                 (('receive-electron x y)
                  (play-sound-effect audio:warp 0.25))
                 (('explosion x y)
+                 ;; TODO: Particles!
                  (play-sound-effect audio:explosion)
-                 (pk 'BOOM!))
+                 (show-effect! (make-screen-shake-effect 0.2)))
                 (_ (values)))
               (lp rest))))
          (update-objects!)