diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2021-04-22 11:09:52 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-04-22 11:09:52 -0400 |
commit | 561e9db33599f0929a727529ba211754e572f4fc (patch) | |
tree | e0bae1d5b81a9002dadd83df5b06051b51ae616d | |
parent | 6ed676f681ac6eb8e2aa601a10508b360c716756 (diff) |
Fix bug when transitioning to endings.
-rw-r--r-- | game.scm | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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 |