server/scripts/run-turn.lua

function nmr_check(maxnmrs)
  local nmrs = get_nmrs(1)
  if nmrs > maxnmrs then
    eressea.log.error("Shit. More than " .. maxnmrs .. " factions with 1 NMR (" .. nmrs .. ")")
    write_summary()
    return -1
  end
  print (nmrs .. " Factions with 1 NMR")
  return 0
end

function open_game(turn)
  file = "" .. get_turn()
  return eressea.read_game(file .. ".dat")
end

function callbacks(rules, name, ...)
	for k, v in pairs(rules) do
		if 'table' == type(v) then
			cb = v[name]
			if 'function' == type(cb) then
				cb(...)
			end
		end
	end
end

local function dbupdate()
    update_scores()
    if config.dbname then
        dbname = config.basepath..'/'..config.dbname
        edb = db.open(dbame)
        if edb~=nil then
            edb:update_factions()
            edb:update_scores()
        else
            eressea.log.error("could not open "..dbname)
        end
    end
end

local function write_emails(locales)
  local files = {}
  local key
  local locale
  local file
  for key, locale in pairs(locales) do
    files[locale] = io.open(config.basepath .. "/emails." .. locale, "w")
  end

  local faction
  for faction in factions() do
    if faction.email~="" then
      files[faction.locale]:write(faction.email .. "\n")
    end
  end

  for key, file in pairs(files) do
    file:close()
  end
end

local function join_path(a, b)
    if a then return a .. '/' .. b end
    return b
end

local function write_addresses()
  local file
  local faction

  file = io.open(join_path(config.basepath, "adressen"), "w")
  for faction in factions() do
    -- print(faction.id .. " - " .. faction.locale)
    file:write(tostring(faction) .. ":" .. faction.email .. ":" .. faction.info .. "\n")
  end

  file:close()
end

local function write_aliases()
  local file
  local faction

  file = io.open(join_path(config.basepath, "aliases"), "w")
  for faction in factions() do
    local unit
    if faction.email ~= "" then
      file:write("partei-" .. itoa36(faction.id) .. ": " .. faction.email .. "\n")
      for unit in faction.units do
        file:write("einheit-" .. itoa36(unit.id) .. ": " .. faction.email .. "\n")
      end
    end
  end
 
  file:close()
end

local function write_htpasswd()
    local out = io.open(join_path(config.basepath, "htpasswd"), "w")
    if out then
        for f in factions() do
            if f.password then
                out:write(itoa36(f.id) .. ":" .. f.password .. "\n")
            end
        end
        out:close()
    end
end

local function write_files(locales)
    write_passwords()
    write_htpasswd()
    write_reports()
    write_summary()
end

local function write_scores()
  local scores = {}
  for r in regions() do
    f = r.owner
    if f~=nil then
      value = scores[f.id]
      if value==nil then value=0 end
      value = value + r:get_resource("money")/100
      scores[f.id] = value
    end
  end
  for f in factions() do
    score=scores[f.id]
    if score==nil then score=0 end
    print(math.floor(score)..":"..f.name..":"..itoa36(f.id))
  end
end

function process(rules, orders)
    local confirmed_multis = { }
    local suspected_multis = { }

    if open_game(get_turn())~=0 then
        eressea.log.error("could not read game")
        return -1
    end

    turn_begin()
    init_summary()

    -- run the turn:
    if eressea.read_orders(orders) ~= 0 then
        print("could not read " .. orders)
        return -1
    end

    if nmr_check(config.maxnmrs or 80)~=0 then
        return -1
    end
    plan_monsters()
    callbacks(rules, 'init')
    turn_process()
    callbacks(rules, 'update')
    turn_end() -- ageing, etc.

    write_files(config.locales)
    dbupdate()

    file = '' .. get_turn() .. '.dat'
    if eressea.write_game(file)~=0 then
        eressea.log.error("could not write game")
        return -1
    end
    return 0
end

function run_turn(rules)
    local turn = get_turn()
    if turn<0 then
        turn = read_turn()
        set_turn(turn)
    end

    orderfile = orderfile or config.basepath .. '/orders.' .. turn
    eressea.log.debug("executing turn " .. get_turn() .. " with " .. orderfile .. " with rules=" .. config.rules)
    local result = process(rules, orderfile)
    return result
end

function file_exists(name)
    local f=io.open(name,"r")
    if not f then
        return false
    end
    io.close(f)
    return true
end

if file_exists('execute.lock') then
    eressea.log.error("Lockfile exists, aborting.")
    assert(false)
end

local path = 'scripts'
if config.install then
    path = config.install .. '/' .. path
end
package.path = package.path .. ';' .. path .. '/?.lua;' .. path .. '/?/init.lua'
require 'eressea'
require 'eressea.xmlconf' -- read xml data

local rules = {}
if config.rules then
    rules = require('eressea.' .. config.rules)
    eressea.log.info('loaded ' .. #rules .. ' modules for ' .. config.rules)
else
    eressea.log.warning('no rule modules loaded, specify a game in eressea.ini or with -r')
end
run_turn(rules)