ego faces shopkeep.

This commit is contained in:
Bryce Covert
2015-11-09 09:58:28 -08:00
parent d0be87b017
commit d51ca289c3

View File

@@ -16,6 +16,10 @@
"Ralphie" "Arthur" "Barney" "Harry" "Gus" "Mortimer" "Walt"])
(defn do-antique-dialogue [entities]
(if (< (get-in @entities [:room :entities :ego :x])
(get-in @entities [:room :entities :shopkeep :x]))
(actions/do-stop entities :ego :face :right)
(actions/do-stop entities :ego :face :left))
(actions/do-dialogue entities
:shopkeep "Oh, hello there."
:shopkeep "Can I help you?")
@@ -68,7 +72,7 @@
"Is there anything here you will sell?"
{:run #(actions/respond entities %
:shopkeep "No, not until my son returns.")
:choices #(-> % zip/left zip/left)}
:choices son-choices}
(if (get-in @entities [:state :opened-blinds?])
"Since I got some light in here, will you open up shop?"
"If I get some light in here, will you open up shop?")