IAPing.

desktop/src-common/advent/core.clj

@@ -14,6 +14,7 @@
             [advent.screens.safe :as safe]
             [advent.screens.fade :as fade]
             [advent.steam :as steam]
+            [advent.iap :as iap]
            
             [advent.pathfind])
   (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
@@ -21,12 +22,13 @@
           [com.badlogic.gdx Gdx Application]
           [java.io FileOutputStream File PrintStream]))
 
-(def has-purchased? (atom false))
-
 (defonce am (asset-manager))
 
+
 (set-asset-manager! am)
 (defn create-game [advent] 
+  (iap/use-pref)
+  
   (set-screen-wrapper! (fn [screen screen-fn]
                          (try (screen-fn)
                               (catch Exception e