Spawn ghost gems where gems used to be.
This commit is contained in:
parent
2dc354229d
commit
111eb33429
6 changed files with 37 additions and 6 deletions
|
@ -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")))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue