function get_markets(r, result) local n = 0 result = result or {} for b in r.buildings do if b.type=="market" then u = b.owner if u~=nil then table.insert(result, u) n = n + 1 end end end return n, result end function collect_markets(r, result) local result = result or {} local n = 0 n, result = get_markets(r, result) for i, r in ipairs(r.adj) do if r then local x, result = get_markets(r, result) n = n + x end end return n, result end function market_action(r) local f = r.owner local trade = 1000 if f~=nil and f.race=="halfling" then trade = 600 end local p = r:get_resource("peasant") if p > 500 then local n, markets = collect_markets(r) if n>0 then local give if r.luxury~=nil then give = {} local numlux = p / trade for x = 1, numlux do local m = 1+math.mod(rng_int(), n) u = markets[m] if give[u] then give[u] = give[u] + 1 else give[u] = 1 end end for u, v in pairs(give) do u:add_item(r.luxury, v) end end if r.herb~=nil then give = {} local numherb = p / 500 for x = 1, numherb do local m = 1+math.mod(rng_int(), n) u = markets[m] if give[u] then give[u] = give[u] + 1 else give[u] = 1 end end for u, v in pairs(give) do u:add_item(r.herb, v) end end end end end local function markets() local r for r in regions() do market_action(r) end end -- add_proc(markets, "Markets", "Bauernwanderung")