Allow bombs to explode other bombs
This commit is contained in:
parent
ca4355ee4f
commit
dc76b74c2d
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue