SuperKamiGuru/foss-mmo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add physical gates and finish floor switches.

Browse source
This commit is contained in:
David Thompson 2024-05-21 17:28:57 -04:00
parent ba7b9ea9d8
commit 4c12ccc559
5 changed files with 157 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/compile-map.scm
View file

@ -554,6 +554,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
(define obj:clock-emitter 7)
(define obj:floor-switch 8)
(define obj:gem 9)
(define obj:gate 10)
(define (compile-environment-layer tile-map layer-name)
(let ((tw (tile-map-tile-width tile-map))
@ -595,8 +596,11 @@ the default ORIENTATION value of 'orthogonal' is supported."
("crate" (list x y obj:block:crate))
("copper" (list x y obj:block:copper))
(kind (error "unsupported block kind" kind))))
('floor-switch (list x y obj:floor-switch))
('floor-switch (list x y obj:floor-switch
(assq-ref properties 'target-x)
(assq-ref properties 'target-y)))
('gem (list x y obj:gem))
('gate (list x y obj:gate))
(_ (error "unsupported object type" type)))))
(object-layer-objects layer))))