105 lines
4.8 KiB
Clojure
105 lines
4.8 KiB
Clojure
(ns advent.screens.title
|
|
(:require [play-clj.core :refer :all]
|
|
[play-clj.ui :refer :all]
|
|
[play-clj.utils :refer :all]
|
|
[play-clj.g2d :refer :all]
|
|
[advent.utils :as utils]
|
|
[advent.tween :as tween]
|
|
[advent.screens.scene :as scene]
|
|
[advent.screens.dialogue :as dialogue]
|
|
[advent.screens.title :as title]
|
|
[advent.screens.inventory :as inventory]
|
|
[advent.screens.safe :as safe]
|
|
)
|
|
(:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
|
|
[com.badlogic.gdx.graphics.g2d TextureRegion]
|
|
[com.badlogic.gdx.scenes.scene2d.utils Align]
|
|
[com.badlogic.gdx Application Audio Files Game Gdx Graphics Input
|
|
InputMultiplexer InputProcessor Net Preferences Screen]))
|
|
|
|
|
|
(defn get-color [e mouse-pos]
|
|
(if (utils/intersects? e mouse-pos)
|
|
(color :yellow)
|
|
(color 0.6 1.0 1.0 1.0)))
|
|
|
|
(defn style-label [e font mouse-pos]
|
|
(label! e :set-style (style :label font (get-color e mouse-pos)))
|
|
e)
|
|
|
|
(defn center [e]
|
|
(assoc e :x (- (/ 1280 2) (/ (.getWidth (:object e)) 2))))
|
|
|
|
(defscreen title-screen
|
|
:on-show
|
|
(fn [screen entities]
|
|
(update! screen :renderer (stage) :camera (orthographic))
|
|
(let [font (utils/get-font "ego/font.fnt")
|
|
start-playing (assoc (label "Embark on thy adventure" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y 100)
|
|
start-playing (center start-playing)
|
|
quit (assoc (label "Quit thy adventure" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y 50)
|
|
quit (center quit)
|
|
music (utils/make-music "intro.ogg")]
|
|
(label! start-playing :set-alignment Align/center)
|
|
|
|
{:overlay (assoc (texture "title-overlay.png" ) :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0)
|
|
:fade (assoc (texture "black.png")
|
|
:scale-x 80
|
|
:scale-y 80
|
|
:opacity 1.0)
|
|
:font font
|
|
:music music
|
|
:volume 1.0
|
|
:start-showing? false
|
|
:start-playing start-playing
|
|
:quit quit
|
|
:tweens {:fade-in (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0
|
|
:finish #(do (utils/play-sound (:music %)) %)
|
|
:ease tween/ease-in-quadratic)}
|
|
}))
|
|
|
|
:on-render
|
|
(fn [screen [entities]]
|
|
(let [entities (utils/apply-tweens screen entities (:tweens entities))]
|
|
(music! (:music entities) :set-volume 0.0 #_(:volume entities))
|
|
(render! screen [(:overlay entities) (:start-playing entities) (:quit entities) (:fade entities)])
|
|
entities))
|
|
|
|
:show-screen (fn [entities]
|
|
entities)
|
|
|
|
:on-mouse-moved (fn [screen [entities]]
|
|
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
|
|
(style-label (:start-playing entities) (get-in entities [:font]) [x y])
|
|
(style-label (:quit entities) (get-in entities [:font]) [x y])
|
|
entities))
|
|
|
|
:on-touch-up (fn [screen [entities]]
|
|
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
|
|
(cond
|
|
(utils/intersects? (:start-playing entities) [x y])
|
|
(-> entities
|
|
(assoc-in [:tweens :fade-out]
|
|
(tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
|
|
:finish (fn [entities]
|
|
(utils/stop-sound (:music entities))
|
|
(set-screen! @(resolve 'advent.core/advent) scene/scene scene/hud dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen )
|
|
entities)
|
|
:ease tween/ease-in-cubic))
|
|
(assoc-in [:tweens :fade-out-music]
|
|
(tween/tween :fade-out-music screen [:volume] 1.0 0.0 1.8)))
|
|
(utils/intersects? (:quit entities) [x y])
|
|
(-> entities
|
|
(assoc-in [:tweens :fade-out]
|
|
(tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
|
|
:finish (fn [entities]
|
|
(System/exit 0)
|
|
entities)
|
|
:ease tween/ease-in-cubic)))
|
|
|
|
:else
|
|
nil)))
|
|
|
|
:on-resize (fn [screen entities]
|
|
(size! screen 1280 960)))
|