diff --git a/syndicate/examples/gl-2d-platformer.rkt b/syndicate/examples/gl-2d-platformer.rkt index 8c0693e..c96910d 100644 --- a/syndicate/examples/gl-2d-platformer.rkt +++ b/syndicate/examples/gl-2d-platformer.rkt @@ -672,7 +672,7 @@ ;; kills the dataspace. (define (wait-for-level-termination) - (spawn + (spawn #:name 'wait-for-level-termination (assert (outbound (level-running))) (on (retracted (game-piece-configuration player-id _ _ _)) (log-info "Player died! Terminating level.") @@ -696,7 +696,8 @@ (define scale (if (> level-aspect scene-aspect) ;; level is wider, proportionally, than scene (/ level-width scene-width) (/ level-height scene-height))) - (spawn (assert (outbound + (spawn #:name 'background-image + (assert (outbound (outbound (sprite 10 `((scale ,(* scene-width scale) @@ -712,7 +713,8 @@ #:scene [scene grassland-backdrop] actions-thunk) (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-physics-engine) (spawn-player-avatar initial-player-x initial-player-y) @@ -763,7 +765,8 @@ (define (spawn-numbered-level level-number) (if (< level-number (length levels)) ((list-ref levels level-number)) - (spawn (assert (outbound + (spawn #:name 'victory-message + (assert (outbound (let ((message (text "You won!" 72 "red"))) (simple-sprite 0 10 @@ -812,5 +815,6 @@ (spawn-keyboard-integrator) (spawn-scene-manager) (spawn-gl-2d-driver #:width 600 #:height 400) -(dataspace (spawn-score-keeper) +(dataspace #:name 'game-dataspace + (spawn-score-keeper) (spawn-level-spawner 0))