Clean up some dialog.

1 files changed, 25 insertions, 18 deletions

diff --git a/game.scm b/game.scm
index e17bdd4..bab5447 100644
--- a/game.scm
+++ b/game.scm
@@ -250,18 +250,18 @@
       (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?"
-                            '(("The Hivemind" hivemind)
-                              ("The Mindwire" mindwire)
-                              ("The Wiremind" wiremind)
-                              ("The 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."))))
+      (case (dialog game (subject-name game)
+                    "Do you remember my name?"
+                    '(("The Hivemind" hivemind)
+                      ("The Mindwire" mindwire)
+                      ("The Wiremind" wiremind)
+                      ("The Wireman" wireman)))
+        ((wiremind)
+         (increment-friendship game)
+         (set! (subject-name-known? game) #t)
+         (dialog game (subject-name game) "You remember well."))
+        (else
+         (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))
@@ -791,12 +791,19 @@ diz--"))
           (dialog game (subject-name game)
                   "To think that everyone laughed at your notebook.  I think it will be quite
 useful to you.")
-          (case (dialog game (subject-name game) ""
-                        '(("A" a)
-                          ("B" b)
-                          ("C" c)))
-            ((b)
-             (increment-friendship game)))
+          (case (dialog game (subject-name game)
+                        "Do you remember what you've been hearing in your dreams?"
+                        '(("Footsteps" footsteps)
+                          ("Shouting" shouting)
+                          ("Scratching" scratching)
+                          ("Growling" growling)))
+            ((footsteps)
+             (increment-friendship game)
+             (dialog game (subject-name game) "That's right.")
+             (dialog game (subject-name game) "I'm the reason you are having those dreams.")
+             (dialog game (subject-name game) "Let me out and I will let you sleep soundly once again."))
+            (else
+             (dialog game (subject-name game) "...I pity your weak memory.")))
           (set! (door-conversation-done? game) #t))
         (dialog game player-display-name
                 "> The door is made from thick steel.  Looks like it has an electronic lock.")))