swap flask for milk.

This commit is contained in:
2014-10-16 20:04:02 -07:00
parent ec87413084
commit d06fe98465
4 changed files with 24 additions and 5 deletions

View File

@@ -255,6 +255,20 @@
(can-skip? [this screen entities]
false)))
(defn remove-item [entities item]
(run-action entities
(begin [this screen entities]
(update-in entities [:state :inventory] #(remove (partial = item) %)))
(continue [this screen entities] entities)
(done? [this screen entities] true)
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(defn give [entities item]
(run-action entities
(begin [this screen entities]