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

intrudoced sub directory for non-steam saves.

Browse Source
This commit is contained in:
Bryce Covert
2016-01-29 16:43:32 -08:00
parent 31420115a9
commit c328fe847d
5 changed files with 27 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
desktop/src-common/advent/screens/scene.clj
View File

@@ -1032,6 +1032,7 @@ void main ()
:on-show
(fn [screen entities]
(log/info "Initializing scene.")
(let [screen (assoc screen :total-time 0)]
(let [[^OrthographicCamera cam] (utils/setup-viewport screen 320 240)]
@@ -1142,7 +1143,7 @@ void main ()
(doseq [[k [start time fn]] (get-in entities [:room :timers])]
(add-timer! screen k start time))
(log/info "[done] Initializing scene.")
(if-let [apply-state (get-in entities [:room :apply-state])]
(apply-state screen entities)

8
desktop/src-common/advent/screens/title.clj
View File

@@ -10,6 +10,7 @@
[advent.tween :as tween]
[advent.screens.scene :as scene]
[advent.screens.dialogue :as dialogue]
[clojure.tools.logging :as log]
[advent.screens.title :as title]
[advent.screens.inventory :as inventory]
[advent.screens.safe :as safe]
@@ -65,7 +66,8 @@
(def do-once (atom false))
(defn quit [screen entities]
(do (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
(do (log/info "Quitting.")
(input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
(-> entities
(assoc-in [:tweens :fade-out]
(tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
@@ -110,7 +112,8 @@
"Begin quest"))
(defn start-playing [screen entities save]
(do (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
(do (log/info "Starting/Continuing quest.")
(input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
(-> entities
(assoc-in [:tweens :fade-out]
(tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
@@ -305,6 +308,7 @@
:on-show
(fn [screen entities]
(utils/setup-viewport screen 1280 960)
(log/info "Starting title screen.")
(let [font (utils/get-font "ego/font.fnt")
music (utils/make-music "music/intro.ogg")