minor dialogue tweaks

This commit is contained in:
Bryce Covert
2015-08-03 13:04:35 -07:00
parent 7dfba38bc5
commit a44a5ad849

View File

@@ -40,7 +40,16 @@
(actions/do-dialogue entities :wizard "What can I do for you boy?")
(actions/present-choices entities
{:choices ["What's with the safe?"
{:choices ["Can you teach me the ways of magic?"
{:run #(actions/respond entities %
:wizard "The ways of magic?"
:wizard "Magic ability is innate, it cannot be learned."
:ego "How did you learn then?"
:wizard "I didn't."
:wizard "When I was a toddler, I sneezed, and blew up my parents house."
:wizard "I've been casting magic spells ever since.")
:choices actions/previous-choices}
"What's with the safe?"
{:run #(actions/respond entities %
:wizard "That's my MagiSafe 5000."
:wizard "It's used to keep whipper-snappers like you out of my precious belongings."
@@ -100,14 +109,14 @@
"Something else."
{:choices actions/something-else}]}
(when (actions/has-obtained-all-of? entities [:trophy :medal :kiss])
"Will you help me become a knight?")
"About that prophecy...")
{:run #(actions/respond entities % :wizard "It looks to me as if you are ready to pull the sword, boy!")
:choices actions/previous-choices}
(when (= 3 (get-in @entities [:state :mints-eaten]))
"The antique shopkeeper needs more fire mints.")
"Someone ate all of the antique shopkeeper's fire mints.")
{:run #(do (actions/respond entities %
:wizard "Already?"
:wizard "Ok, I'll deliver them myself. Don't touch anything while I'm gone.")
:wizard "Ok, I'll deliver some more myself. Don't touch anything while I'm gone.")
(actions/update-state entities (fn [s] (assoc s :mints-eaten 0
:wizard-left? true)))
(sound! (sound "inside-house/disappear.ogg") :play (utils/current-sound-volume))