(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.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 tween [id screen path start end time finish]
  (let [start-time (or (:total-time screen) 0.0)]
    (fn [e total-time]
      (let [delta-time (- total-time start-time)
            pct-done (min (/ delta-time time) 1.0)
            e (assoc-in e path (+ start (* pct-done (- end start))))]
        (if (= 1.0 pct-done)
          (update-in (finish e) [:tweens] dissoc id)
          e)
        ))))

(defscreen title-screen
  :on-show
  (fn [screen entities]
    (update! screen :renderer (stage) :camera (orthographic))
    (let [start-playing (assoc (label "Start Game" (style :label (utils/get-font "ego/font.fnt") (color :red))) :x 0 :y 850 :width 1280)
          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)
       :music music
       :volume 1.0
       :start-showing? false
       :start-playing start-playing
       :tweens {:fade-in (tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0 #(do (utils/play-sound (:music %)) %))}
       }))

  :on-render
  (fn [screen [entities]]
    (let [entities (reduce (fn [e f]
                             (f e (:total-time screen)))
                           entities
                           (vals (:tweens entities)))]
      (music! (:music entities) :set-volume (:volume entities))
      (render! screen [(:overlay entities) (:start-playing entities) (:fade entities)])
      entities))

  :show-screen (fn [entities]
                 entities)

  :on-mouse-moved (fn [screen [entities]]
                    nil)

  :on-touch-up (fn [screen [entities]]
                 (-> entities
                     (assoc-in [:tweens :fade-out]
                               (tween :fade-out screen [:fade :opacity] 0.0 1.0 2.0
                                      (fn [entities]
                                        (utils/stop-sound (:music entities))
                                        (set-screen! @(resolve 'advent.core/advent) scene/scene dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen)
                                        entities)))
                     (assoc-in [:tweens :fade-out-music]
                               (tween :fade-out-music screen [:volume] 1.0 0.0 1.8 identity))))

  :on-resize (fn [screen entities]
               (size! screen 1280 960)))