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

more android tweaks.

Browse Source
This commit is contained in:
Bryce Covert
2015-09-11 23:01:22 -07:00
parent 0945a7fa78
commit 4d14cac8d9
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,12 @@
(assoc-in [:tweens :fade-out] (tween/tween :fade-out screen [:opacity] 1.0 0.0 0.2 :ease tween/ease-out-cubic
:finish #(assoc % :shown? false)))))
(defn mouse-interact [screen [entities]]
(let [[x y] (utils/unproject screen)
selected-entity (first (filter #((:box %) x y) (:items entities)))]
(if selected-entity
(assoc entities :highlighted-item (:item selected-entity))
(assoc entities :highlighted-item nil))))
(defscreen inventory-screen
:on-show
@@ -97,12 +103,8 @@
:box (zone/box (- offset-x padding) (- offset-y padding) (+ offset-x item-width padding padding) (+ offset-y item-width padding padding)))))
(assoc-in [:tweens :fade-in] (tween/tween :fade-in screen [:opacity] 0.0 1.0 0.2 :ease tween/ease-out-cubic)))))
:on-mouse-moved (fn [screen [entities]]
(let [[x y] (utils/unproject screen)
selected-entity (first (filter #((:box %) x y) (:items entities)))]
(if selected-entity
(assoc entities :highlighted-item (:item selected-entity))
(assoc entities :highlighted-item nil))))
:on-mouse-moved mouse-interact
:on-touch-down mouse-interact
:on-touch-up (fn [screen [entities]]
(when (and (:shown? entities) (= (button-code :left) (:button screen)) (= 1.0 (:opacity entities)))

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

@@ -827,7 +827,7 @@ void main()
layers)))
(defn get-state []
(if (.exists (io/file "save.edn"))
(if (utils/has-save?)
(utils/load)
{:object nil
:active? true

13
desktop/src-common/advent/utils.clj
View File

@@ -49,10 +49,19 @@
resized ))
(defn save [entities]
(spit "save.edn" (entities :state)))
(doto (.getPreferences (Gdx/app) "ticks-tales-saves")
(.putString "save-1" (pr-str (entities :state)))
.flush))
(defn has-save? []
(-> (.getPreferences (Gdx/app) "ticks-tales-saves")
(.contains "save-1")))
(defn load []
(assoc (edn/read-string (slurp "save.edn")) :active? true))
(-> (.getPreferences (Gdx/app) "ticks-tales-saves")
(.getString "save-1")
edn/read-string
(assoc :active? true)))
(defn load-settings! []
(when (.exists (io/file "settings.edn"))