not all sounds shoud be subjeect to silence.

This commit is contained in:
Bryce Covert
2015-10-29 18:49:24 -07:00
parent 24d39ae78c
commit 78a4ddfce6
2 changed files with 4 additions and 3 deletions

View File

@@ -46,7 +46,9 @@
(actions/has-obtained? entities :sword) (actions/has-obtained? entities :sword)
0.0 0.0
:else :else
(* 0.2 (max 0.0 (- 1.0 (/ (utils/dist 45 97 (:x ego) (:y ego)) 50.0))))))) (* 0.2
(max 0.0 (- 1.0 (/ (utils/dist 45 97 (:x ego) (:y ego)) 50.0)))
(get-in entities [:volume :value])))))
(defn bloodclot-appear [entities] (defn bloodclot-appear [entities]
(actions/run-action entities (actions/run-action entities

View File

@@ -430,8 +430,7 @@
(defn scale-vol-from-fade [entities vol] (defn scale-vol-from-fade [entities vol]
(* vol (* vol
(- 1.0 (get-in entities [:fade :opacity])) (- 1.0 (get-in entities [:fade :opacity]))))
(get-in entities [:volume :value])))
(defn play-sound! (defn play-sound!
([screen entities snd volume-fn] ([screen entities snd volume-fn]