ladder now breaks.

This commit is contained in:
Bryce Covert
2015-08-15 23:28:35 -07:00
parent a04259a9da
commit df02a78419
4 changed files with 37 additions and 11 deletions

View File

@@ -122,6 +122,22 @@
{:run #(actions/respond entities %)}]}
"Something else."
{:choices actions/something-else}]}
(when (and (actions/has-obtained? entities :ladder))
"About that ladder...")
{:run #(if (actions/has-item? entities :ladder?)
(actions/respond entities %
:ladder-guard "I trusteth it is safe in thy possession?"
:ego "Yes, it sure is!"
:ego "Can I borrow it a while longer?"
:ladder-guard "Yes, but do not durst tell a soul!")
(actions/respond entities %
:ladder-guard "I trusteth it is safe in thy possession?"
:ego "Ahem..."
:ego "... Yes, it sure is!"
:ladder-guard "I senseth some uncertainty in thine voice."
:ego "No uncertainty here!"))
:choices actions/previous-choices}
"Why aren't you sitting and eating?"
{:run #(do (actions/respond entities % :ladder-guard "I'm on duty, young sire.")
(when (not (actions/has-obtained? entities :ladder))
@@ -214,7 +230,7 @@
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.3)
:apply-state (fn [_ entities]
(as-> entities entities
(if (actions/has-item? entities :ladder)
(if (actions/has-obtained? entities :ladder)
(update-in entities [:room :entities] #(dissoc % :ladder))
entities)))
:start-pos [300 55])))