diff options
Diffstat (limited to 'demo/platformer.scm')
| -rw-r--r-- | demo/platformer.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/demo/platformer.scm b/demo/platformer.scm index ff5caf7..3bad9bd 100644 --- a/demo/platformer.scm +++ b/demo/platformer.scm @@ -55,15 +55,17 @@ (load-sounds! '((jump . "demo/assets/jump.wav")))) create: (lambda (game) - (let ((scene (game-load-scene! game "demo/assets/level-0.tmx"))) - (scene-add-entity scene (make-player)) - (scene-camera-target-set! scene 'player))) + (game-scene-set! game + (chain (game-load-scene! game "demo/assets/level-0.tmx") + (scene-add-entity _ (make-player)) + (update-scene _ camera-target: 'player)))) update: (lambda (game dt) (let* ((input (game-input game)) (scene (game-scene game)) (tm (scene-tilemap scene)) (player (update-player (car (scene-entities scene)) input tm))) - (scene-entities-set! scene (list player)))))) + (game-scene-set! game + (update-scene scene entities: (list player))))))) (game-run! *game*) |