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

Add xor and level 4

Browse source
This commit is contained in:
Juliana Sims 2024-05-22 12:07:41 -04:00
parent dc05a9cd05
commit a49808d70d
7 changed files with 93 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
game.scm
View file

@ -30,6 +30,7 @@
(game levels level-1)
(game levels level-2)
(game levels level-3)
(game levels level-4)
(game tileset)
(goblins core)
(hoot bytevectors)
@ -83,7 +84,8 @@
(vector
load-level-1
load-level-2
load-level-3))
load-level-3
load-level-4))
(define *level-idx* #f)
(define *gems* #f)
(define *level* #f)
@ -296,6 +298,9 @@
(define (draw-and-gate pos)
(draw-tile context tileset 42 (vec2-x pos) (vec2-y pos)))
(define (draw-xor-gate pos)
(draw-tile context tileset 44 (vec2-x pos) (vec2-y pos)))
(define (draw-electric-switch pos on?)
(draw-tile context tileset (if on? 7 6) (vec2-x pos) (vec2-y pos)))
@ -311,6 +316,7 @@
(('gem pos) (draw-gem pos))
(('gate pos open?) (draw-gate pos open?))
(('and-gate pos) (draw-and-gate pos))
(('xor-gate pos) (draw-xor-gate pos))
(('electric-switch pos on?) (draw-electric-switch pos on?))))
(define (draw-background)