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() eressea.write_game("aborted.dat") 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 change_locales(localechange) for loc, flist in pairs(localechange) do for index, name in pairs(flist) do f = get_faction(atoi36(name)) if f ~= nil and f.locale ~= loc then print("LOCALECHANGE ", f, f.locale, loc) f.locale = loc end end end end local function dbupdate() update_scores() dbname = config.dbname or 'eressea.db' edb = db.open(config.basepath..'/'..dbname) if edb~=nil then edb:update_factions() edb:update_scores() else eressea.log.error("could not open "..config.basepath..'/'..dbname) 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 write_addresses() local file local faction file = io.open(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(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_files(locales) write_passwords() 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 callbacks(rules, 'init') init_summary() -- run the turn: if read_orders(orders) ~= 0 then print("could not read " .. orders) return -1 end plan_monsters() if nmr_check(config.maxnmrs or 80)~=0 then return -1 end process_orders() callbacks(rules, 'update') local localechange = { de = { 'ii' } } change_locales(localechange) write_files(config.locales) 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) if result==0 then dbupdate() end return result 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)