not all sounds shoud be subjeect to silence.
This commit is contained in:
@@ -46,7 +46,9 @@
|
||||
(actions/has-obtained? entities :sword)
|
||||
0.0
|
||||
: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]
|
||||
(actions/run-action entities
|
||||
|
||||
@@ -430,8 +430,7 @@
|
||||
|
||||
(defn scale-vol-from-fade [entities vol]
|
||||
(* vol
|
||||
(- 1.0 (get-in entities [:fade :opacity]))
|
||||
(get-in entities [:volume :value])))
|
||||
(- 1.0 (get-in entities [:fade :opacity]))))
|
||||
|
||||
(defn play-sound!
|
||||
([screen entities snd volume-fn]
|
||||
|
||||
Reference in New Issue
Block a user