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

more starting of the fight.

Browse Source
This commit is contained in:
Bryce Covert
2014-12-11 16:22:16 -08:00
parent ad70fd76b6
commit 1ac686039a
5 changed files with 43 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
desktop/src-common/advent/actions.clj
View File

@@ -394,6 +394,31 @@
(can-skip? [this screen entities]
false)))
(defn transition-music
([entities new-music]
(transition-music entities (get-in @entities [:room :music]) new-music))
([entities old-music new-music]
(let [current-volume (atom 1.0)]
(run-action entities
(begin [this screen entities]
entities)
(continue [this screen entities]
(let [new-volume (swap! current-volume #(- % 0.01))]
(music! (get-in entities [:musics old-music]) :set-volume new-volume))
entities)
(done? [this screen entities]
(>= 0.1 @current-volume))
(terminate [this screen entities]
(music! (get-in entities [:musics old-music]) :stop)
(music! (get-in entities [:musics new-music]) :set-volume 1.0)
(music! (get-in entities [:musics new-music]) :play)
entities)
(can-skip? [this screen entities]
false)))))
(defn transition-background [entities new-background [x y]]
(let [old-music (get-in @entities [:room :music])
new-music (get-in @entities [:rooms new-background :music])