57 lines
1.6 KiB
Clojure
57 lines
1.6 KiB
Clojure
(ns advent.steam
|
|
(:require [play-clj.core :refer :all])
|
|
(:import [com.badlogic.gdx.graphics Pixmap PixmapIO$PNG]
|
|
[com.badlogic.gdx.files FileHandle]))
|
|
|
|
(def has-steam?
|
|
false
|
|
)
|
|
|
|
(def is-app-store? false)
|
|
(def all-achievements ["PARDON" "EX_CON" "PRO_WRESTLER" "SHEEP_HORDER" "SAFE_AND_SOUND" "DESTINY" "WISE_UP" "BLOODCLOT" "KITTY_KISS"])
|
|
|
|
(defn clear-achievement [])
|
|
|
|
(defn set-achievement [x])
|
|
|
|
(defn clear-all-achievements []
|
|
(doall (map clear-achievement all-achievements)))
|
|
|
|
(defn get-bytes [filename]
|
|
(.readBytes (if is-app-store?
|
|
(files! :external filename)
|
|
(files! :local filename))))
|
|
|
|
(defn write-bytes [filename bytes]
|
|
(let [f (if is-app-store?
|
|
(files! :external filename)
|
|
(files! :local filename))]
|
|
(.writeBytes f bytes false)))
|
|
|
|
(defn list-edn-files []
|
|
(if is-app-store?
|
|
(for [save-file (.list (files! :external "saves/") ".edn")]
|
|
(str "saves/" (.name ^FileHandle save-file)))
|
|
(for [save-file (.list (files! :local "saves/") ".edn")]
|
|
(str "saves/" (.name ^FileHandle save-file)))))
|
|
|
|
(defn save-screenshot [^Pixmap pm ^String filename]
|
|
(let [f (if is-app-store?
|
|
(files! :external filename)
|
|
(files! :local filename))
|
|
png (PixmapIO$PNG. (* (.getWidth pm) (.getHeight pm) 1.5))]
|
|
|
|
(.write png f pm)
|
|
(.dispose png)))
|
|
|
|
(defn delete-file [filename]
|
|
(.delete (if is-app-store?
|
|
(files! :external filename)
|
|
(files! :local filename))))
|
|
|
|
(defn save-screenshot-file-name [name]
|
|
(str "saves/screenshot-" (clojure.core/name name) ".png" ))
|
|
|
|
(defn save-file-name [id]
|
|
(str "saves/" id ".edn"))
|