diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2021-04-23 21:51:58 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-04-23 21:51:58 -0400 |
commit | c3f4dadccd78e5ec1cb7ad4d8c1f3e3502313df8 (patch) | |
tree | ca94f319bf4857642459235add4aa25cfa44d020 | |
parent | 2d4f62a1fc8afc908e491b67d5593d4ac106f117 (diff) |
Clean up some dialog.
-rw-r--r-- | game.scm | 43 |
1 files changed, 25 insertions, 18 deletions
@@ -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."))) |