implemented library of items.

desktop/src-common/advent/actions.clj

@@ -23,6 +23,8 @@
   (can-skip? [this screen entities])
   (get-channel [this]))
 
+(defn has-item? [entities item]
+  ((set (get-in entities [:state :inventory])) item))
 
 (defmacro get-script [entities & forms]
   `(fn [starting-entities#]
@@ -260,7 +262,7 @@
 
                      (-> entities
                          (update-in [:state :inventory] #(conj % item))
-                         (assoc-in [:cursor :current] item)))
+                         (assoc-in [:cursor :current] (:cursor item))))
 
               (continue [this screen entities] entities)