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

added concept of different background musics.

Browse Source
This commit is contained in:
Remington Covert
2014-11-03 22:51:08 -08:00
parent 0390c2bfa5
commit 57a84f5101
8 changed files with 30 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -360,9 +360,17 @@
(run-action entities
(begin [this screen entities]
(let [ego (get-in entities [:room :entities :ego])
old-music (get-in entities [:room :music])
entities (-> entities
(assoc-in [:room] (get-in entities [:rooms new-background]))
(assoc-in [:room :entities :ego] ego))]
(assoc-in [:room :entities :ego] ego))
new-music (get-in entities [:room :music])]
(when (not= new-music old-music)
(doseq [[k v] (:musics entities)
:when (and v (not= new-music k))]
(sound! v :stop))
(when new-music
(sound! (get-in entities [:musics new-music]) :loop 0.30)))
(-> entities
(update-in [:room :entities :ego] #(jump-to screen entities % [x y])))))