override tweaks.

This commit is contained in:
2014-12-15 07:10:06 -08:00
parent 089f9954be
commit 854e3c6b20
3 changed files with 27 additions and 15 deletions

View File

@@ -301,7 +301,7 @@
(begin [this screen entities]
(screen! dialogue/choice-screen :on-present-choices :choices dialogue-choices :callback #(reset! selected-index %))
(screen! @(resolve 'advent.screens.scene/scene) :on-deactivate)
entities)
(assoc-in entities [:cursor :override] nil))
(continue [this screen entities] entities)
@@ -446,7 +446,6 @@
music-changed? (not= old-music new-music)]
(run-action entities
(begin [this screen entities]
(-> entities
(assoc-in [:transition]
(assoc (texture "black.png")
@@ -479,7 +478,8 @@
apply-state (get-in entities [:room :apply-state])
entities (if apply-state
(apply-state entities)
entities)]
entities)
entities (utils/update-override entities)]
(when (not= new-music old-music)
(doseq [[k v] (:musics entities)
:when (and v (not= new-music k))]