40 lines
1.3 KiB
Clojure
40 lines
1.3 KiB
Clojure
(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.safe :as safe]
|
|
[advent.steam :as steam]
|
|
[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]
|
|
(steam/init)
|
|
(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)))))
|