(ns advent.screens.rooms.inside-stash
  (:require [advent.screens.rooms :as rooms]
            [advent.screens.items :as items]
            [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]
  (rooms/make :music {:day :town-2 :night :night}
              :interactions
              {:left-dir {:box [91 60 125 140]
                          :script (actions/get-script
                                   entities
                                   (actions/walk-straight-to entities :ego [118 96])
                                   (actions/transition-background entities :outside-jail [200 97])
                                   (actions/walk-straight-to entities :ego [167 100]))
                          :cursor :left}
               :chest {:box [151 107 180 124]
                       :script (actions/get-script entities
                                                   (actions/walk-to entities :ego [152 95])
                                                   (actions/talk entities :ego "Maybe my stuff is in here...")
                                                   (actions/play-animation entities :ego :reach)
                                                   (actions/talk entities :ego "It's locked tight!"))
                       :scripts {:sword (actions/get-script entities (actions/talk entities :ego "There's not enough room to swing my sword here."))
                                 :crowbar (actions/get-script entities
                                                              (actions/talk entities :ego "Let's see if this can open this puppy up.")
                                                              (actions/walk-straight-to entities :ego [152 95] :face :right)
                                                              (actions/play-animation entities :ego :crowbar)
                                                              )}}}
              :layers [(assoc (texture "inside-stash/background.png") :x 0 :y 0 :baseline 0)]
              :entities {}
              :collision "inside-stash/collision.png"
              :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00)
              :start-pos [143 96]))