玩家荣誉系统：荣誉值累积的军衔晋升

local function addHonor(actor, pts)
    setplayvar(actor, "honor",
        (getplayvar(actor, "honor") or 0) + pts)
    local h = getplayvar(actor, "honor")
    local RANKS = {0, 100, 300, 800, 2000}
    for i = #RANKS, 1, -1 do
        if h >= RANKS[i] then
            if (getplayvar(actor, "rankLv") or 0) < i then
                setplayvar(actor, "rankLv", i)
                sendmsg(actor, 1, "晋升军衔 " .. i .. " 级")
            end
            break
        end
    end
end

local function queryHonor(actor)
    sendmsg(actor, 1, "荣誉 " .. (getplayvar(actor, "honor") or 0)
        .. "，军衔 " .. (getplayvar(actor, "rankLv") or 0) .. " 级")
end