notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more sounds.

Browse Source
This commit is contained in:
Bryce Covert
2015-10-31 16:24:19 -07:00
parent b5bb6ce1ef
commit 24d8fa7d23
14 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
desktop/src-common/advent/utils.clj
View File

@@ -422,7 +422,7 @@
(defn sourced-volume-fn [target vol-scale [x y]]
(fn [entities]
(if (= target :ego)
(-> (* (/ (get-in entities [:room :entities :ego :scale-x]) 1.5) 0.75)
(-> (* (/ (get-in entities [:room :entities :ego :scale-x]) 1.5) 0.9)
(* (or vol-scale 1.0))
(clamp-volume))
(proximity-volume entities [x y] :scale vol-scale))
@@ -451,7 +451,7 @@
snd)
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 (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