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

working on ios.

Browse Source
This commit is contained in:
Bryce Covert
2015-09-12 23:11:18 -07:00
parent 0ca5dc3fc5
commit 43152747bc
16 changed files with 49 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,11 +32,11 @@
(first (filter (fn [{:keys [in?] :as button}]
(when (in? x y)
button))
[{:in? (button-box 9 17) :sound (sound "inside-house/safe-1.ogg") :id 1 }
{:in? (button-box 29 17) :sound (sound "inside-house/safe-2.ogg") :id 2}
{:in? (button-box 49 17) :sound (sound "inside-house/safe-3.ogg") :id 3}
{:in? (button-box 70 17) :sound (sound "inside-house/safe-4.ogg") :id 4}
{:in? (button-box 91 17) :sound (sound "inside-house/safe-5.ogg") :id 5}])))
[{:in? (button-box 9 17) :sound (utils/load-sound "inside-house/safe-1.ogg") :id 1 }
{:in? (button-box 29 17) :sound (utils/load-sound "inside-house/safe-2.ogg") :id 2}
{:in? (button-box 49 17) :sound (utils/load-sound "inside-house/safe-3.ogg") :id 3}
{:in? (button-box 70 17) :sound (utils/load-sound "inside-house/safe-4.ogg") :id 4}
{:in? (button-box 91 17) :sound (utils/load-sound "inside-house/safe-5.ogg") :id 5}])))
(defscreen safe-screen
:on-show
@@ -67,7 +67,7 @@
entities)
:show-screen (fn [{:keys [success failure]} [entities]]
(sound! (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))
(assoc entities
:shown? true
:button-choices []
@@ -103,7 +103,7 @@
(< y start-y)
(> y (+ start-y 75)))
(do
(sound! (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))
(close entities)))))))
:on-resize (fn [{:keys [width height viewport]} entities]