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

Add electron warp terminals.

Browse source
This commit is contained in:
David Thompson 2024-05-22 12:35:56 -04:00
parent 747a1d285a
commit 9b88cb19c0
6 changed files with 154 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/compile-map.scm
View file

@ -306,7 +306,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
(match type
((or 'string 'file) value)
('bool (not (string=? value "false")))
((or 'int 'float) (string->number value))
((or 'int 'float 'object) (string->number value))
('color
(make-color (parse-color-channel value 3)
(parse-color-channel value 5)
@ -560,6 +560,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:electron-warp 14)
(define obj:or-gate 15)
(define (compile-environment-layer tile-map layer-name)
@ -613,6 +614,9 @@ the default ORIENTATION value of 'orthogonal' is supported."
('electric-switch (list x y obj:electric-switch
(assq-ref properties 'target-x)
(assq-ref properties 'target-y)))
('electron-warp (list x y obj:electron-warp
(assq-ref properties 'target-x)
(assq-ref properties 'target-y)))
(_ (error "unsupported object type" type)))))
(object-layer-objects layer))))