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

Add or gate, update level 4 to use all logic gates

Browse source
This commit is contained in:
Juliana Sims 2024-05-22 13:32:37 -04:00
parent c749f22fe8
commit 6b9edbca25
5 changed files with 81 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/compile-map.scm
View file

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