diff options
Diffstat (limited to 'scenes')
| -rw-r--r-- | scenes/game.scm | 66 |
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. |