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

safe volumes are reasonable.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-20 09:33:08 -08:00
parent 83cbcbb231
commit 20d343291d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
desktop/src-common/advent/screens/safe.clj
View File

@@ -67,7 +67,7 @@
entities) entities)
:show-screen (fn [{:keys [success failure]} [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 (assoc entities
:shown? true :shown? true
:button-choices [] :button-choices []
@@ -81,7 +81,7 @@
(when (:shown? entities) (when (:shown? entities)
(let [[x y] (utils/unproject screen)] (let [[x y] (utils/unproject screen)]
(if-let [button (get-button [x y])] (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)))] (let [new-state (update-in entities [:button-choices] #(conj % (:id button)))]
(cond (= [4 2 1 5 3] (:button-choices new-state)) (cond (= [4 2 1 5 3] (:button-choices new-state))
@@ -103,7 +103,7 @@
(< y start-y) (< y start-y)
(> y (+ start-y 75))) (> y (+ start-y 75)))
(do (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))))))) (close entities)))))))
:on-resize (fn [{:keys [width height viewport]} entities] :on-resize (fn [{:keys [width height viewport]} entities]