From 561e9db33599f0929a727529ba211754e572f4fc Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 22 Apr 2021 11:09:52 -0400 Subject: Fix bug when transitioning to endings. --- game.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'game.scm') diff --git a/game.scm b/game.scm index 7c23916..b415d3d 100644 --- a/game.scm +++ b/game.scm @@ -548,8 +548,7 @@ line before I need to wrap it?" (set! (tint (& game explore-group terminal sprite)) color) (set! (tint (& game explore-group fridge sprite)) color) (set! (tint (& game explore-group window sprite)) color) - (set! (tint (& game explore-group - notebook sprite)) color)) + (set! (tint (& game explore-group notebook sprite)) color)) (define (fade-in) (tween 60 black white tint-all #:interpolate color-lerp)) @@ -567,7 +566,9 @@ line before I need to wrap it?" (let ((g (& game explore-group))) (detach g) (if (string=? (pin-entry game) "314159") - (end-game) + (begin + (attach-to game g) + (end-game)) (begin (attach-to game g) (dialog game player-display-name -- cgit v1.2.3