Spawn ghost gems where gems used to be.

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

View file

@ -635,7 +635,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
`((define-module ,module-name
#:use-module (game level)
#:export (,proc-name))
(define (,proc-name spawn-gem?)
(define (,proc-name collected-gem?)
(make-level ,(tile-map-width tile-map)
,(tile-map-height tile-map)
,(compile-tile-layer tile-map "background")
@ -643,5 +643,5 @@ the default ORIENTATION value of 'orthogonal' is supported."
(append
(compile-environment-layer tile-map "background")
(compile-object-layer tile-map "objects")))
spawn-gem?))))))
collected-gem?))))))
(_ (error "file name expected")))