帮会密令：口令封存的阅后即焚

local function sealOrder(actor, text, pass)
    local out = {}
    for i = 1, #text do
        out[i] = text:byte(i) + pass
    end
    setsysvarex("sealed", table.concat(out, ","))
    setsysvarex("sealedPass", pass)
    sendmsg(actor, 1, "密令已封存，凭口令 "
        .. pass .. " 查看")
end

local function unseal(actor, pass)
    if (getsysvar("sealedPass") or 0) ~= pass then
        sendmsg(actor, 1, "口令错误")
        return
    end
    local parts = {}
    for v in string.gmatch(
        getsysvar("sealed") or "", "%d+") do
        parts[#parts + 1] =
            string.char(tonumber(v) - pass)
    end
    sendmsg(actor, 1, "密令：" .. table.concat(parts))
    setsysvarex("sealed", "")
end