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

7
game.scm
View file

@ -301,6 +301,10 @@
(define (draw-electric-switch pos on?)
(draw-tile context tileset (if on? 7 6) (vec2-x pos) (vec2-y pos)))
(define (draw-electron-warp pos state)
(draw-tile context tileset 71 (vec2-x pos) (vec2-y pos))
(draw-wire-state pos state))
(define (draw-object obj)
(match obj
(#f #f)
@ -315,7 +319,8 @@
(('and-gate pos state) (draw-logic-gate pos state 42))
(('or-gate pos state) (draw-logic-gate pos state 43))
(('xor-gate pos state) (draw-logic-gate pos state 44))
(('electric-switch pos on?) (draw-electric-switch pos on?))))
(('electric-switch pos on?) (draw-electric-switch pos on?))
(('electron-warp pos state) (draw-electron-warp pos state))))
(define (draw-background)
(let ((bg (level-background *level*))