summaryrefslogtreecommitdiff
path: root/scenes
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-07-19 06:05:51 +0200
committerRicardo Wurmus <rekado@elephly.net>2018-07-27 17:15:45 +0200
commit75e8b93382afcd8c403191b1ba1ffd7a16f61efc (patch)
tree12540b9c267fe03d7406b1ab3b909f62bf68fd16 /scenes
parent488552adf119aba2d8082dfeb66f632a62144ff1 (diff)
Add some conversations to the reaper.
Diffstat (limited to 'scenes')
-rw-r--r--scenes/game.scm66
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.