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

adjusted shopkeeer dialogue based on mints.

Browse Source
This commit is contained in:
Bryce Covert
2015-12-08 09:06:38 -08:00
parent 3163b8181c
commit 659b87c49a
1 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -83,12 +83,24 @@
:choices son-choices} :choices son-choices}
"Something else." "Something else."
{:choices actions/something-else}]} {:choices actions/something-else}]}
"Are those lava mints on the desk?" (when (= 3 (get-in @entities [:state :mints-eaten]))
"Do you still need those lava mints?")
{:run #(actions/respond entities %
:shopkeep "Of course!"
:shopkeep "How am I going to keep all my customers happy?"
:ego "But you don't have any customers."
:shopkeep "No matter."
:shopkeep "Tell Gandarf I need some more."
:shopkeep "Pronto!")
:choices actions/previous-choices}
(when (not= 3 (get-in @entities [:state :mints-eaten]))
"Are those lava mints on the desk?")
{:run #(actions/respond entities % {:run #(actions/respond entities %
:shopkeep "They're the finest lava mints in all of Remington." :shopkeep "They're the finest lava mints in all of Remington."
:shopkeep "Hand-brewed and delivered by none other than Gandarf himself!" :shopkeep "Hand-brewed and delivered by none other than Gandarf himself!"
:shopkeep "They're free for customers." :shopkeep "They're free for customers."
:shopkeep "We're not open for business, but I'll let you have one.") :shopkeep "We're not open for business, but I'll let you have one or two.")
:choices actions/previous-choices} :choices actions/previous-choices}
(when (and (get-in @entities [:state :wants-toy]) (when (and (get-in @entities [:state :wants-toy])
(not (get-in @entities [:state :allowed-to-keep-teddy?]))) (not (get-in @entities [:state :allowed-to-keep-teddy?])))
@@ -135,7 +147,12 @@
:shopkeep "I was afraid you might say that.")) :shopkeep "I was afraid you might say that."))
:choices #(-> % zip/up zip/up zip/up)}])))}]} :choices #(-> % zip/up zip/up zip/up)}])))}]}
"Nevermind." {:run #(actions/respond entities % :shopkeep "Feel free to look around.")}]}))) "Nevermind." {:run (fn [m]
(if (= 3 (get-in @entities [:state :mints-eaten]))
(actions/respond entities m :shopkeep "Make sure to tell Gandarf to bring more lava mints.")
(actions/respond entities m :shopkeep "Feel free to look around."))
) }]})))
(defn return-portrait [ entities] (defn return-portrait [ entities]
(actions/walk-to entities :ego [143 64] :face :left) (actions/walk-to entities :ego [143 64] :face :left)