                 :terrain-type/image (:image terrain-def)})))
           terrains-def)))
 
-(defn terrain-can-build-tx [db game-id terrains-def]
-  (let [game (game-by-id db game-id)]
-    (into []
-          (map
-           (fn [[terrain-type-name terrain-def]]
-             (let [terrain-type-id (to-terrain-type-id terrain-type-name)]
-               {:db/id (e (find-by db :terrain-type/id terrain-type-id))
-                :terrain-type/can-build (into (build-terrains-tx db game-id terrain-type-id (:can-build 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 []

                     :unit-type/image (:image unit-def)
                     :unit-type/zoc-armor-types (map #(to-armor-type %) (:zoc unit-def))}]
                   (into (attack-strengths-tx db game-id unit-type-eid (:attack-strengths unit-def)))
                   (into (terrain-effects-tx db game-id unit-type-eid (:terrain-effects unit-def)))))))
          units-def)))

(defn unit-states-tx [db game-id state-map-eid state-map-name states]

      :game/self-repair (:self-repair settings-def)
      :game/move-through-friendly (:move-through-friendly settings-def)}]))

(defn terrain-types-tx [db game-id terrains-def]
  (let [game (game-by-id db game-id)]
    (into []
