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

more simplification.

Browse Source
This commit is contained in:
Bryce Covert
2015-10-07 18:37:55 -07:00
parent 75b44709ae
commit 54a8ccf799
1 changed files with 3 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
desktop/src-common/advent/screens/rooms/outside_castle.clj
View File

@@ -430,22 +430,10 @@
:collision "outside-castle/collision.png" :collision "outside-castle/collision.png"
:scale-fn (utils/scaler-fn-from-image "outside-castle/scale-map.png" 0.20 1.00) :scale-fn (utils/scaler-fn-from-image "outside-castle/scale-map.png" 0.20 1.00)
:start-pos [259 80] :start-pos [259 80]
:apply-state (fn [_ entities] :apply-state (fn [screen entities]
(utils/fast-forward-particle (get-in entities [:room :entities :outside-particles])) (utils/fast-forward-particle (get-in entities [:room :entities :outside-particles]))
(-> (as-> entities entities
(if (#{:night :sunrise} (get-in entities [:state :time])) (if (#{:night :sunrise} (get-in entities [:state :time]))
(make-night entities) (make-night entities)
entities) entities)
(assoc-in [:room :flies-sound :id] (sound! (get-in entities [:room :flies-sound :sound]) :loop (flies-vol entities))))) (utils/play-sound! screen entities (get-in entities [:room :flies-sound :sound]) flies-vol 0.5 :loop))))))
:update-fn (fn [_ entities]
(when-let [flies-sound-id (get-in entities [:room :flies-sound :id])]
(sound! (get-in entities [:room :flies-sound :sound]) :set-volume flies-sound-id (flies-vol entities)))
entities)
:stop-fn (fn [_ entities]
(when-let [flies-sound-id (get-in entities [:room :flies-sound :id])]
(sound! (get-in entities [:room :flies-sound :sound]) :stop flies-sound-id))
entities)
)))