Allow bombs to explode other bombs

This commit is contained in:
Juliana Sims 2024-05-24 19:54:43 -04:00
parent ca4355ee4f
commit dc76b74c2d
No known key found for this signature in database
GPG key ID: 2A00BD4B0090029E

View file

@ -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)