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

minor tweak.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 16:19:06 -08:00
parent fda84faef9
commit 3326629189
1 changed files with 39 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
desktop/src-common/advent/screens/title.clj
View File

@@ -335,11 +335,7 @@
(render! screen (sort-by :z (filter :object (vals entities))) )
entities))
:show-screen (fn [entities]
entities)
:show-screen (fn [entities] entities)
:on-key-up
(fn [screen entities]
@@ -349,68 +345,55 @@
:on-ui-changed
(fn [{:keys [actor] :as screen} [entities]]
(let [e (-> actor .getUserObject)
actor-key (:key e)]
(when-not (get-in entities [:tweens :fade-out])
(cond
(let [e (-> actor .getUserObject)
actor-key (:key e)]
(cond
(= :music-volume-slider actor-key)
(do (swap! utils/settings assoc :music-volume (slider! e :get-value))
(utils/save-settings!)
entities)
(= :music-volume-slider actor-key)
(do (swap! utils/settings assoc :music-volume (slider! e :get-value))
(utils/save-settings!)
entities)
(= :sound-volume-slider actor-key)
(do (swap! utils/settings assoc :sound-volume (slider! e :get-value))
(utils/save-settings!)
entities)
(= :sound-volume-slider actor-key)
(do (swap! utils/settings assoc :sound-volume (slider! e :get-value))
(utils/save-settings!)
entities)
(#{:back } actor-key)
(-> entities
(dissoc :save-menu)
(assoc :main-menu (main-menu)))
(#{:back } actor-key)
(-> entities
(dissoc :save-menu)
(assoc :main-menu (main-menu)))
(= :chapters actor-key)
(-> entities
(dissoc :main-menu)
(assoc :save-menu (saves-menu entities)))
(= :chapters actor-key)
(-> entities
(dissoc :main-menu)
(assoc :save-menu (saves-menu entities)))
(= :toggle-fullscreen actor-key)
(utils/toggle-fullscreen!)
(= :toggle-fullscreen actor-key)
(utils/toggle-fullscreen!)
(= :end-quest actor-key)
(quit screen entities)
(= :end-quest actor-key)
(quit screen entities)
(= :continue-or-start actor-key)
(start-playing screen entities (if (= "Begin quest" (quest-label))
nil
:autosave))
(= :continue-or-start actor-key)
(start-playing screen entities (if (= "Begin quest" (quest-label))
nil
:autosave))
(= :continue actor-key)
(start-playing screen entities (saves/name->save (:selected-save entities)))
(= :continue actor-key)
(start-playing screen entities (saves/name->save (:selected-save entities)))
(:save e)
(do
(label! (-> entities :save-menu :save-label) :set-text (:save e))
(text-button! (-> entities :save-menu :continue-button) :set-disabled false)
(assoc entities :selected-save (:save e)))
(:save e)
(do
(label! (-> entities :save-menu :save-label) :set-text (:save e))
(text-button! (-> entities :save-menu :continue-button) :set-disabled false)
(assoc entities :selected-save (:save e)))
:else
entities)))
:on-touch-up (fn [screen [{:keys [prev next saves-list save-index] :as entities}]]
(when-not (get-in entities [:tweens :fade-out])
(let [[x y] (utils/unproject screen)
selected-save (get-selected-save entities [x y])]
(cond
selected-save
(start-playing screen entities (:save selected-save))
:else
nil))))
:else
entities))))
:on-resize (fn [{:keys [viewport width height]} [entities]]
(.update viewport width height false)