(ns advent.core
  (:require [play-clj.core :refer :all]
            [play-clj.ui :refer :all]
            [play-clj.utils :refer :all]
            [play-clj.g2d :refer :all]
            [advent.screens.scene :as scene]
            [advent.screens.dialogue :as dialogue]
            [advent.screens.title :as title]
            [advent.screens.credits :as credits]
            [advent.screens.inventory :as inventory]
            [advent.screens.test :as test]
            [advent.screens.safe :as safe]
            [clojure.pprint]
            [advent.pathfind])
  (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
          [com.badlogic.gdx.graphics.g2d TextureRegion]
          [com.badlogic.gdx Gdx Application]))

(defonce am (asset-manager))

(set-asset-manager! am)

 
(defgame advent
  :on-create
  (fn [this]
    (set-screen! this title/title-screen)))


(defn reload []
  (on-gl (set-screen! advent title/title-screen)))

(set-screen-wrapper! (fn [screen screen-fn]
                       (try (screen-fn)
                            (catch Exception e
                              (.log Gdx/app "ERROR" (with-out-str (.printStackTrace e)))
                              (.printStackTrace e)
                              (set-screen! advent title/title-screen)))))