added manually saving scripts.

desktop/src-common/advent/actions.clj

@@ -38,6 +38,11 @@
        (thread ~@forms
                (utils/save @~entities)))))
 
+(defmacro get-unsaved-script [entities & forms]
+  `(fn [starting-entities#]
+     (let [~entities (atom starting-entities#)]
+       (thread ~@forms))))
+
 
 (defn jump-to [screen entities entity [x y] update-baseline?]
   (let [scale-fn (-> entities :room :scale-fn)