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

a lot of tweaks to make mobile faster.

Browse Source
This commit is contained in:
Bryce Covert
2016-08-04 08:01:49 -07:00
parent 3d69fc0b65
commit 114408210e
12 changed files with 200 additions and 179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,8 +20,8 @@
(defn close [entities]
(screen! @(resolve 'advent.screens.scene/scene) :on-reactivate)
(screen! @(resolve 'advent.screens.scene/scene) :on-end-safe)
(screen! @(resolve 'advent.screens.scene/scene) :on-reactivate {})
(screen! @(resolve 'advent.screens.scene/scene) :on-end-safe {})
(-> entities
(assoc :shown? false)
(assoc :start-showing? false)))
@@ -60,14 +60,14 @@
:on-render
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
(fn [{:keys [^FitViewport viewport] :as screen} entities]
(.apply viewport)
(when (:shown? entities)
(render! screen [(:fade entities) (:safe entities)])
(render! screen (take (count (:button-choices entities)) (:entered-keys 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 0.3))
(assoc entities
:shown? true
@@ -75,10 +75,10 @@
:success success
:failure failure))
:on-mouse-moved (fn [screen [entities]]
:on-mouse-moved (fn [screen entities]
entities)
:on-touch-up (fn [screen [entities]]
:on-touch-up (fn [screen entities]
(when (:shown? entities)
(let [[x y] (utils/unproject screen)]
(if-let [button (get-button [x y])]