【框架设计】行会账本：俸禄发放的账目透明框架

-- 行会账本：俸禄计算
local player = class(actor)
local TOTAL_SALARY = 500000
local function calcSalary(player)
    local members = {}
    local totalContrib = 0
    for i = 1, 100 do
        local name = getplayvar(player, "HUMAN", "Member_" .. i)
        if name and name ~= "" then
            local contrib = tonumber(getplayvar(class(name), "HUMAN", "WeekContrib") or 0)
            members[#members + 1] = {name = name, contrib = contrib}
            totalContrib = totalContrib + contrib
        end
    end
    local parts = {}
    for _, m in ipairs(members) do
        local share = totalContrib > 0 and math.floor(TOTAL_SALARY * m.contrib / totalContrib) or 0
        parts[#parts + 1] = m.name .. "=" .. share
        setplayvar(class(m.name), "HUMAN", "WeekSalary", share, true)
    end
    sendmsg(player, 1, 0, "俸禄明细：" .. table.concat(parts, "；"))
end

-- 俸禄公示：周报与异议
local player = class(actor)
local function publishSalaryReport(player, report)
    setsysvarex("SalaryReport_" .. os.date("%Y%W"), report, true)
    sendcentermsg(player, 255, 0, "本周俸禄已发放，明细见行会账本，三日 内可提异议。", 0, 8)
end