Add ^switched-emitter, test in level 4

This commit is contained in:
Juliana Sims 2024-05-22 15:28:42 -04:00
parent aa8a302fcb
commit 50b6c67db8
6 changed files with 50 additions and 2 deletions

View file

@ -316,6 +316,9 @@
(define (draw-clock-emitter pos)
(draw-tile context tileset 48 (vec2-x pos) (vec2-y pos)))
(define (draw-switched-emitter pos on?)
(draw-tile context tileset (if on? 48 47) (vec2-x pos) (vec2-y pos)))
(define (draw-floor-switch pos on?)
(draw-tile context tileset (if on? 25 24) (vec2-x pos) (vec2-y pos)))
@ -352,6 +355,7 @@
(('wall pos type) (draw-wall pos type))
(('block pos type) (draw-block pos type))
(('clock-emitter pos) #t) ; drawn via background
(('switched-emitter pos on?) (draw-switched-emitter pos on?))
(('floor-switch pos on?) (draw-floor-switch pos on?))
(('gem pos) (draw-gem pos))
(('ghost-gem pos) (draw-ghost-gem pos))