Saving much better!

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

@@ -819,7 +819,7 @@ void main ()
 
 (defn get-state [selected-save]
   (if selected-save
-    (utils/load-snapshot selected-save)
+    (assoc (:state selected-save) :active? true)
     {:object nil
      :active? true
      :last-room :dream
@@ -1245,6 +1245,10 @@ void main ()
 
   :on-show-inventory (fn [screen [entities]]
                        (click-inventory screen entities))
+  :on-save (fn [screen [entities]]
+             (when-not (get-in entities [:actions :script-running?])
+               (utils/save entities (str (java.util.UUID/randomUUID)) (str "Save " (rand-int 20)))))
+
   :on-menu (fn [{:keys [viewport] :as screen} [entities]]
              (when-not (or (get-in entities [:tweens :fade-out])
                            (get-in entities [:tweens :fade-in]))
@@ -1373,5 +1377,8 @@ void main ()
               (utils/intersects? (:close entities) [x y])
               (screen! scene :on-menu)
 
+              (utils/intersects? (:save entities) [x y])
+              (screen! scene :on-save)
+
               :else
               nil)))))