various bug fixes.

This commit is contained in:
Bryce Covert
2018-02-11 16:49:50 -08:00
parent e9b1c8b0a4
commit 97794f953c
5 changed files with 13 additions and 11 deletions

View File

@@ -728,7 +728,7 @@
(as-> entities e
(assoc-in e [:tweens :fade-out] (tween/tween :fade-out screen [type :opacity] 0.0 1.0 time))
(if music-changed?
(assoc-in e [:tweens :fade-out-music] (tween/tween :fade-out-music screen [:volume :value] 1.0 0.0 time))
(assoc-in e [:tweens :fade-out-music] (tween/tween :fade-out-music screen [:volume :value] (get-in entities [:volume :value]) 0.0 time))
e)))
(continue [this screen entities]
@@ -843,6 +843,7 @@
(defn glad [entities]
(actions/run-action entities
(begin [this screen entities]
(println "ORIGIN" (get-in entities [:room :entities :ego :origin-x]))
(let [current-y (get-in entities [:room :entities :ego :y])
to-y (+ current-y 15)]
(-> entities