made it so you can peel away the crack.

desktop/src-common/advent/actions.clj

@@ -125,7 +125,19 @@
                 (terminate [this screen entities] 
                            (stop screen entities target-id))
                 (can-skip? [this screen entities]
-                          false)))
+                           false)))
+
+(defn update-entity [entities target-id f]
+  (run-action entities
+                (begin [this screen entities]
+                       (update-in entities [:room :entities target-id] f))
+
+                (continue [this screen entities] entities)
+
+                (done? [this screen entities] true)
+
+                (terminate [this screen entities] entities)
+                (can-skip? [this screen entities] false)))
 
 (defn walk-to [entities target-id [final-x final-y] & [can-skip?]]
   (let [{start-x :x start-y :y} (get-in @entities [:room :entities target-id])