minor dialogue tweaks
This commit is contained in:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user