       :game/self-repair (:self-repair settings-def)
       :game/move-through-friendly (:move-through-friendly settings-def)}]))
 
-(defn build-terrains-tx [db game-id terrain-type-id can-build-def]
-  (let [game (game-by-id db game-id)]
-    (into []
-          (map
-           (fn [unit-type-name]
-             {:db/id (db/next-temp-id)
-              :terrain-type/_can-build terrain-type-id
-              :terrain-build/unit-type (e (find-by db :unit-type/id (to-unit-type-id unit-type-name)))}))
-          can-build-def)))
-
 (defn terrain-types-tx [db game-id terrains-def]
   (let [game (game-by-id db game-id)]
     (into []

                :terrain-effect/attack-bonus attack-bonus
                :terrain-effect/armor-bonus armor-bonus})))
          terrain-effects-def)))

(defn unit-types-tx [db game-id units-def]
  (let [game (game-by-id db game-id)]

                :terrain-type/image (:image terrain-def)})))
          terrains-def)))

(defn attack-strengths-tx [db game-id unit-type-eid attack-strengths-def]
  (let [game (game-by-id db game-id)]
    (into []
