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

Spawn ghost gems where gems used to be.

Browse source
This commit is contained in:
David Thompson 2024-05-22 18:34:29 -04:00
parent 2dc354229d
commit 111eb33429
6 changed files with 37 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
game.scm
View file

@ -150,7 +150,7 @@
(<= az bz))))))))))
(define (collected-gem? idx)
(not (memq idx *gems*)))
(memq idx *gems*))
(define (load-level! idx)
(set! *state* 'play)
@ -288,6 +288,11 @@
(define (draw-gem pos)
(draw-tile context tileset 28 (vec2-x pos) (vec2-y pos)))
(define (draw-ghost-gem pos)
(set-global-alpha! context 0.5)
(draw-tile context tileset 49 (vec2-x pos) (vec2-y pos))
(set-global-alpha! context 1.0))
(define (draw-gate pos open?)
(draw-tile context tileset (if open? 46 45) (vec2-x pos) (vec2-y pos)))
@ -315,6 +320,7 @@
(('clock-emitter pos) #t) ; drawn via background
(('floor-switch pos on?) (draw-floor-switch pos on?))
(('gem pos) (draw-gem pos))
(('ghost-gem pos) (draw-ghost-gem pos))
(('gate pos open?) (draw-gate pos open?))
(('and-gate pos state) (draw-logic-gate pos state 42))
(('or-gate pos state) (draw-logic-gate pos state 43))
@ -344,7 +350,8 @@
(fill-text context "OUCH... x_x" (/ game-width 2.0) (/ game-height 2.0)))))
(define (draw-win)
(set-fill-color! context "#x000000")
(set-fill-color! context "#000000")
(set-text-align! context "left")
(fill-text context "OMG YOU DID IT WOW CONGRATS" 32.0 120.0))
(define (draw prev-time)