【框架设计】结拜排行：义气值的排行与称号

-- 义气值：共同行为折算
local player = class(actor)
local BOND_PARTNER = "BondPartner"
local function addBondScore(player, mateName, pts, action)
    if getplayvar(player, BOND_PARTNER) ~= mateName then
        return
    end
    local key = "BondScore_" .. os.date("%Y%W")
    local mine = tonumber(getplayvar(player, "HUMAN", key) or 0) + pts
    setplayvar(player, "HUMAN", key, mine, true)
    local mate = class(mateName)
    local theirs = tonumber(getplayvar(mate, "HUMAN", key) or 0) + pts
    setplayvar(mate, "HUMAN", key, theirs, true)
    sendmsg(player, 1, 0, action .. " 义气 +" .. pts .. "，当前 " .. mine .. "。")
end

-- 义气周榜：称号与清零
local player = class(actor)
local TITLES = {"金兰", "莫逆", "知音"}
function onBondWeeklySettle(actor)
    local player = class(actor)
    local board = {}
    for i = 1, 3 do
        local score = tonumber(getplayvar(player, "HUMAN", "BondScore_" .. os.date("%Y%W", os.time() - 604800)) or 0)
        board[#board + 1] = {name = getbaseinfo(player, 3), score = score}
    end
    table.sort(board, function(a, b) return a.score > b.score end)
    for rank, entry in ipairs(board) do
        local mate = class(entry.name)
        setplayvar(mate, "HUMAN", "BondTitle", TITLES[rank], true)
        setplayvar(mate, "HUMAN", "BondScore_" .. os.date("%Y%W", os.time() - 604800), 0, true)
        sendmsg(mate, 1, 0, "上周义气榜第 " .. rank .. " 名，获得「" .. TITLES[rank] .. "」称号！")
    end
end