server/scripts/newplayer.lua

dofile("config.lua")
p = require("populate")

local function read_players()
--    return {{ email = "noreply@mailinator.com", race = "dwarf",  lang = "de" }}
    local players =  {}
    local input = open("newfactions", "r")
    while input do
        local str = input:read("*line")
        if str==nil then break end
        local email, race, lang = str:match("([^ ]*) ([^ ]*) ([^ ]*)")
        table.insert(players, { race = race, lang = lang, email = email })
    end
    return players
end

local function seed(r, email, race, lang)
    local f = faction.create(email, race, lang)
    local u = unit.create(f, r)
    u:set_skill("perception", 30)
    u:add_item("money", 20000)
    items = {
        log = 50,
        stone = 50,
        iron = 50,
        laen = 10,
        mallorn = 10,
        skillpotion = 5
    }
    for it, num in pairs(items) do
        u:add_item(it, num)
    end
    u = nil
    skills ={
    "crossbow",
    "bow",
    "building",
    "trade",
    "forestry",
    "catapult",
    "herbalism",
    "training",
    "riding",
    "armorer",
    "shipcraft",
    "melee",
    "sailing",
    "polearm",
    "espionage",
    "roadwork",
    "tactics",
    "stealth",
    "weaponsmithing",
    "cartmaking",
    "taxation",
    "stamina"
    }
    unit.create(f, r, 50):set_skill("entertainment", 15)
    unit.create(f, r, 5):set_skill("mining", 30)
    unit.create(f, r, 5):set_skill("quarrying", 30)
    for _, sk in ipairs(skills) do
        u = u or unit.create(f, r, 5)
        if u:set_skill(sk, 15)>0 then u=nil end
    end
    return f
end

local function dump_selection(sel)
    local best = { score = 0, r = nil }
    local r, score
    for _, r in ipairs(sel) do
        score = p.score(r)
        if score > best.score then
            best.r = r
            best.score = score
        end
        print(score, r, r.terrain)
    end
    return best
end

players = read_players()
local limit = 30000
local turn = get_turn()
local sel
if #players > 0 then
    read_game(turn)
    eressea.read_game(("%d.dat"):format(turn))
    sel = p.select(regions(), limit)
    if #sel > 0 then
        local best = dump_selection(sel)
        print("finest region, " .. best.score .. " points: " .. tostring(best.r))
    end
end
math.randomseed(os.time())

local newbs = {}
for _, p in ipairs(players) do
    local index = math.random(#sel)
    local start = nil
    while not start or start.units() do
        start = sel[index]
    end
    local dupe = false
    for f in factions() do
        if f.email==p.email then
            print("seed: duplicate email " .. p.email .. " already used by faction " .. tostring(f))
            dupe = true
            break
        end
    end
    if not dupe then
        f = seed(start, p.email, p.race or "human", p.lang or "de")
        print("new faction ".. tostring(f) .. " starts in ".. tostring(start))
        table.insert(newbs, f)
    end
end

if #newbs > 0 then
    init_reports()
    for _, f in ipairs(newbs) do
        write_report(f)
    end
    eressea.write_game(("%d.dat.new"):format(turn))
end