Add bombs and explodable bricks

This commit is contained in:
Juliana Sims 2024-05-24 12:46:15 -04:00
parent 23f034a868
commit feb5b8f3d6
No known key found for this signature in database
GPG key ID: 2A00BD4B0090029E
6 changed files with 86 additions and 2 deletions

View file

@ -563,6 +563,8 @@ the default ORIENTATION value of 'orthogonal' is supported."
(define obj:electron-warp 14)
(define obj:or-gate 15)
(define obj:switched-emitter 16)
(define obj:bomb 17)
(define obj:brick 18)
(define (compile-environment-layer tile-map layer-name)
(let ((tw (tile-map-tile-width tile-map))
@ -634,6 +636,8 @@ the default ORIENTATION value of 'orthogonal' is supported."
('electron-warp (list x y obj:electron-warp
(assq-ref properties 'target-x)
(assq-ref properties 'target-y)))
('bomb (list x y obj:bomb))
('brick (list x y obj:brick))
(_ (error "unsupported object type" type)))))
(object-layer-objects layer))))