119 lines
3.8 KiB
Clojure
119 lines
3.8 KiB
Clojure
(ns advent.steam
|
|
(:require [play-clj.core :refer :all]
|
|
[clojure.edn :as edn])
|
|
(:import [java.nio ByteBuffer CharBuffer]
|
|
[java.io ByteArrayOutputStream]
|
|
[com.badlogic.gdx.graphics PixmapIO$PNG]
|
|
))
|
|
|
|
(def has-steam?
|
|
(try
|
|
(import '[com.codedisaster.steamworks SteamUserStats SteamUserStatsCallback SteamAPI SteamRemoteStorage])
|
|
true
|
|
(catch Exception e
|
|
false)))
|
|
|
|
(defmacro steamify [steam-version & [regular-version]]
|
|
(if has-steam?
|
|
`(if (and has-steam? (not (System/getProperty "no-steam")))
|
|
~steam-version
|
|
~regular-version)
|
|
regular-version))
|
|
|
|
(defn init []
|
|
(steamify
|
|
(if (not (SteamAPI/init))
|
|
(def has-steam? false))))
|
|
|
|
(defn update []
|
|
(steamify
|
|
(when (SteamAPI/isSteamRunning)
|
|
(SteamAPI/runCallbacks))))
|
|
|
|
(defn achievement-fn [f achievement]
|
|
(steamify
|
|
(let [stats (atom nil)]
|
|
(reset! stats (SteamUserStats. (reify SteamUserStatsCallback
|
|
(onUserStatsReceived [_ _ _ _]
|
|
(f @stats achievement)
|
|
)
|
|
(onUserStatsStored [_ _ _])
|
|
(onUserAchievementStored [_ _ _ _ _ _]))))
|
|
(.requestCurrentStats @stats))))
|
|
|
|
(def set-achievement (partial achievement-fn
|
|
(fn [stats achievement]
|
|
(.setAchievement stats achievement)
|
|
(.storeStats stats))))
|
|
|
|
(def clear-achievement (partial achievement-fn
|
|
(fn [stats achievement]
|
|
(.clearAchievement stats achievement)
|
|
(.storeStats stats))))
|
|
|
|
(def all-achievements ["MASTER_SLEUTH"])
|
|
|
|
(defn clear-all-achievements []
|
|
(doall (map clear-achievement all-achievements)))
|
|
|
|
(defn get-bytes [filename]
|
|
(steamify
|
|
(let [rs (SteamRemoteStorage. nil)
|
|
len (.getFileSize rs filename)
|
|
bb (ByteBuffer/allocateDirect len)
|
|
bytes (make-array Byte/TYPE len)]
|
|
(.fileRead rs filename bb len)
|
|
(.get bb bytes)
|
|
bytes)
|
|
(.readBytes (files! :local filename))))
|
|
|
|
(defn write-bytes [filename bytes]
|
|
(steamify
|
|
(let [rs (SteamRemoteStorage. nil)
|
|
bb (ByteBuffer/allocateDirect (* 2 (count bytes)))]
|
|
(-> bb (.put bytes) )
|
|
(.fileWrite rs filename bb (* 2 (count bytes))))
|
|
(let [f (files! :local filename)]
|
|
(.writeBytes f bytes false))))
|
|
|
|
(defn list-edn-files []
|
|
(steamify
|
|
(let [rs (SteamRemoteStorage. nil)]
|
|
(for [i (range (.getFileCount rs))
|
|
:let [n (.getFileNameAndSize rs i (make-array Integer/TYPE 1))]
|
|
:when (.endsWith n ".edn")]
|
|
n))
|
|
(for [save-file (.list (files! :local "saves/") ".edn")]
|
|
(str "saves/" (.name save-file)))))
|
|
|
|
(defn save-screenshot [pm filename]
|
|
(steamify
|
|
(let [rs (SteamRemoteStorage. nil)
|
|
png (PixmapIO$PNG. (* (.getWidth pm) (.getHeight pm) 1.5))
|
|
baos (ByteArrayOutputStream. (* (.getWidth pm) (.getHeight pm) 1.5))
|
|
_ (.write png baos pm)
|
|
bytes (.toByteArray baos)
|
|
bb (ByteBuffer/allocateDirect (count bytes))]
|
|
(.put bb bytes)
|
|
(.fileWrite rs filename bb (count bytes)))
|
|
(let [f (files! :local filename)
|
|
png (PixmapIO$PNG. (* (.getWidth pm) (.getHeight pm) 1.5))]
|
|
|
|
(.write png f pm)
|
|
(.dispose png))))
|
|
|
|
(defn delete-file [filename]
|
|
(steamify
|
|
(.fileDelete (SteamRemoteStorage. nil) filename)
|
|
(.delete (files! :local filename))))
|
|
|
|
(defn save-screenshot-file-name [name]
|
|
(steamify
|
|
(str "screenshot-" (clojure.core/name name) ".png" )
|
|
(str "saves/screenshot-" (clojure.core/name name) ".png" )))
|
|
|
|
(defn save-file-name [id]
|
|
(steamify
|
|
(str id ".edn")
|
|
(str "saves/" id ".edn")))
|