From b9e3e3ba2e33409ef3cc6cf6ee73be9eadfb2f3b Mon Sep 17 00:00:00 2001 From: Bryce Date: Mon, 23 Mar 2026 23:45:49 -0700 Subject: [PATCH] fixes the sound issue. --- desktop/src-common/advent/screens/scene.clj | 2 +- desktop/src-common/advent/utils.clj | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index 0b2283d5..7c8bb23b 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -2161,5 +2161,5 @@ :else nil)))) :on-hide - (fn [screen entities options] + (fn [screen entities options] (utils/release-resources screen))) diff --git a/desktop/src-common/advent/utils.clj b/desktop/src-common/advent/utils.clj index ebd26029..665b6cec 100644 --- a/desktop/src-common/advent/utils.clj +++ b/desktop/src-common/advent/utils.clj @@ -741,6 +741,7 @@ sound-id (if (= :once type) (sound! snd :play (scale-vol-from-fade entities (current-sound-volume vol)) (or pitch 1.0) pan ) (sound! snd :loop 0.0 (or pitch 1.0) pan )) ] + (update-in entities [:current-sounds :value] conj {:id sound-id :sound snd @@ -748,8 +749,7 @@ :type type :ends-at (if (= type :once) (+ (:total-time screen) 1.0 #_(sound! snd :duration)) - nil)})) - entities)) + nil)})))) (defn stop-all-sounds! [entities] (doseq [snd (get-in entities [:current-sounds :value] [])]