A few names for unnamed actors make it clear which actor is faulting
This commit is contained in:
parent
bbcb8a3b80
commit
c85f05ced1
|
@ -672,7 +672,7 @@
|
||||||
;; kills the dataspace.
|
;; kills the dataspace.
|
||||||
|
|
||||||
(define (wait-for-level-termination)
|
(define (wait-for-level-termination)
|
||||||
(spawn
|
(spawn #:name 'wait-for-level-termination
|
||||||
(assert (outbound (level-running)))
|
(assert (outbound (level-running)))
|
||||||
(on (retracted (game-piece-configuration player-id _ _ _))
|
(on (retracted (game-piece-configuration player-id _ _ _))
|
||||||
(log-info "Player died! Terminating level.")
|
(log-info "Player died! Terminating level.")
|
||||||
|
@ -696,7 +696,8 @@
|
||||||
(define scale (if (> level-aspect scene-aspect) ;; level is wider, proportionally, than scene
|
(define scale (if (> level-aspect scene-aspect) ;; level is wider, proportionally, than scene
|
||||||
(/ level-width scene-width)
|
(/ level-width scene-width)
|
||||||
(/ level-height scene-height)))
|
(/ level-height scene-height)))
|
||||||
(spawn (assert (outbound
|
(spawn #:name 'background-image
|
||||||
|
(assert (outbound
|
||||||
(outbound
|
(outbound
|
||||||
(sprite 10
|
(sprite 10
|
||||||
`((scale ,(* scene-width scale)
|
`((scale ,(* scene-width scale)
|
||||||
|
@ -712,7 +713,8 @@
|
||||||
#:scene [scene grassland-backdrop]
|
#:scene [scene grassland-backdrop]
|
||||||
actions-thunk)
|
actions-thunk)
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(dataspace (when scene (spawn-background-image level-size-vec scene))
|
(dataspace #:name 'level-dataspace
|
||||||
|
(when scene (spawn-background-image level-size-vec scene))
|
||||||
(spawn-display-controller level-size-vec)
|
(spawn-display-controller level-size-vec)
|
||||||
(spawn-physics-engine)
|
(spawn-physics-engine)
|
||||||
(spawn-player-avatar initial-player-x initial-player-y)
|
(spawn-player-avatar initial-player-x initial-player-y)
|
||||||
|
@ -763,7 +765,8 @@
|
||||||
(define (spawn-numbered-level level-number)
|
(define (spawn-numbered-level level-number)
|
||||||
(if (< level-number (length levels))
|
(if (< level-number (length levels))
|
||||||
((list-ref levels level-number))
|
((list-ref levels level-number))
|
||||||
(spawn (assert (outbound
|
(spawn #:name 'victory-message
|
||||||
|
(assert (outbound
|
||||||
(let ((message (text "You won!" 72 "red")))
|
(let ((message (text "You won!" 72 "red")))
|
||||||
(simple-sprite 0
|
(simple-sprite 0
|
||||||
10
|
10
|
||||||
|
@ -812,5 +815,6 @@
|
||||||
(spawn-keyboard-integrator)
|
(spawn-keyboard-integrator)
|
||||||
(spawn-scene-manager)
|
(spawn-scene-manager)
|
||||||
(spawn-gl-2d-driver #:width 600 #:height 400)
|
(spawn-gl-2d-driver #:width 600 #:height 400)
|
||||||
(dataspace (spawn-score-keeper)
|
(dataspace #:name 'game-dataspace
|
||||||
|
(spawn-score-keeper)
|
||||||
(spawn-level-spawner 0))
|
(spawn-level-spawner 0))
|
||||||
|
|
Loading…
Reference in New Issue