帮会机要：密级档案的留痕查阅

; secret.txt 机要密级
[一级] 内容=账目明细   可查=会长
[二级] 内容=战术部署   可查=长老
[三级] 内容=人事名单   可查=校尉

local RANKS = {["会长"] = 3, ["长老"] = 2, ["校尉"] = 1}
local function readSecret(actor, level)
    local myRank = RANKS[getplayvar(actor, "RANK")] or 0
    if myRank < level then
        sendmsg(actor, 1, "职位不足，无法查阅该密级")
        setsysvarex("readLog", os.date("%m%d %H:%M ")
            .. getplayvar(actor, "NAME")
            .. " 越权查阅" .. level .. " 级")
        return
    end
    setsysvarex("readLog", os.date("%m%d %H:%M ")
        .. getplayvar(actor, "NAME")
        .. " 查阅" .. level .. " 级密档")
    sendmsg(actor, 1, "已开放 " .. level .. " 级密档")
end