From dc76b74c2da99eba895841f36ef0cc7e871c5077 Mon Sep 17 00:00:00 2001
From: Juliana Sims <juli@incana.org>
Date: Fri, 24 May 2024 19:54:43 -0400
Subject: [PATCH] Allow bombs to explode other bombs

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

diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index 5403c12..730ec55 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -371,7 +371,7 @@
                              ((obj . rest) obj))))
                   (when obj
                     (match ($ obj 'type)
-                      ('brick
+                      ((or 'bomb 'brick)
                        ($ obj 'explode))
                       ('player
                        ($ obj 'explode)
@@ -388,6 +388,7 @@
        ($ countdown 2)))
     (('alive?) ($ alive?))
     (('describe) `(bomb ,($ position) ,($ countdown)))
+    (('explode) ($ countdown 2))
     (('collide other offset grid-info)
      (when (eq? ($ other 'type) 'player)
        (match ($ position)