diff options
| -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."))) |