reworked the stash discovery puzzle. much better.

This commit is contained in:
Bryce Covert
2015-09-04 20:33:18 -07:00
parent 96c215605b
commit 967bc8f6a5
5 changed files with 123 additions and 69 deletions

View File

@@ -67,6 +67,18 @@
(actions/play-animation entities :frankie :laugh)
(actions/do-dialogue entities :frankie "That's only for people in the 'Super secret cool club'!"))
:choices actions/previous-choices}
(when-not (get-in @entities [:state :bubba-gone?])
"I found your secret stash!")
{:run #(do (actions/respond entities %
:frankie "What?!"
:frankie "Impossible!")
(actions/play-animation entities :frankie :laugh)
(actions/do-dialogue entities :frankie "Bubba, go check to make sure our stuff is safe."
:goon-2 "You got it boss.")
(actions/walk-straight-to entities :goon-2 [0 100])
(actions/update-state entities (fn [s] (assoc s :bubba-gone? true))))}
"Nevermind."
{:run #(actions/respond entities % :frankie "Come back when you've got some good valuables.")}]}))
@@ -203,8 +215,7 @@
(defn attempt-walking-through-gate [entities]
(actions/walk-to entities :ego [157 83] :skip-type :end)
(actions/transition-background entities :inside-castle [280 145])
(actions/update-state entities #(assoc % :bubba-gone? false))
(actions/transition-background entities :inside-castle [280 145])
(actions/walk-to entities :ego [245 90] :skip-type :end))
(defn flip-coin [screen entities]