Fix peasants in new player area

bug2470.lua

require 'config'

filename = get_turn() .. '.dat'
eressea.read_game(filename)

maxps = {
        ['plain'] = 10000,
        ['mountain'] = 1000,
        ['glacier'] = 100,
        ['highland'] = 4000,
        ['swamp'] = 2000,
        ['desert'] = 500,
        ['volcano'] = 500,
        ['ocean'] = 0,
        ['firewall'] = 0
}

function fixit(r)
    maxp = maxps[r.terrain] or 500
    minp = maxp / 10
    if r.peasants < minp then
        r.peasants = math.random(minp, maxp)
        print(tostring(r) .. ', ' .. r.terrain .. ': ' .. r.peasants .. ' peasants')
    end
end

function fix()
    for f in factions() do
        if f.age<30 then
        for u in f.units do
            fixit(u.region)
            for _, r in ipairs(u.region.adj) do
                fixit(r)
            end
        end
        end
    end
end

fix()
eressea.write_game(filename)