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

(defn make [screen]
  (rooms/make :music :fight
              :interactions {}
              :layers [(assoc (texture "held/background.png") :x 0 :y 0 :baseline 0)]
              :entities {}
              :collision "held/collision.png"
              :scale-fn (constantly 1.5) 
              :start-pos [113 120]
              :apply-state (fn [screen e]
                             (-> e 
                                 (assoc-in [:cam :paused? ] true)
                                 (update-in [:tweens] dissoc :cam-x :cam-y)
                                 (update-in [:room :entities :ego] #(actions/start-animation screen % :suspended))))))