Add ^switched-emitter, test in level 4
This commit is contained in:
parent
aa8a302fcb
commit
50b6c67db8
6 changed files with 50 additions and 2 deletions
4
game.scm
4
game.scm
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue