working on held.

desktop/src-common/advent/screens/rooms/held.clj

@@ -0,0 +1,29 @@
+(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))))))