diff options
Diffstat (limited to '2d')
| -rw-r--r-- | 2d/game-loop.scm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/2d/game-loop.scm b/2d/game-loop.scm index 994167c..aeb8889 100644 --- a/2d/game-loop.scm +++ b/2d/game-loop.scm @@ -52,6 +52,7 @@ (define game-fps 0) (define game-running #f) (define game-scene #f) +(define game-next-scene #f) ;;; ;;; Event Handling @@ -183,7 +184,17 @@ INPUT, OUTPUT, and ERROR ports." "Execute a thunk from the REPL is there is one." (unless (mvar-empty? repl-input-mvar) (and-let* ((vals (try-take-mvar repl-input-mvar))) - (apply run-repl-thunk vals)))) + (apply run-repl-thunk vals)))) + +;;; +;;; Scene management +;;; + +(define (set-game-scene scene) + (when game-scene + (scene-trigger game-scene 'stop)) + (scene-trigger scene 'start) + (set! game-scene scene)) ;;; ;;; Game Loop @@ -211,7 +222,7 @@ INPUT, OUTPUT, and ERROR ports." (game-resolution game) (game-fullscreen? game)) (set! game-running #t) - (set! game-scene ((game-first-scene game))) + (set-game-scene ((game-first-scene game))) (spawn-server) (agenda-schedule show-fps) (let ((time (SDL:get-ticks))) |