军衔晋升：功勋累积的每周考核

local RANKS = {0, 200, 500, 1200, 3000}   -- 五段功勋线
local function promote(actor)
    local merit = getplayvar(actor, "weekMerit") or 0
    local rank = getplayvar(actor, "rankLv") or 0
    if rank < 4 and merit >= RANKS[rank + 2] then
        setplayvar(actor, "rankLv", rank + 1)
        sendmsg(actor, 1, "晋升军衔 " .. (rank + 2)
            .. " 级，特权已解锁")
    end
    setplayvar(actor, "weekMerit", 0)
end

local function addMerit(actor, n)
    local m = (getplayvar(actor, "weekMerit") or 0) + n
    setplayvar(actor, "weekMerit", m)
    sendmsg(actor, 1, "本周功勋 " .. m)
end