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

Remove some pks.

Browse source
This commit is contained in:
David Thompson 2024-05-22 08:01:14 -04:00
parent 5756844161
commit 68b427e387
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/game/actors.scm
View file

@ -255,14 +255,12 @@
('copper ('copper
;; TODO: Match other shapes? This only allows left-to-right ;; TODO: Match other shapes? This only allows left-to-right
;; circuit flow. ;; circuit flow.
(match (pk 'GRID ($ grid-info 'wireworld-neighbor-grid x y)) (match ($ grid-info 'wireworld-neighbor-grid x y)
(#('electron-head #f #f (#('electron-head #f #f
#f _ 'copper #f _ 'copper
'electron-head #f #f) 'electron-head #f #f)
(pk 'COOL)
($ state 'electron-head)) ($ state 'electron-head))
(_ ($ state 'copper))))) (_ ($ state 'copper))))))
(pk 'NEW-STATE ($ state)))
(('alive?) #t) (('alive?) #t)
(('describe) `(and-gate ,position)) (('describe) `(and-gate ,position))
(('collide other offset grid-info) #f))) (('collide other offset grid-info) #f)))