made screen reloading middleware.

desktop/last-release

@@ -1 +1 @@
-31
+32

desktop/project.clj

@@ -24,6 +24,7 @@
                    :jvm-opts ["-Duse-repl=true" "-Dno-steam=true"]
                    :dependencies [[com.badlogicgames.gdx/gdx-tools "1.5.3"]
                                   [org.clojure/tools.nrepl "0.2.7"]
+                                  [play-clj-nrepl "0.1.0" :exclusions [play-clj]]
                                   [slamhound "1.5.5"]
                                   [org.clojure/data.csv "0.1.3"]]
                    
@@ -34,6 +35,7 @@
                          :jvm-opts ["-Duse-repl=true"]
                          :dependencies [[com.badlogicgames.gdx/gdx-tools "1.5.3"]
                                         [org.clojure/tools.nrepl "0.2.7"]
+                                        [play-clj-nrepl "0.1.0" :exclusions [play-clj]]
                                         [slamhound "1.5.5"]
                                         [org.clojure/data.csv "0.1.3"]
                                         [com.code-disaster.steamworks4j/steamworks4j "1.2.2"]]

desktop/src-common/advent/core.clj

@@ -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)))
 

desktop/src-common/advent/screens/rooms/common.clj

@@ -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)

desktop/src-common/advent/screens/title.clj

@@ -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))

desktop/src/advent/core/desktop_launcher.clj

@@ -9,22 +9,19 @@
 
 
 
-
+(def has-nrepl?
+  (try
+    (require '[play-clj-nrepl.core :as a])
+    (System/getProperty "use-repl")
+    (catch Exception e 
+      (println e)
+      false)))
 
 (defn -main
   [& [port]]
-  (when (System/getProperty "use-repl")
+  (when has-nrepl?
-    (eval `(require 'clojure.tools.nrepl.server))
+    (play-clj-nrepl.core/start-nrepl advent.core/advent port))
-    (eval `(try
+  
-             
-             (when ~port (let [{port# :port} (clojure.tools.nrepl.server/start-server :port (Integer/parseInt ~port))]
-                          (doseq [port-file# ["target/repl-port" ".nrepl-port"]]
-                            (-> port-file#
-                                java.io.File.
-                                (doto .deleteOnExit)
-                                (spit port#)))
-                          (println "Started nREPL server on port" port#)))
-             (catch Exception e#))))
 
   (let [cfg (LwjglApplicationConfiguration.)]
     #_(println (.exists (files! :classpath "icon/icon_128x128.png")))