     :id     (:id (unit? x y :balls))
     :coords {:x x :y y}}
 
+   (boolean (unit? x y (defense)))
+   {:type :attack
+    :id (:id (unit? x y (:turn @game)))
+    :coords {:x x :y y}}
+
 
    (in-range? x y (:id (unit? x y (:turn @game))))
    {:type :move-unit
     :id (:id (unit? x y (:turn @game)))
     :coords {:x x :y y}}
+
+
 
    :else
      (println x y (:turn @game))))

    (swap! game assoc-in [:units (:turn @game)] (conj team updated-unit))))

(defn move-unit [x y]
    (let [selected-unit (selected-unit)
        updated-unit
        (conj
         selected-unit
         {:coords {:x x :y y}})
        team
        (filter #(not= selected-unit %) (active-team))]
      (swap! game assoc-in [:units (:turn @game)] (conj team updated-unit))))

(defn ball-in-front-of-unit? [ball unit]
  (let [ball-x (:x (:coords ball))


(defn unit-class [x y]
  (let [blue-unit (unit? x y :blue-team)
        red-unit  (unit? x y :red-team)
        ball-unit (unit? x y :balls)]
  (str
    (cond
