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

ego faces shopkeep.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-09 09:58:28 -08:00
parent d0be87b017
commit d51ca289c3
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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