server/src/scripts/hse4-run.lua
2008-05-24 17:34:55 +00:00

78 lines
1.4 KiB
Lua

-- the locales that this gameworld supports.
local locales = { "de", "en" }
function loadscript(name)
local script = scriptpath .. "/" .. name
print("- loading " .. script)
if pcall(dofile, script)==0 then
print("Could not load " .. script)
end
end
loadscript("default.lua")
function load_scripts()
scripts = {
"spells.lua",
"extensions.lua",
"familiars.lua",
"hse/portals.lua",
"hse/stats.lua"
}
for index, value in pairs(scripts) do
loadscript(value)
end
end
function refresh_pool()
for f in factions() do
f:add_item("money", 50)
end
end
function process(orders)
-- initialize starting equipment for new players
if open_game(get_turn())~=0 then
print("could not read game")
return -1
end
init_summary()
-- kill multi-players (external script)
-- loadscript("eressea/multis.lua")
-- run the turn:
set_encoding("utf8")
if read_orders(orders) ~= 0 then
print("could not read " .. orders)
return -1
end
plan_monsters()
process_orders()
-- create new monsters:
spawn_braineaters(0.25)
refresh_pool()
write_files(locales)
file = "" .. get_turn() .. ".dat"
if write_game(file, "binary")~=0 then
print("could not write game")
return -1
end
end
--
-- main body of script
--
-- orderfile: contains the name of the orders.
load_scripts()
if orderfile==nil then
print "you must specify an orderfile"
else
process(orderfile)
end