【玩法策划】城主施政：市政令牌与城市建设玩法

-- 城主施政：令牌投放
local player = class(actor)
local LINES = {"build", "civil", "military"}
local function spendToken(player, line)
    local left = tonumber(getplayvar(player, "GUILD", "Tokens") or 0)
    if left <= 0 then
        sendmsg(player, 1, 0, "本周市政令牌已用完。")
        return
    end
    local valid = false
    for _, l in ipairs(LINES) do
        if l == line then valid = true end
    end
    if not valid then
        sendmsg(player, 1, 0, "施政线不存在。")
        return
    end
    setplayvar(player, "GUILD", "Tokens", left - 1, true)
    setsysvarex("Policy_" .. line, tonumber(getsysvar("Policy_" .. line) or 0) + 1, true)
    sendcentermsg(player, 255, 0, "城主本周施政投向" ..
        (line == "build" and "城建" or (line == "civil" and "民生" or "军备")) .. "线！", 0, 8)
end

-- 施政结算：属性与民心
local player = class(actor)
local function settlePolicy(player)
    local build = tonumber(getsysvar("Policy_build") or 0)
    local civil = tonumber(getsysvar("Policy_civil") or 0)
    setsysvarex("GateHpMax", 500000 + build * 10000, true)
    setsysvarex("TradeTax", math.max(0, 5 - civil), true)
    local mood = tonumber(getsysvar("CityMood") or 50) + civil * 5 - 5
    setsysvarex("CityMood", math.max(0, math.min(100, mood)), true)
    if mood < 20 then
        sendcentermsg(player, 255, 0, "民生凋敝，部分商人已离开沙巴克！", 0, 10)
    end
end