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)))) ((obj . rest) obj))))
(when obj (when obj
(match ($ obj 'type) (match ($ obj 'type)
('brick ((or 'bomb 'brick)
($ obj 'explode)) ($ obj 'explode))
('player ('player
($ obj 'explode) ($ obj 'explode)
@ -388,6 +388,7 @@
($ countdown 2))) ($ countdown 2)))
(('alive?) ($ alive?)) (('alive?) ($ alive?))
(('describe) `(bomb ,($ position) ,($ countdown))) (('describe) `(bomb ,($ position) ,($ countdown)))
(('explode) ($ countdown 2))
(('collide other offset grid-info) (('collide other offset grid-info)
(when (eq? ($ other 'type) 'player) (when (eq? ($ other 'type) 'player)
(match ($ position) (match ($ position)