Add xor and level 4

2024-05-22 12:07:41 -04:00 · 2024-05-22 12:07:41 -04:00 · a49808d70d
commit a49808d70d
parent dc05a9cd05
7 changed files with 93 additions and 3 deletions
--- a/modules/game/level.scm
+++ b/modules/game/level.scm
@ -46,6 +46,7 @@
                        (12 (let ((target-x (bytevector-u8-ref objects (+ i 3)))
                                  (target-y (bytevector-u8-ref objects (+ i 4))))
                              (spawn ^electric-switch x y target-x target-y)))
+                        (13 (spawn ^xor-gate x y))
                        (id (error "invalid level object" id))))
                 (i* (+ i (match id
                            ;; floor-switch or electric-switch