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

must return items.

Browse Source
This commit is contained in:
Remington Covert
2014-11-09 09:59:40 -08:00
parent df4017366c
commit 2e0bc148de
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -63,7 +63,10 @@
{:run #(actions/respond entities % :shopkeep "No. *sigh* That's not it.")} {:run #(actions/respond entities % :shopkeep "No. *sigh* That's not it.")}
(when ((get-in @entities [:state :clues]) :name) (when ((get-in @entities [:state :clues]) :name)
"Herb.") "Herb.")
{:run #(do (actions/respond entities % :shopkeep "Yes, that's it!") {:run #(do (actions/respond entities %
:shopkeep "Yes, that's it!"
:shopkeep "You must have really met my son!"
:shopkeep "Of course you can keep the teddy bear.")
(actions/give entities items/teddy))}]}]} (actions/give entities items/teddy))}]}]}
"How's life in the antique shop biz?" "How's life in the antique shop biz?"
{:run #(actions/respond entities % {:run #(actions/respond entities %
@@ -86,12 +89,19 @@
{:down {:box [60 0 290 25] {:down {:box [60 0 290 25]
:cursor :down :cursor :down
:script (actions/get-script entities :script (actions/get-script entities
(when ((set (get-in @entities [:state :inventory])) items/portrait)
(actions/walk-to entities :ego [222 3])
(actions/talk entities :shopkeep "Excuse me sonny. Please return my belongings before you leave.")
(actions/walk-to entities :ego [136 80] :face :left)
(actions/play-animation entities :ego :reach)
(actions/remove-item entities items/portrait))
(actions/walk-to entities :ego [222 3]) (actions/walk-to entities :ego [222 3])
(actions/transition-background entities :inside-castle [182 90]))} (actions/transition-background entities :inside-castle [182 90]))}
:window {:box [212 130 256 180] :window {:box [212 130 256 180]
:script (actions/get-script entities :script (actions/get-script entities
(actions/talk entities :ego "It's a nice, big window.")) (actions/talk entities :ego "It's a nice, big window."))
:scripts {:portrait (actions/get-script entities :scripts {:portrait (actions/get-script entities
(actions/walk-to entities :ego [151 60] :face :right)
(actions/play-animation entities :ego :reach) (actions/play-animation entities :ego :reach)
(actions/talk entities :ego "The portrait says 'Herb' on the back.") (actions/talk entities :ego "The portrait says 'Herb' on the back.")
(actions/update-state entities (fn [state] (update-in state [:clues] #(conj % :name)) )))}}} (actions/update-state entities (fn [state] (update-in state [:clues] #(conj % :name)) )))}}}
@@ -106,6 +116,8 @@
:x 109 :x 109
:y 120 :y 120
:script (actions/get-script entities :script (actions/get-script entities
(actions/walk-to entities :ego [136 80] :face :left)
(actions/play-animation entities :ego :reach)
(actions/talk entities :ego "It's a portrait. There's something on the back but I can't read it.") (actions/talk entities :ego "It's a portrait. There's something on the back but I can't read it.")
(actions/remove-entity entities :portrait) (actions/remove-entity entities :portrait)
(actions/give entities items/portrait)))} (actions/give entities items/portrait)))}