Add some conversations to the reaper.

1 files changed, 66 insertions, 0 deletions

diff --git a/scenes/game.scm b/scenes/game.scm
index 4f9f2ab..b4865f3 100644
--- a/scenes/game.scm
+++ b/scenes/game.scm
@@ -187,6 +187,72 @@ map's object layer."
     (list (make <reaper>
             #:name 'reaper
             #:position (start-position game "reaper")
+            #:conversations
+            '((hello
+               "Salutations!"
+               ((who-are-you? "Who are you?")
+                (bye "I have to leave now. Bye!")))
+              (who-are-you?
+               "It's complicated. People have given me too many names to recount.
+Paul Celan called me a master from Germany, but he must have confused
+me with somebody else. Some call me a part of life, but I think that's
+missing the point. Others call me the grim reaper, but do I look grim
+to you?"
+               ((grim-no "No, not at all.")
+                (grim-yes "Well, actually you kinda do...")
+                (grim-bye "I can't answer, I need to go.")))
+              (grim-bye
+               "Well, I guess that's a 'yes'..."
+               ())
+              (grim-no
+               "Ah, that's a relief!"
+               ((what-do-you-do?
+                 "I hope you don't mind me asking: what is it you're
+doing here?")
+                (bye
+                 "Well, it was nice meeting you. See you around!")))
+              (grim-yes
+               "Hmm, that's very unfortunate. I just can't figure out
+why people have that impression. It's rather depressing."
+               ((its-the-robe "Maybe it's the robe?")
+                (dont-worry "Aww, don't feel bad about it!")
+                (bye "I'm sure you'll be okay. Gotta go!")))
+              (its-the-robe
+               "I don't see how this comfortable robe could have that
+effect. The fabric is a little coarse, I admit, but it's really
+durable and doesn't chafe on my bones. Excellent quality."
+               ((what-do-you-do?
+                 "So... what do you do around here?")
+                (bye "That's really interesting, but I'm afraid I need
+to hurry. Bye!")))
+              (dont-worry
+               "Yeah, I guess I shouldn't. It just tears me
+down. Luckily, the garden keeps me distracted."
+               ((what-do-you-grow? "Oh, you have a garden? What do you
+grow there?")
+                (bye "That's good. Well, I should go now. Bye!")))
+              (what-do-you-do?
+               "Well, you may have noticed the garden behind the house.
+For the past few eons I have been tending to it."
+               ((eons? "Did you say 'eons'?")
+                (what-do-you-grow? "Oh, that's nice! What do you grow there?")
+                (bye "I see. Unfortunately, I must get going now.")))
+              (eons?
+               "Oh yes, I have been here long before you appeared and
+I will be here long after you will have rejoined the void. You could
+say that I /am/ the void, occasionally receding just enough for a
+little bit of inconsequential folly before eventually and invariably
+restoring equilibrium."
+               ;; TODO
+               ())
+              (what-do-you-grow?
+               "You know, this and that. I enjoy soul food, and it's
+best when the ingredients are fresh."
+               ())
+              (bye
+               "Farewell! Don't be afraid, for I'm always here for
+you.  I'm sure we will meet again sooner than you expect."
+               ()))
             #:children
             ;; Simple shadow.  This should better be done with a
             ;; single ellipse shader.