progress on inventory drag out interaction.

2016-08-03 12:43:15 -07:00
parent 6ffe5d2caf
commit 8308c28aa7
3 changed files with 17 additions and 14 deletions
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -70,7 +70,10 @@
  (let [fg-bg-key *fg-bg-key*]
    (run-action entities
                (begin [this screen entities] 
-                       (update-in entities [fg-bg-key] assoc :script-running? state :last-skip-type (if state :end nil)))
+                       (-> entities
+                           (update-in [fg-bg-key]
+                                      assoc :script-running? state :last-skip-type (if state :end nil))
+                           (assoc-in [:cursor :came-from-inventory?] false)))

                (continue [this screen entities] entities)