(ns advent.screens.rooms.dream
  (:require 
   [clojure.core.async :as a]
   [advent.screens.rooms :as rooms]
            [advent.screens.rooms.common :as common]
            [advent.actions :as actions]
            [advent.screens.items :as items]
            [advent.utils :as utils]
            [clojure.zip :as zip]
            [clojure.set :as set]
            [clojure.string :as str]
            [play-clj.core :refer :all]
            [play-clj.math :refer :all]
            [play-clj.ui :refer :all]
            [play-clj.utils :refer :all]
            [play-clj.g2d :refer :all]))

(def walk-chan (a/chan))

(defn do-intro [entities]
  (a/go
    (actions/do-dialogue entities
                         :ego "Oh hi there!"
                         :ego "I'm Faceplant, the great knight, and this is my dream!"
                         :ego "Just like in real life, I can walk around if you just click somewhere on the screen."
                         :ego "Give it a shot, whydontya?")
    (actions/walk-to entities :ego [100 100])
    (actions/talk entities :ego "I can also pick up stuff by clicking on it.")))

(defn make [screen]
  (let [fairy-godfather-anim (utils/make-anim "dream/fairy-godfather.png" [63 77] 0.15 [0 1 2 3 2 1 0 1 4 3 2 1])
        fairy-godfather-talk-anim (utils/make-anim "dream/fairy-godfather.png" [63 77] 0.15 [5 6 7 8 7 6])]
    (rooms/make :music :town-1
                :interactions {}
                :layers [(assoc (texture "dream/clouds1.png") :x -10 :y 0 :baseline -1 :parallax 0.2 :scale-x 1.1 :scale-y 1.1)
                         (assoc (texture "dream/island.png") :x 180 :y 180 :baseline 0 :parallax 0.3 :scale-x 1.1 :scale-y 1.1)
                         (assoc (texture "dream/cliff.png") :x 50 :y 133 :baseline 1 :parallax 0.6 :scale-x 1.2 :scale-y 1.2) 
                         (assoc (texture "dream/background.png") :x 0 :y 0 :baseline 2)
                         (assoc (texture "dream/corner-l.png") :x -10 :y -10 :baseline 240 :parallax 2.0)
                         (assoc (texture "dream/corner-r.png") :x  (- 320 80) :y -20 :baseline 240 :parallax 3.2)
                         (assoc (texture "dream/pedestals.png") :x 0 :y 0 :baseline 139)]
                :entities {:clouds (assoc (particle-effect "dream/cloudy2") :x 160 :y 120 :baseline 241)
                           :sword (assoc (texture "dream/sword.png")
                                         :x 144 :y 122 :baseline 139
                                         :script (actions/get-script entities
                                                             (actions/walk-to entities :ego [168 76] :face :left)
                                                             (actions/do-dialogue entities :ego "Awesome! I'll take this sword and become a knight.")
                                                             (actions/stop-walking entities :ego :face :right)
                                                             (actions/do-dialogue entities
                                                                                  :fairy-godfather "Tick, I'm not sure that being a knight is right for you."
                                                                                  :fairy-godfather "I think you'd be better suited for a more menial job."
                                                                                  :ego "Hey! Why can't I be a knight! It's my destiny!"
                                                                                  :ego "And plus, knights get all the chicks!"
                                                                                  :ego "And this plaque here says that chicks dig knights.")))
                           :broom (assoc (texture "dream/broom.png") :x 286 :y 122
                                         :path (catmull-rom-spline (map #(apply vector-2* %)  [[286 122] [286 128]]) true)
                                         :update-fn (partial utils/update-path-location 0.30)
                                         :baseline 240
                                         :script (actions/get-script entities
                                                                      (actions/walk-to entities :ego [267 70] :face :right)
                                                                      (actions/talk entities :ego "So do I kill ghouls with this broom?")
                                                                      (actions/stop-walking entities :ego :face :left)
                                                                      (actions/do-dialogue entities :fairy-godfather "Not quite, young Tick."
                                                                                           :fairy-godfather "This weapon is used to fight a more persistent foe."
                                                                                           :fairy-godfather "Dust and grime!"
                                                                                           :fairy-godfather "Take the broom, and cast it into the pit of fate."
                                                                                           :fairy-godfather "Then you can fulfill your fate as a janitor.")))
                           :shovel (assoc (texture "dream/shovel.png") :x 33 :y 122
                                          :path (catmull-rom-spline (map #(apply vector-2* %)  [[22 122] [22 128]]) true)
                                          :update-fn (partial utils/update-path-location 0.33)
                                          :baseline 240
                                          :script (actions/get-script entities
                                                                      (actions/walk-to entities :ego [61 72] :face :left)
                                                                      (actions/talk entities :ego "A shovel?")
                                                                      (actions/stop-walking entities :ego :face :right)
                                                                      (actions/do-dialogue entities :fairy-godfather "That's right, young Tick!"
                                                                                           :fairy-godfather "A grave-digger is a noble profession!"
                                                                                           :fairy-godfather "Take the shovel, and cast it into the pit of fate.")))
                           :sign (assoc (texture "dream/sign.png") :x 229 :y 33 :baseline 207)
                           :fairy-godfather (assoc (animation->texture screen fairy-godfather-anim)
                                                   :x 200 :y 130
                                                   :baseline 150
                                                   :talk fairy-godfather-talk-anim
                                                   :stand fairy-godfather-anim
                                                   :anim fairy-godfather-anim :anim-start 0
                                                   :path (catmull-rom-spline (map #(apply vector-2* %)  [[200 130] [200 134]]) true)
                                                   :update-fn (partial utils/update-path-location 0.2)
                                                   :script (actions/get-script entities (actions/do-dialogue entities :fairy-godfather "Young Tick, you must choose your destiny!")))}
                :collision "dream/collision.png"
                :scale-fn (utils/scaler-fn-with-baseline 40 0.5 1.6)
                :start-pos [140 55])))