(ns advent.screens.dialogue
  (:require [play-clj.core :refer :all]
            [play-clj.ui :refer :all]
            [play-clj.utils :refer :all]
            [play-clj.g2d :refer :all]
            [clojure.pprint]
            [advent.pathfind])
  (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
           [com.badlogic.gdx.graphics.g2d TextureRegion]))

(defscreen talking-screen
  :on-show
  (fn [screen entities]
    (update! screen :renderer (stage) :camera (orthographic))
    {})
  :on-render
  (fn [screen [entities]]
    (render! screen (vals entities))
    entities)

  :on-talk
  (fn [{:keys [create-talk target-id text x y]} [entities]]
    (let [font (bitmap-font "mainfont.fnt" ) 
          tr (bitmap-font! font :get-region)
          tx (.getTexture tr)
          _ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
          talk (assoc (label text (style :label font (color :white)) ) :x (* 4 x) :y (* 4 y))]
      (label! talk :set-font-scale 1)
      (assoc entities target-id talk)))

  :stop-talk
  (fn [{:keys [target-id] } [entities]]
    (dissoc entities target-id))
  

  
  :on-resize (fn [screen entities]
               (height! screen (game :height))))