dofile("config.lua") p = require("populate") local function read_players() -- return {{ email = "noreply@mailinator.com", race = "dwarf", lang = "de" }} local players = {} local input = io.open("newfactions", "r") while input do local str = input:read("*line") if str==nil then break end local email, race, lang = str:match("([^ ]*) ([^ ]*) ([^ ]*)") if string.char(string.byte(email, 1))~='#' then table.insert(players, { race = race, lang = lang, email = email }) end end return players end local function seed(r, email, race, lang) local f = faction.create(email, race, lang) local u = unit.create(f, r) equip_unit(u, "new_faction") equip_unit(u, "first_unit") equip_unit(u, "first_" .. race, 7) -- disable old callbacks unit.create(f, r, 5):set_skill("mining", 30) unit.create(f, r, 5):set_skill("quarrying", 30) f:set_origin(r) 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 peasants = 20000 local trees = 1000 local turn = get_turn() local sel if #players > 0 then eressea.read_game(("%d.dat"):format(turn)) sel = p.select(regions(), peasants, trees) 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 = {} local per_region = 2 local num_seeded = 2 local start = nil for _, p in ipairs(players) do if num_seeded == per_region then while not start or start.units() do local index = math.random(#sel) start = sel[index] end num_seeded = 0 end local dupe = false for f in factions() do if f.email==p.email then print("seed: duplicate email " .. p.email .. " already used by " .. tostring(f)) dupe = true break end end if not dupe then num_seeded = num_seeded + 1 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