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

addded crappy night music.

Browse Source
This commit is contained in:
Bryce Covert
2014-12-28 17:14:17 -08:00
parent 3ef0a4e157
commit 972a284fac
8 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -337,7 +337,8 @@
:town-2 (make-music "town-music-2.ogg")
:inside-fangald (make-music "inside-fangald.ogg")
:fight (make-music "megaboss.mp3")
:pull-sword (make-music "pull-sword.ogg")}
:pull-sword (make-music "pull-sword.ogg")
:night (make-music "night.ogg")}
:state (get-state)
:actions {:object nil
:channel (chan)
@@ -356,7 +357,7 @@
:mouse-in? (zone/box 278 0 320 42))
:fps (assoc (label "0" (color :white) ) :x 5 :baseline 0)}]
(play-sound (get-in entities [:musics (get-in entities [:room :music])]))
(play-sound (get-in entities [:musics (actions/get-music (get-in entities [:room :music]) (get-in entities [:state :time]))]))
(doseq [[k [start time fn]] (get-in entities [:room :timers])]
(add-timer! screen k start time))