32 lines
969 B
Clojure
32 lines
969 B
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.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)))
|