Added ability to do custom sorting.

desktop/src-common/advent/core.clj

@@ -18,3 +18,7 @@
   :on-create
   (fn [this]
     (set-screen! this scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen)))
+
+
+(defn reload []
+  (on-gl (set-screen! advent scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen)))

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

@@ -202,6 +202,9 @@
 (defn play-sound [snd]
   (music! snd :play))
 
+(defn stop-sound [snd]
+  (music! snd :stop))
+
 (defn make-music [r]
   (doto (music r) (music! :set-looping true)))
 
@@ -269,6 +272,13 @@
   :on-resize (fn [screen entities]
                (size! screen 320 240))
 
+  :on-hide (fn [screen entities]
+             (doall (->> (get-in entities [:room :entities :musics])
+                         vals
+                         (map identity)
+                         (map stop-sound)
+                         )))
+
   :on-mouse-moved
   (fn [screen [entities]]
     (when (get-in entities [:state :active?])