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

temporarily turning off autosave which was causing crashes.

Browse Source
This commit is contained in:
Bryce Covert
2017-02-19 19:48:27 -08:00
parent 4c4655aeff
commit 90d22ae981
3 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
desktop/gametodos.txt
View File

@@ -9,3 +9,7 @@ inventory selected item needs to be rendered on top
CLOJURE 1.8 direct linking CLOJURE 1.8 direct linking
sometimes arrow takes override
hard to leave castle gate
obvious about calculating path? seems to just pause a long time

3
desktop/src-common/advent/actions.clj
View File

@@ -102,8 +102,7 @@
(let [~entities (atom starting-entities#)] (let [~entities (atom starting-entities#)]
(thread (binding [*fg-bg-key* :fg-actions] (thread (binding [*fg-bg-key* :fg-actions]
~@forms ~@forms
(change-script-state ~entities false) (change-script-state ~entities false))))))))
(utils/save @~entities "autosave" "Autosave"))))))))
(defn force-end [entities current-action key] (defn force-end [entities current-action key]
(do (when current-action (do (when current-action

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

@@ -115,7 +115,7 @@
:on-show :on-show
(fn [screen entities options] (fn [screen entities options]
(let [screen (utils/setup-viewport screen 1280 960) (let [screen (utils/setup-viewport screen 1280 960)
hovered-text (assoc (label "Hello" (style :label (utils/get-font "ego/font.fnt") (color :white)) :set-font-scale 0.25) :x 0 :y 850 :width 1280 )] hovered-text (assoc (label "" (style :label (utils/get-font "ego/font.fnt") (color :white)) :set-font-scale 0.25) :x 0 :y 850 :width 1280 )]
(label! hovered-text :set-alignment Align/bottom) (label! hovered-text :set-alignment Align/bottom)
(utils/add-actor-to-stage screen hovered-text) (utils/add-actor-to-stage screen hovered-text)
{:overlay (assoc (utils/get-texture "inventory-overlay.png" ) :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0 :opacity 0.0) {:overlay (assoc (utils/get-texture "inventory-overlay.png" ) :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0 :opacity 0.0)
@@ -163,6 +163,7 @@
(when-not (:shown? entities) (when-not (:shown? entities)
(label! (entities :hovered-text) :set-text "") (label! (entities :hovered-text) :set-text "")
(-> entities (-> entities
(assoc-in [:hovered-text :text] "")
(assoc :shown? true (assoc :shown? true
:opacity 0.0 :opacity 0.0
:items (into {} (for [[item index] (map vector items (range)) :items (into {} (for [[item index] (map vector items (range))