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

other minor tweaks.

Browse Source
This commit is contained in:
Bryce Covert
2015-10-07 18:49:22 -07:00
parent c00492eee1
commit c22094a76d
2 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -513,22 +513,24 @@
(skip-type [this screen entities]
:none)))
(defn play-sound [entities sound-file]
(let [m (music sound-file)]
(run-action entities
(begin [this screen entities]
(music! m :play)
entities)
(defn play-sound
([entities sound-file vol]
(let [s (sound sound-file)]
(run-action entities
(begin [this screen entities]
(utils/play-sound! screen entities s (constantly vol)))
(continue [this screen entities] entities)
(continue [this screen entities] entities)
(done? [this screen entities]
(not (music! m :is-playing)))
(done? [this screen entities]
(not (seq (filter
#(= s (:sound %))
(get-in entities [:current-sounds :value])))))
(terminate [this screen entities]
entities)
(skip-type [this screen entities]
:none))))
(terminate [this screen entities]
entities)
(skip-type [this screen entities]
:none)))))
(defn give [entities item]
(run-action entities