sound volume!

2015-03-04 13:37:20 -08:00
parent bed3c16b27
commit 54f6b25b39
20 changed files with 354 additions and 37 deletions
--- a/desktop/src-common/advent/screens/safe.clj
+++ b/desktop/src-common/advent/screens/safe.clj
@@ -82,7 +82,7 @@
                   (when (:shown? entities)
                     (let [[x y] (utils/unproject screen)]
                       (if-let [button (get-button [x y])]
-                         (do (sound! (:sound button) :play)
+                         (do (sound! (:sound button) :play (utils/current-sound-volume))
                             (let [new-state (update-in entities [:button-choices] #(conj % (:id button)))]

                               (cond (= [4 2 1 5 3] (:button-choices new-state))