         tribe (Tribe. id-tribe name-tribe language [id-settlement])
         game (assoc-in game [:tribes id-tribe] tribe)
         game (assoc-in game [:settlements id-settlement] settlement)]
+      (run-randomly (update-tribe-fun id-tribe) 3000 10000)
+      (run-randomly (update-settlement-fun id-settlement) 3000 10000)
       (record-event (str "Creating tribe " name-tribe) pos)
       (record-event (str "Creating village " name-settlement) pos)
       (update-biome-map)

      rp
      (free-random-land))))

(defn update-tribe-fun [id-tribe]
  (fn [] (println "Updating " id-tribe)))

(defn- create-tribe-in-game [game]
  (let [id-tribe (.next-id game)

(def ^:dynamic saved-biome-map nil)

(declare settlement-at)
(declare run-randomly)
(declare get-settlement)
(declare get-tribe)

(defn get-settlement [id]
  (get-in @game [:settlements id]))

(defn get-tribe [id]
  (get-in @game [:tribe id]))

(defn update-settlement [settlement]
  (let [id (.id settlement)]
    (swap! game assoc-in [:settlements id] settlement)))

(defn update-tribe [tribe]
  (let [id (.id tribe)]
    (swap! game assoc-in [:tribes id] tribe)))

(defn calc-biome-map [world]
  (let [ w (-> world .getDimension .getWidth)
