Fade out/in when resetting game after credits.

2024-05-23 16:53:23 -04:00 · 2024-05-23 16:53:23 -04:00 · 2151abef57
commit 2151abef57
parent fb96e0e913
1 changed files with 8 additions and 3 deletions
--- 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)