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)