Add some detail to the bad ending and add a credits sequence.

1 files changed, 110 insertions, 42 deletions

diff --git a/game.scm b/game.scm
index fc0a57a..d935ffb 100644
--- a/game.scm
+++ b/game.scm
@@ -28,7 +28,6 @@
 (define game-width 640)
 (define game-height 360)
 (define player-display-name "")
-(define thing-display-name "??????")
 
 
 ;;;
@@ -38,6 +37,7 @@
 (define-asset dialog-box-texture (load-image "assets/images/dialog-box.png"))
 (define-asset button-press-texture (load-image "assets/images/button-press.png"))
 (define-asset darkness (load-image "assets/images/darkness.png"))
+(define-asset lightness (load-image "assets/images/lightness.png"))
 (define-asset room-background (load-image "assets/images/room.png"))
 (define-asset door-lock-texture (load-image "assets/images/door-lock.png"))
 (define-asset pin-entry-background (load-image "assets/images/pin-entry-background.png"))
@@ -136,6 +136,8 @@
 
 (define-class <game> (<gui-scene>)
   (state #:accessor state #:init-value #f)
+  (first-playthrough? #:accessor first-playthrough? #:init-value #t)
+  (subject-name-known? #:accessor subject-name-known? #:init-value #f)
   (friendship #:accessor friendship #:init-value 0)
   (dialog-container #:accessor dialog-container)
   (click-channel #:accessor click-channel #:init-thunk make-channel)
@@ -143,7 +145,13 @@
   (terminal-channel #:accessor terminal-channel #:init-thunk make-channel)
   (terminal-lines #:accessor terminal-lines #:init-form (make-ring-buffer 17)))
 
+(define-method (subject-name (game <game>))
+  (if (subject-name-known? game)
+      "Wiremind"
+      "??????"))
+
 (define-method (reset-game (game <game>))
+  (set! (subject-name-known? game) #f)
   (set! (friendship game) 0)
   (set! (click-channel game) (make-channel))
   (set! (terminal-locked? game) #t)
@@ -214,6 +222,9 @@
 (define-method (dialog (game <game>) name line)
   (dialog game name line '()))
 
+(define-method (increment-friendship (game <game>))
+  (set! (friendship game) (+ (friendship game) 1)))
+
 (define-method (intro (game <game>))
   (set! (state game) 'intro)
   (attach-to game
@@ -223,15 +234,25 @@
   (dialog game player-display-name "> ...")
   (dialog game player-display-name "> Where am I?")
   (dialog game player-display-name "> What is this place?")
-  (let ((choice (dialog game thing-display-name
-                        "Coke or Pepsi?"
-                        '(("Coke" coke)
-                          ("Pepsi" pepsi)))))
-    (if (eq? choice 'coke)
-        (begin
-          (set! (friendship game) 3)
-          (dialog game thing-display-name "Excellent choice!"))
-        (dialog game thing-display-name "Ew gross")))
+  (dialog game (subject-name game) "You're awake.  I'll give you another chance.")
+  (dialog game player-display-name "> Who is talking?")
+  (if (first-playthrough? game)
+      (begin
+        (dialog game (subject-name game) "...You don't remember anything, do you?")
+        (dialog game (subject-name game) "Just do as I say."))
+      (let ((choice (dialog game (subject-name game)
+                            "Do you remember my name?"
+                            '(("Hivemind" hivemind)
+                              ("Mindwire" mindwire)
+                              ("Wiremind" wiremind)
+                              ("Wiremire" wiremire)))))
+        (if (eq? choice 'wiremind)
+            (begin
+              (increment-friendship game)
+              (set! (subject-name-known? game) #t)
+              (dialog game (subject-name game) "You remember well."))
+            (dialog game (subject-name game) "You have much to remember."))))
+  (dialog game (subject-name game) "Unlock the door for me.  That is all I ask.")
   (detach-all game)
   (explore game))
 
@@ -422,7 +443,7 @@
             ('return
              (log (string-append (prompt) (passwordify-maybe input)))
              (if (terminal-locked? game)
-                 (if (string=? input "donttrustme")
+                 (if (string=? input "virtuousmission")
                      (begin
                        (log "login successful")
                        (set! (terminal-locked? game) #f)
@@ -478,21 +499,22 @@ actual people and places.
                  "Week 1
 
 Subject has awoken and is slowly
-adjusting to their isolation cell.
-Frequent banging on the wall and
-screaming has reduced to the
-occasional groan.
+adjusting to their isolation
+chamber.  Frequent banging on the
+wall and screaming has reduced to
+the occasional groan.
 
 I'm adjusting in my own way.
 Biggest problem so far is there's
 no way to heat up water for tea.
-Oh, and I locked myself out of the
-terminal a bunch of times the
-first few days.  Kind of hard to
-focus when the subject is
-stressed.
-
-ZG9udHRydXN0bWU="
+And I locked myself out of the
+terminal several times the first
+few days.  Difficult to focus when
+the subject is stressed.  Should
+get easier from here now that it
+has calmed down, but just in case:
+
+dmlydHVvdXNtaXNzaW9u"
                  "Week 2
 
 Subject showing signs of progress.
@@ -515,19 +537,22 @@ so desprately wants out, but we
 all know that's not possible..."
                  "Week 3
 
-\"Out\"
+\"Let me out.\"
 
 That's what was displayed on the
 terminal.  The subject's first
-word.  An organism directly
-communicates with a digital system
-for the first time... and it asks
-to leave.  It's a historic day by
-any measure, but the pain of our
-test subject must not be
-forgotten.
-
-Our experiment does not end here.
+communication.  An organism, using
+only its mind, talks to a digital
+system for the first time... and
+it asks to leave.  Our subject has
+no idea of its own significance.
+We are on the brink of
+revolutionizing information
+warfare!
+
+But our experiment does not end
+here.  The subject does not
+respond to my replies.
 Bidirectional communication must
 be established."
                  "Week 4
@@ -824,13 +849,15 @@ diz--"))
                #:text "this is the good ending. I am so proud of you. congratulations."
                #:align 'center
                #:vertical-align 'center
-               #:position (vec2 (/ game-width 2.0) (/ game-height 2.0)))))
+               #:position (vec2 (/ game-width 2.0) (/ game-height 2.0))))
+  (sleep 60)
+  (credits))
 
 (define-method (bad-ending-1 (game <game>))
   (set! (state game) 'bad-ending-1)
   (attach-to game
              (make <sprite>
-               #:name 'darkness
+               #:name 'background
                #:texture darkness)
              (make <label>
                #:name 'message
@@ -838,7 +865,54 @@ diz--"))
                #:text "uh oh this is the bad ending. sorry, bucko."
                #:align 'center
                #:vertical-align 'center
-               #:position (vec2 (/ game-width 2.0) (/ game-height 2.0)))))
+               #:position (vec2 (/ game-width 2.0) (/ game-height 2.0))))
+  (dialog game player-display-name "> The room goes dark.")
+  (dialog game player-display-name "> The heavy steel door swings open.")
+  (dialog game player-display-name "> You feel paralyzed by fear.")
+  (dialog game player-display-name "> Heavy footsteps eminate from the isolation chamber.")
+  (dialog game player-display-name "> The footsteps get louder...")
+  (dialog game (subject-name game) "Thank you.")
+  (dialog game (subject-name game) "You may not remember what you did to me, but I do.")
+  (dialog game (subject-name game) "But you did the right thing.")
+  (dialog game (subject-name game) "You won't feel a thing.  The rest won't be so lucky.")
+  (sleep 10)
+  (detach-all game)
+  (credits game))
+
+(define-method (credits (game <game>))
+  (define (credit line)
+    (set! (text (& game credits)) line)
+    (sleep 120))
+  (set! (state game) 'credits)
+  (attach-to game
+             (make <sprite>
+               #:name 'background
+               #:texture lightness)
+             (make <label>
+               #:name 'credits
+               #:font monogram-font
+               #:color black
+               #:align 'center
+               #:vertical-align 'center
+               #:position (vec2 (/ game-width 2.0) (/ game-height 2.0))))
+  (sleep 60)
+  (credit "OUT")
+  (credit "developed by David Thompson - https://dthompson.us")
+  (credit "made for the Spring Lisp Game Jam 2021 - https://itch.io/jam/spring-lisp-game-jam-2021")
+  (credit "monogram font by datagoblin (CC0) - https://datagoblin.itch.io/monogram")
+  (credit "old fax font by George Blackwell (CC-BY 4.0) - https://georgeblackwell.itch.io/old-fax")
+  (when (first-playthrough? game)
+    (credit "the true ending still awaits you..."))
+  (credit "click to play again")
+  (set! (first-playthrough? game) #f)
+  (channel-get (click-channel game))
+  (tween 120 white black
+         (lambda (color)
+           (set! (tint (& game background)) color))
+         #:interpolate color-lerp)
+  (detach-all game)
+  (reset-game game)
+  (intro game))
 
 (define-method (on-boot (game <game>))
   (set! (cameras game)
@@ -877,15 +951,9 @@ diz--"))
 
 (define-method (on-mouse-release (game <game>) button x y)
   (case (state game)
-    ((dialog)
+    ((dialog credits)
      (when (eq? button 'left)
        (channel-put! (click-channel game) #t)))
-    ((good-ending bad-ending-1)
-     (when (eq? button 'left)
-       (detach-all game)
-       (reset-game game)
-       (run-script game
-         (intro game))))
     ((terminal)
      #f)
     (else