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

Added ability to do custom sorting.

Browse Source
This commit is contained in:
Remington Covert
2014-11-28 09:06:20 -08:00
parent 197dc1305d
commit befdb44d29
2 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -18,3 +18,7 @@
:on-create :on-create
(fn [this] (fn [this]
(set-screen! this scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen))) (set-screen! this scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen)))
(defn reload []
(on-gl (set-screen! advent scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen)))

10
desktop/src-common/advent/screens/scene.clj
View File

@@ -202,6 +202,9 @@
(defn play-sound [snd] (defn play-sound [snd]
(music! snd :play)) (music! snd :play))
(defn stop-sound [snd]
(music! snd :stop))
(defn make-music [r] (defn make-music [r]
(doto (music r) (music! :set-looping true))) (doto (music r) (music! :set-looping true)))
@@ -269,6 +272,13 @@
:on-resize (fn [screen entities] :on-resize (fn [screen entities]
(size! screen 320 240)) (size! screen 320 240))
:on-hide (fn [screen entities]
(doall (->> (get-in entities [:room :entities :musics])
vals
(map identity)
(map stop-sound)
)))
:on-mouse-moved :on-mouse-moved
(fn [screen [entities]] (fn [screen [entities]]
(when (get-in entities [:state :active?]) (when (get-in entities [:state :active?])