         game (game-by-id db game-id)
         tx (repair-tx db game q r)]
     (d/transact! conn tx)))
-
-(defn repair-value
-  ([db game repairer wounded]
-    (min (:game/max-count-per-unit game)
-         (+ (:unit/count wounded)
-            (get-in repairer [:unit/type :unit-type/repair]))))
-  ([db game q1 r1 q2 r2]
-    (let [repairer (checked-unit-at db game q1 r1)
-          wounded  (checked-unit-at db game q2 r2)]
-      (repair-value db game repairer wounded))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Capture

      false)))

(defn can-repair-other? [db game unit]
  true)
  ;(try
  ;  (check-can-repair-other db game unit)
  ;  true
  ;  (catch :default ex
  ;    false)))

(defn can-be-repaired? [db game unit]
  (try

(defn repair-other-tx
  ([db game repairer wounded]
   (let [new-state (check-can-repair-other db game repairer)]
     (check-in-range db repairer wounded)
     (let [wounded-count (:unit/count wounded)]
       [{:db/id (e wounded)
         :unit/count (min (:game/max-count-per-unit game)
