Read from steam or local file.

This commit is contained in:
Bryce Covert
2015-11-21 16:19:09 -08:00
parent 7d47414fa9
commit 5da5995894
3 changed files with 10 additions and 12 deletions

View File

@@ -1 +1 @@
16
17

View File

@@ -82,14 +82,13 @@
(.put bb# bytes#)
(.fileWrite rs# ~filename bb# (count bytes#))))))
(defn download-screenshot [filename]
(when (and has-steam? (not (.exists (files! :local filename))))
(defn get-screenshot-bytes [filename]
(if has-steam?
(eval `(let [rs# (SteamRemoteStorage. nil)
len# (.getFileSize rs# ~filename)
bb# (ByteBuffer/allocateDirect len#)
bytes# (make-array Byte/TYPE len#)]
(do (.fileRead rs# ~filename bb# len#)
(.get bb# bytes#)
(.writeBytes (files! :local ~filename)
bytes#
false))))))
bytes#)))
(.readBytes (files! :local filename))))

View File

@@ -74,12 +74,11 @@
(defn snapshot-screenshots []
(doall (for [snapshot (snapshot-list)]
(do
(steam/download-screenshot (:screenshot snapshot))
(update-in snapshot [:screenshot]
#(try (Pixmap. (files! :local %) )
(catch Exception e
(Pixmap. 160 120 Pixmap$Format/RGB888))))))))
(assoc-in snapshot [:screenshot]
(try (let [bytes (steam/get-screenshot-bytes (:screenshot snapshot))]
(Pixmap. bytes 0 (count bytes)))
(catch Exception e
(Pixmap. 160 120 Pixmap$Format/RGB888)))))))
(defn save-chapter [entities chapter]
(let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")