made screen reloading middleware.

This commit is contained in:
Bryce Covert
2016-01-14 09:46:38 -08:00
parent 73d3bee5ca
commit 746082e120
7 changed files with 16 additions and 18 deletions

View File

@@ -19,7 +19,6 @@
(defonce am (asset-manager))
(set-asset-manager! am)
(defgame advent
:on-create
@@ -27,7 +26,6 @@
(steam/init)
(set-screen! this title/title-screen)))
(defn reload []
(on-gl (set-screen! advent title/title-screen)))

View File

@@ -342,7 +342,8 @@
(continue [this screen entities]
(if (= 185 (get-in entities [:room :entities :bloodclot :current-frame-index]))
(particle-effect! (get-in entities [:room :entities :grow-explode]) :start))
(do (particle-effect! (get-in entities [:room :entities :grow-explode]) :reset)
(particle-effect! (get-in entities [:room :entities :grow-explode]) :start)))
(let [move-speed (* 0.17
(/ (:delta-time screen)

View File

@@ -117,7 +117,7 @@
:finish (fn [entities]
(utils/stop-music (:music entities))
(reset! utils/selected-save save)
(set-screen! @(resolve 'advent.core/advent) scene/scene scene/demo scene/hud dialogue/talking-screen dialogue/choice-screen dialogue/toast-screen inventory/inventory-screen safe/safe-screen fade/fade-screen
(set-screen! @(resolve 'advent.core/advent) scene/scene #_scene/demo scene/hud dialogue/talking-screen dialogue/choice-screen dialogue/toast-screen inventory/inventory-screen safe/safe-screen fade/fade-screen
)
entities)
:ease tween/ease-in-cubic))