forked from github/server
89 lines
1.7 KiB
Lua
89 lines
1.7 KiB
Lua
function peasant_getresource(u)
|
|
return u.region:get_resource("peasant")
|
|
end
|
|
|
|
function peasant_changeresource(u, delta)
|
|
local p = u.region:get_resource("peasant")
|
|
p = p + delta
|
|
if p < 0 then
|
|
p = 0
|
|
end
|
|
u.region:set_resource("peasant", p)
|
|
return p
|
|
end
|
|
|
|
function hp_getresource(u)
|
|
return u.hp
|
|
end
|
|
|
|
function hp_changeresource(u, delta)
|
|
local hp = u.hp + delta
|
|
|
|
if hp < u.number then
|
|
if hp < 0 then
|
|
hp = 0
|
|
end
|
|
u.number = hp
|
|
end
|
|
u.hp = hp
|
|
return hp
|
|
end
|
|
|
|
function horse_limit(r)
|
|
return r:get_resource("horse")
|
|
end
|
|
|
|
function horse_produce(r, n)
|
|
local horses = r:get_resource("horse")
|
|
if horses>=n then
|
|
r:set_resource("horse", horses-n)
|
|
else
|
|
r:set_resource("horse", 0)
|
|
end
|
|
end
|
|
|
|
function log_limit(r)
|
|
-- if r:get_flag(1) then -- RF_MALLORN
|
|
-- return 0
|
|
-- end
|
|
return r:get_resource("tree") + r:get_resource("sapling")
|
|
end
|
|
|
|
function log_produce(r, n)
|
|
local trees = r:get_resource("tree")
|
|
if trees>=n then
|
|
r:set_resource("tree", trees-n)
|
|
else
|
|
r:set_resource("tree", 0)
|
|
n = n - trees
|
|
trees = r:get_resource("sapling")
|
|
if trees>=n then
|
|
r:set_resource("sapling", trees-n)
|
|
else
|
|
r:set_resource("sapling", 0)
|
|
end
|
|
end
|
|
end
|
|
|
|
function mallorn_limit(r)
|
|
if not r:get_flag(1) then -- RF_MALLORN
|
|
return 0
|
|
end
|
|
return r:get_resource("tree") + r:get_resource("sapling")
|
|
end
|
|
|
|
function mallorn_produce(r, n)
|
|
local trees = r:get_resource("tree")
|
|
if trees>=n then
|
|
r:set_resource("tree", trees-n)
|
|
else
|
|
r:set_resource("tree", 0)
|
|
n = n - trees
|
|
trees = r:get_resource("sapling")
|
|
if trees>=n then
|
|
r:set_resource("sapling", trees-n)
|
|
else
|
|
r:set_resource("sapling", 0)
|
|
end
|
|
end
|
|
end
|