fixed bug that broke item interactions.

desktop/src-common/advent/screens/scene.clj

@@ -118,10 +118,11 @@
 
 
 (defn update-cursor [screen {{:keys [current override last]} :cursor :as entities}]
-  (when-not (= (or override current)
-               last)
-    (input! :set-cursor-image (utils/cursor "cursor.png" (or override current)) 0 0))
-  (assoc-in entities [:cursor :last] (or override current)))
+  (let [new-current (or override current)]
+    (when-not (= new-current
+                 last)
+      (input! :set-cursor-image (utils/cursor "cursor.png" (or (:cursor new-current) new-current)) 0 0))
+    (assoc-in entities [:cursor :last] new-current)))
 
 
 
@@ -200,7 +201,7 @@
                    (assoc-in entities [:state :active?] true))
 
   :on-chose-item (fn [{:keys [item]} [entities]]
-                   (assoc-in entities [:cursor :current] (:cursor item)))
+                   (assoc-in entities [:cursor :current] item))
 
   :on-start-script (fn [{:keys [script]} [entities]]
                      (script entities)