should allow steam achievements.

desktop/src-common/advent/core.clj

@@ -9,6 +9,7 @@
             [advent.screens.credits :as credits]
             [advent.screens.inventory :as inventory]
             [advent.screens.safe :as safe]
+            [advent.steam :as steam]
             [clojure.pprint]
             [advent.pathfind])
   (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
@@ -23,6 +24,7 @@
 (defgame advent
   :on-create
   (fn [this]
+    (steam/init)
     (set-screen! this title/title-screen)))
 
 

desktop/src-common/advent/screens/rooms/behind_house.clj

@@ -4,11 +4,13 @@
             [advent.screens.items :as items]
             [advent.actions :as actions]
             [advent.utils :as utils]
+            [advent.steam :as steam]
             [clojure.zip :as zip]
             [play-clj.core :refer :all]
             [play-clj.ui :refer :all]
             [play-clj.utils :refer :all]
-            [play-clj.g2d :refer :all]))
+            [play-clj.g2d :refer :all])
+  )
 
 (defn make-night [entities]
   (assoc-in entities [:room :entities :peeling :opacity] 0))
@@ -86,7 +88,9 @@
                                                                           (actions/play-sound entities "safe-sound.ogg" 0.1)
                                                                           (actions/talk entities :ego "So that's the code to his safe..." :animate? false :stop? false)
                                                                           (actions/play-animation entities :ego :end-squat)
-                                                                          (actions/talk entities :ego "A lot of good it'll do me to know his password while he's still there."))
+                                                                          (actions/talk entities :ego "A lot of good it'll do me to know his password while he's still there.")
+                                                                          (steam/set-achievement "MASTER_SLEUTH")
+                                                                          )
 
                                                                       :else
                                                                       (do (actions/walk-to entities :ego [80 80] :face :left)

desktop/src-common/advent/screens/scene.clj

@@ -15,6 +15,7 @@
             [advent.utils :as utils]
             [advent.saves :as saves]
             [advent.tween :as tween]
+            [advent.steam :as steam]
             [advent.screens.rooms :as rooms]
             [advent.screens.fade :refer [fade-screen]]
             [advent.screens.items :as items]
@@ -1122,6 +1123,7 @@ void main ()
   
   :on-render
   (fn [{:keys [^OrthographicCamera camera ^FitViewport viewport] :as screen} [entities]]
+    (steam/update)
     (.apply viewport)
     (if (get-in entities [:closing? :value])
       

desktop/src-common/advent/steam.clj

@@ -0,0 +1,20 @@
+(ns advent.steam)
+
+(def has-steam?
+  (try
+    (import '[com.codedisaster.steamworks SteamUserStats SteamUserStatsCallback SteamAPI])
+    true
+    (catch Exception e
+      false)))
+
+(defn init []
+  (when has-steam?
+    (eval `(SteamAPI/init))))
+
+(defn update []
+  (when (and has-steam? (eval `(SteamAPI/isSteamRunning)))
+    (eval `(SteamAPI/runCallbacks))))
+
+(defn set-achievement [achievement]
+  (when has-steam?
+    (eval `(.setAchievement (SteamUserStats. nil) ~achievement))))