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

6
modules/game/level.scm
View file

@ -37,7 +37,7 @@
(actor level-actor)
(player level-player))
(define (make-level width height background objects spawn-gem?)
(define (make-level width height background objects collected-gem?)
(let ((level* (spawn ^level width height))
(background* (make-vector (* width height))))
;; Unpack background tile data.
@ -70,7 +70,9 @@
(8 (let ((target-x (bytevector-u8-ref objects (+ i 3)))
(target-y (bytevector-u8-ref objects (+ i 4))))
(spawn ^floor-switch x y target-x target-y)))
(9 (and spawn-gem? (spawn ^gem x y)))
(9 (if collected-gem?
(spawn ^ghost-gem x y)
(spawn ^gem x y)))
(10 (spawn ^gate x y))
(11 (spawn ^and-gate x y))
(12 (let ((target-x (bytevector-u8-ref objects (+ i 3)))