(ns advent.screens.rooms.outside-castle
  (:require [advent.screens.items :as items]
            [advent.screens.rooms :as rooms]
            [advent.actions :as actions]
            [advent.utils :as utils]
            [clojure.zip :as zip]
            [play-clj.core :refer :all]
            [play-clj.ui :refer :all]
            [play-clj.utils :refer :all]
            [play-clj.g2d :refer :all]))

(defn make [screen]
  (let [peddler-sheet (texture! (texture "outside-castle/peddler-talk.png" ) :split 18 36)
        peddler-talk (animation 0.18 (for [i (flatten [2 3 2 3 2 3 6 1 0 1 0 1 0 1 0 1 2 3 2 3 2 3 6 4 5 4 5 4 5 4 5])]
                                       (aget peddler-sheet 0 i)))
        peddler-stand (animation 0.2 (for [i (flatten [(repeat 5 0) 6])]
                                       (aget peddler-sheet 0 i)))]
    (rooms/make :music :town-2
                :interactions
                {:right-dir {:box [300 40 320 140]
                             :script (actions/get-script
                                      entities
                                      (actions/walk-to entities :ego [310 80])
                                      (actions/transition-background entities :outside-house [0 80]))
                             :cursor :right}
                 :door {:box [66 180 85 195]
                        :script (actions/get-script
                                 entities
                                 (actions/walk-to entities :ego [82 180])
                                 (actions/transition-background entities :inside-castle [280 145])
                                 (actions/walk-to entities :ego [245 90]))
                        :cursor :left}
                 :garden {:box [103 170 178 200]
                          :script (actions/get-script
                                   entities
                                   (if (actions/has-item? @entities items/carrot)
                                     (actions/talk entities :ego "If I steal any more, I might get caught.") 
                                     (do
                                       (actions/walk-to entities :ego [128 180])
                                       (actions/talk entities :ego "Hey! Carrots.")
                                       (actions/play-animation entities :ego :squat)
                                       (actions/talk entities :ego "No one will notice one missing.")
                                       (actions/give entities items/carrot))))}
                 :peddler {:box [110 90 128 146]
                           :script (actions/get-script
                                    entities
                                    (actions/walk-to entities :ego [191 90])
                                    (actions/update-state entities (fn [state] (assoc state :wants-toy true)))
                                    (actions/do-dialogue entities
                                                         :ego "Hello there, peddler."
                                                         :peddler "Good day sir! Care to see any of my wares?"
                                                         :peddler "I have only the choicest of wares."
                                                         :ego "What 'wares' are you selling?"
                                                         :peddler "I have the choicest of all types of wares..."
                                                         :peddler "...I'm well stocked on used earplugs..."
                                                         :peddler "...glass eyes, motivational tapes... " 
                                                         :peddler "... and this nice, big, red balloon."
                                                         :ego "I sure am interested in that balloon."
                                                         :peddler "An excellent selection! It is the choicest of balloons you'll ever find."
                                                         :peddler "This bundle of joy will only set you back 75 sheckels."
                                                         :ego "But I haven't got any money!"
                                                         :peddler "Then you won't have the choicest of balloons."
                                                         :peddler "I could, however, give you the balloon if you could procure for me a ware I'm missing."
                                                         :peddler "A child's toy. And I mean the choicest of children's toys.")
                                    (actions/give entities items/balloon))}}
                :layers [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]
                :entities {:peddler (actions/start-animation screen
                                                             (assoc (texture "outside-castle/peddler.png") :x 110 :y 90 :baseline 150 :anim nil
                                                                    :talk peddler-talk :stand peddler-stand)
                                                             :stand)
                           :steer (assoc (texture "outside-castle/steer.png" ) :x 203 :y 155 :baseline 80
                                         :script (actions/get-script entities
                                                                     (actions/talk entities :ego "That is one buff bull!")))}
                :collision "outside-castle/collision.png"
                :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00))))