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

Saving much better!

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 17:07:26 -08:00
parent 3326629189
commit 6586faf583
12 changed files with 78 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -101,7 +101,7 @@
flipped))
(defn quest-label []
(if (:seen-intro? (utils/load-snapshot :autosave))
(if (seq (utils/snapshot-list))
"Continue quest"
"Begin quest"))
@@ -210,19 +210,20 @@
(.setUncheckLast true))
[cell-w cell-h] [218 161]
make-cell (fn [image] [image :width cell-w :pad 4 4 4 4 :height cell-h])
make-save-screenshot (fn [[save-name save-screenshot]]
make-save-screenshot (fn [{:keys [screenshot name id state] :as save}]
(let [btn (doto (assoc (image-button (skin "ui/ui.json"))
:save save-name)
(image-button! :set-size cell-w cell-h)
(image-button! :add (doto (Group. )
(.setSize (- cell-w 16) (- cell-h 16) )
(.setOrigin (/ (- cell-w 16) 2) (/ (- cell-h 16) 2))
(.addActor (:object (doto (image (texture save-screenshot))
(image! :set-size (- cell-w 16) (- cell-h 16)))))
(.addActor (:object (make-label (str " " (subs save-name 0 (min (.length save-name) 10))))))
))
save-object)]
:save save
:name name)
(image-button! :set-size cell-w cell-h)
(image-button! :add (doto (Group. )
(.setSize (- cell-w 16) (- cell-h 16) )
(.setOrigin (/ (- cell-w 16) 2) (/ (- cell-h 16) 2))
(.addActor (:object (doto (image (texture screenshot))
(image! :set-size (- cell-w 16) (- cell-h 16)))))
(.addActor (:object (make-label (str " " (subs name 0 (min (.length name) 10))))))
))
save-object)]
(.add group (:object btn))
(ActorEntity. (:object btn))))
save-screenshots (map make-save-screenshot (:saves-list entities))
@@ -381,14 +382,14 @@
(= :continue-or-start actor-key)
(start-playing screen entities (if (= "Begin quest" (quest-label))
nil
:autosave))
(first (utils/snapshot-list))))
(= :continue actor-key)
(start-playing screen entities (saves/name->save (:selected-save entities)))
(start-playing screen entities (:selected-save entities))
(:save e)
(do
(label! (-> entities :save-menu :save-label) :set-text (:save e))
(label! (-> entities :save-menu :save-label) :set-text (:name (:save e)))
(text-button! (-> entities :save-menu :continue-button) :set-disabled false)
(assoc entities :selected-save (:save e)))