diff options
Diffstat (limited to 'demo/platformer.scm')
| -rw-r--r-- | demo/platformer.scm | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/demo/platformer.scm b/demo/platformer.scm index 6e854fe..c11c390 100644 --- a/demo/platformer.scm +++ b/demo/platformer.scm @@ -40,24 +40,24 @@ (define *game* (make-game - title: "Demo: Platformer" width: 600 height: 400 - debug?: +debug?+ - - preload: (lambda (game) - (init-audio!) - (load-sounds! '((jump . "demo/assets/jump.wav")))) - - create: (lambda (game) - (let* ((s0 (game-load-scene! game "demo/assets/level-0.tmx")) - (s1 (scene-add-entity s0 (make-player))) - (s2 (update-scene s1 camera-target: 'player))) - (game-scene-set! game s2))) - - update: (lambda (game dt) - (let* ((input (game-input game)) - (scene (game-scene game)) - (player (update-player (car (scene-entities scene)) input))) - (game-scene-set! game - (update-scene scene entities: (list player))))))) + title: "Demo: Platformer" width: 600 height: 400 + debug?: +debug?+ + + preload: (lambda (game) + (init-audio!) + (load-sounds! '((jump . "demo/assets/jump.wav")))) + + create: (lambda (game) + (let* ((s0 (game-load-scene! game "demo/assets/level-0.tmx")) + (s1 (scene-add-entity s0 (make-player))) + (s2 (update-scene s1 camera-target: 'player))) + (game-scene-set! game s2))) + + update: (lambda (game dt) + (let* ((input (game-input game)) + (scene (game-scene game)) + (player (update-player (car (scene-entities scene)) input))) + (game-scene-set! game + (update-scene scene entities: (list player))))))) (game-run! *game*) |