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.utils :as utils]
[advent.saves :as saves] [advent.saves :as saves]
[advent.tween :as tween] [advent.tween :as tween]
[advent.steam :as steam]
[advent.screens.scene :as scene] [advent.screens.scene :as scene]
[advent.screens.dialogue :as dialogue] [advent.screens.dialogue :as dialogue]
[clojure.tools.logging :as log] [clojure.tools.logging :as log]
@@ -405,6 +406,7 @@
:on-render :on-render
(fn [{:keys [^FitViewport viewport] :as screen} [entities]] (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
(steam/update)
(.apply viewport) (.apply viewport)
(clear!) (clear!)
(let [entities (utils/apply-tweens screen entities (:tweens entities)) (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 (ns advent.steam
(:require [play-clj.core :refer :all] (:require [play-clj.core :refer :all]
[clojure.edn :as edn]) [clojure.edn :as edn]
[clojure.tools.logging :as log]
)
(:import [java.nio ByteBuffer CharBuffer] (:import [java.nio ByteBuffer CharBuffer]
[java.io ByteArrayOutputStream] [java.io ByteArrayOutputStream]
[com.badlogic.gdx.graphics PixmapIO$PNG] [com.badlogic.gdx.graphics PixmapIO$PNG]
@@ -22,8 +24,11 @@
(defn init [] (defn init []
(steamify (steamify
(if (not (SteamAPI/init)) (if (SteamAPI/init)
(def has-steam? false)))) (log/info "Steam initialized")
(do
(log/info "Steam not initialized")
(def has-steam? false)))))
(defn update [] (defn update []
(steamify (steamify
@@ -33,6 +38,7 @@
(defn achievement-fn [f achievement] (defn achievement-fn [f achievement]
(steamify (steamify
(let [stats (atom nil)] (let [stats (atom nil)]
(log/info "Getting stats...")
(reset! stats (SteamUserStats. (reify SteamUserStatsCallback (reset! stats (SteamUserStats. (reify SteamUserStatsCallback
(onUserStatsReceived [_ _ _ _] (onUserStatsReceived [_ _ _ _]
(f @stats achievement) (f @stats achievement)
@@ -43,15 +49,19 @@
(def set-achievement (partial achievement-fn (def set-achievement (partial achievement-fn
(fn [stats achievement] (fn [stats achievement]
(log/info "Setting achievement" achievement)
(.setAchievement stats achievement) (.setAchievement stats achievement)
(.storeStats stats)))) (.storeStats stats)
(log/info "Done setting achievement" achievement))))
(def clear-achievement (partial achievement-fn (def clear-achievement (partial achievement-fn
(fn [stats achievement] (fn [stats achievement]
(log/info "Clearing achievement" achievement)
(.clearAchievement stats 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 [] (defn clear-all-achievements []
(doall (map clear-achievement all-achievements))) (doall (map clear-achievement all-achievements)))