notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

puzzles.

Browse Source
This commit is contained in:
Remington Covert
2014-11-08 11:29:56 -08:00
parent e57e6be125
commit 39cbd94df6
5 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
desktop/src-common/advent/screens/rooms/inside_antique.clj
View File

@@ -43,21 +43,21 @@
"Listen, I really need that teddy bear you have.")
{:run #(actions/respond entities %
:shopkeep "Why?"
:shopkeep "It belonged to my long lost son."
:shopkeep "Why should I give it to you?")
:choices ["I just need it ok?"
{:run #(actions/respond entities %
:shopkeep "I'm sorry, it's not for sale.")
:choices actions/something-else}
(when (get-in @entities [:state :knows-about-son])
"Your long lost son said I could have it.")
{:run #(actions/respond entities % :shopkeep "REALLY? You've met him?")}]}
"Your long lost son said I could have it."
{:run #(do (actions/respond entities % :shopkeep "REALLY? You've met him?")
(actions/give entities items/teddy))}]}
"How's life in the antique shop biz?"
{:run #(do (actions/update-state entities (fn [state] (assoc state :knows-about-son true)))
(actions/respond entities %
:shopkeep "Pretty lonely."
:shopkeep "My long lost son used to help me run this shop, but he's been gone for five years now."
:shopkeep "I've been couped up in here by myself ever since."
:shopkeep "Now all I have is this grandfather clock to keep me company."))
{:run #(actions/respond entities %
:shopkeep "Pretty lonely."
:shopkeep "My long lost son used to help me run this shop, but he's been gone for five years now."
:shopkeep "I've been couped up in here by myself ever since."
:shopkeep "Now all I have is this grandfather clock to keep me company.")
:choices actions/previous-choices}
"Nevermind." {:run #(actions/respond entities % :shopkeep "Feel free to look around.")}]}))