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

Add xor and level 4

Browse source
This commit is contained in:
Juliana Sims 2024-05-22 12:07:41 -04:00
parent dc05a9cd05
commit a49808d70d
7 changed files with 93 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/compile-map.scm
View file

@ -557,6 +557,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
(define obj:gate 10)
(define obj:and-gate 11)
(define obj:electric-switch 12)
(define obj:xor-gate 13)
(define (compile-environment-layer tile-map layer-name)
(let ((tw (tile-map-tile-width tile-map))
@ -604,6 +605,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
('gem (list x y obj:gem))
('gate (list x y obj:gate))
('and-gate (list x y obj:and-gate))
('xor-gate (list x y obj:xor-gate))
('electric-switch (list x y obj:electric-switch
(assq-ref properties 'target-x)
(assq-ref properties 'target-y)))