diff --git a/desktop/src-common/advent/screens/safe.clj b/desktop/src-common/advent/screens/safe.clj index f1ab2efd..454dff80 100644 --- a/desktop/src-common/advent/screens/safe.clj +++ b/desktop/src-common/advent/screens/safe.clj @@ -67,7 +67,7 @@ entities) :show-screen (fn [{:keys [success failure]} [entities]] - (sound! (utils/load-sound "inside-house/open-safe.ogg") :play (utils/current-sound-volume)) + (sound! (utils/load-sound "inside-house/open-safe.ogg") :play (utils/current-sound-volume 0.3)) (assoc entities :shown? true :button-choices [] @@ -81,7 +81,7 @@ (when (:shown? entities) (let [[x y] (utils/unproject screen)] (if-let [button (get-button [x y])] - (do (sound! (:sound button) :play (utils/current-sound-volume)) + (do (sound! (:sound button) :play (utils/current-sound-volume 0.3)) (let [new-state (update-in entities [:button-choices] #(conj % (:id button)))] (cond (= [4 2 1 5 3] (:button-choices new-state)) @@ -103,7 +103,7 @@ (< y start-y) (> y (+ start-y 75))) (do - (sound! (utils/load-sound "inside-house/close-safe.ogg") :play (utils/current-sound-volume)) + (sound! (utils/load-sound "inside-house/close-safe.ogg") :play (utils/current-sound-volume 0.3)) (close entities))))))) :on-resize (fn [{:keys [width height viewport]} entities]