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

Add level progression.

Browse source
This commit is contained in:
David Thompson 2024-05-20 13:34:59 -04:00
parent 99d7643c47
commit ce0c002e8b
8 changed files with 211 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/game/level.scm
View file

@ -27,13 +27,16 @@
(y (bytevector-u8-ref objects (+ i 1)))
(id (bytevector-u8-ref objects (+ i 2))))
(if (= id 3) ; player-spawn
($ level* 'warp-player x y)
(begin
(pk 'spawn-player x y)
($ level* 'warp-player x y))
(let ((obj (match id
(1 (spawn ^wall 'brick))
(2 (spawn ^wall 'copper))
(4 (spawn ^exit))
(5 (spawn ^block 'copper))
(6 (spawn ^clock-emitter 4))
(6 (spawn ^block 'crate))
(7 (spawn ^clock-emitter 4))
(id (error "invalid level object" id)))))
($ level* 'set-object x y obj))))
(lp (+ i 3)))))