implemented feedback.

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

@@ -21,6 +21,7 @@
 (defn close [entities]
   
   (screen! @(resolve 'advent.screens.scene/scene) :on-reactivate)
+  (screen! @(resolve 'advent.screens.scene/scene) :on-end-safe)
   (-> entities
       (assoc :shown? false)
       (assoc :start-showing? false)))

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

@@ -1309,6 +1309,13 @@ void main ()
                        (assoc-in [:state :active?] true)
                        (assoc-in [:cursor :override] nil)))
 
+  :on-end-safe (fn [screen [entities]]
+                 ((actions/get-script entities
+                                      (actions/play-animation entities :ego :end-squat)) entities)
+                 (-> entities
+                       (assoc-in [:state :active?] true)
+                       (assoc-in [:cursor :override] nil)))
+
   :on-chose-item (fn [{:keys [item]} [entities]]
                    (assoc-in entities [:cursor :current] item))