From 2151abef57189796287ffd33c17e9b1f8a3db667 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 23 May 2024 16:53:23 -0400 Subject: [PATCH] Fade out/in when resetting game after credits. --- game.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/game.scm b/game.scm index 9affae4..4c160df 100644 --- a/game.scm +++ b/game.scm @@ -225,9 +225,14 @@ (load-level! *level-idx*))))) (define (reset-game!) - (set! *level-idx* 0) - (save-game!) - (load-level! 0)) + (run-script + (lambda () + (set! *level-idx* 0) + (save-game!) + (set! *state* 'interstitial) + (show-effect! (make-fade-out+in-effect 2.0)) + (wait 60) + (load-level! 0)))) ;; Update loop (define (move-player dir)