diff options
Diffstat (limited to 'demo/topdown.scm')
| -rw-r--r-- | demo/topdown.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/demo/topdown.scm b/demo/topdown.scm index 7e5bd62..1bf6536 100644 --- a/demo/topdown.scm +++ b/demo/topdown.scm @@ -43,15 +43,17 @@ title: "Demo: Top-down Explorer" width: 600 height: 400 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)) (player (update-player (car (scene-entities scene)) input (scene-tilemap scene)))) - (scene-entities-set! scene (list player)))))) + (game-scene-set! game + (update-scene scene entities: (list player))))))) (game-run! *game*) |