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

Fix bug where gem could be marked as collected even if move was undone.

Browse source
This commit is contained in:
David Thompson 2024-05-24 13:23:36 -04:00
parent 3503aeb00b
commit 502b8262e5
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
game.scm
View file

@ -196,6 +196,10 @@
(define (next-level!)
(let ((idx (+ *level-idx* 1)))
(pk 'next-level idx)
;; TODO: Maybe show a little achievement popup when all gems
;; are collected?
(when (with-goblins ($ (level-actor *level*) 'gem-collected?))
(set! *gems* (cons *level-idx* *gems*)))
(set! *level-idx* idx)
(if (< idx (vector-length levels))
(begin
@ -272,10 +276,7 @@
(('player-death x y)
(play-sound-effect audio:die))
(('pickup x y)
(play-sound-effect audio:pickup)
;; TODO: Maybe show a little achievement popup when all gems
;; are collected?
(set! *gems* (cons *level-idx* *gems*)))
(play-sound-effect audio:pickup))
(('emit x y)
(play-sound-effect audio:emit))
(('emitter-on x y)