Add bombs and explodable bricks
This commit is contained in:
parent
23f034a868
commit
feb5b8f3d6
6 changed files with 86 additions and 2 deletions
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue