nicer ux when getting flask.

This commit is contained in:
2014-10-06 12:55:28 -07:00
parent de24910ed0
commit 438ed4f36f
2 changed files with 15 additions and 0 deletions

View File

@@ -274,6 +274,20 @@
(can-skip? [this screen entities]
false)))
(defn remove-entity [entities entity]
(run-action entities
(begin [this screen entities]
(update-in entities [:room :entities] #(dissoc % entity)))
(continue [this screen entities] entities)
(done? [this screen entities] true)
(terminate [this screen entities] entities)
(can-skip? [this screen entities]
false)))
(defn transition-background [entities new-background [x y]]
(run-action entities
(begin [this screen entities]

View File

@@ -33,6 +33,7 @@
:flask (assoc (texture "inside-house/flask.png")
:x 265 :y 80 :baseline 240
:script (actions/get-script entities
(actions/remove-entity entities :flask)
(actions/give entities :flask)
(actions/do-dialogue entities :ego "Hey you think I could have this flask?"
:wizard "Sure.")))}