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

final font fixes and achievement fixes

Browse Source
This commit is contained in:
Bryce Covert
2016-02-24 15:03:15 -08:00
parent 8c5d719832
commit fae7f8da50
2 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -8,6 +8,7 @@
[advent.utils :as utils]
[advent.saves :as saves]
[advent.tween :as tween]
[advent.steam :as steam]
[advent.screens.scene :as scene]
[advent.screens.dialogue :as dialogue]
[clojure.tools.logging :as log]
@@ -405,6 +406,7 @@
:on-render
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
(steam/update)
(.apply viewport)
(clear!)
(let [entities (utils/apply-tweens screen entities (:tweens entities))

22
desktop/src-common/advent/steam.clj
View File

@@ -1,6 +1,8 @@
(ns advent.steam
(:require [play-clj.core :refer :all]
[clojure.edn :as edn])
[clojure.edn :as edn]
[clojure.tools.logging :as log]
)
(:import [java.nio ByteBuffer CharBuffer]
[java.io ByteArrayOutputStream]
[com.badlogic.gdx.graphics PixmapIO$PNG]
@@ -22,8 +24,11 @@
(defn init []
(steamify
(if (not (SteamAPI/init))
(def has-steam? false))))
(if (SteamAPI/init)
(log/info "Steam initialized")
(do
(log/info "Steam not initialized")
(def has-steam? false)))))
(defn update []
(steamify
@@ -33,6 +38,7 @@
(defn achievement-fn [f achievement]
(steamify
(let [stats (atom nil)]
(log/info "Getting stats...")
(reset! stats (SteamUserStats. (reify SteamUserStatsCallback
(onUserStatsReceived [_ _ _ _]
(f @stats achievement)
@@ -43,15 +49,19 @@
(def set-achievement (partial achievement-fn
(fn [stats achievement]
(log/info "Setting achievement" achievement)
(.setAchievement stats achievement)
(.storeStats stats))))
(.storeStats stats)
(log/info "Done setting achievement" achievement))))
(def clear-achievement (partial achievement-fn
(fn [stats achievement]
(log/info "Clearing achievement" achievement)
(.clearAchievement stats achievement)
(.storeStats stats))))
(.storeStats stats)
(log/info "Done clearing achievement" achievement))))
(def all-achievements ["MASTER_SLEUTH"])
(def all-achievements ["PARDON" "EX_CON" "PRO_WRESTLER" "SHEEP_HORDER" "SAFE_AND_SOUND" "DESTINY" "WISE_UP" "BLOODCLOT" "KITTY_KISS"])
(defn clear-all-achievements []
(doall (map clear-achievement all-achievements)))