       (let [ world (.world game)
              pos (.position group)
              _ (check-valid-position world pos)
-             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos 3))
+             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos migration-radius))
              preferences (map (fn [pos] {
                                      :preference (perturbate-low (prosperity-in-pos game group pos))
                                      :pos pos

    [civs.logic.demographics :refer :all])
  (:import [civs.model.core Population Tribe]))

(defn chance-to-become-semi-sedentary [game tribe]
  (let [ world (.world game)
         prosperity (prosperity game tribe)]

    (fn [game group]
      (let [ world (.world game)
             pos (.position group)
             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos migration-radius))]
        (if (empty? possible-destinations)
          0.0
          (let [p (prosperity-in-pos game group pos)
