帮会书吏：文书誊抄与编目归档

local function archiveDoc(actor, kind, text)
    local ym = os.date("%Y%m")
    local n = (getsysvar("docN_" .. ym) or 0) + 1
    setsysvarex("docN_" .. ym, n)
    setsysvarex("doc_" .. ym .. "_" .. n,
        kind .. "|" .. text)
    sendmsg(actor, 1, "已归档 " .. ym .. "-" .. n)
end

local function listDoc(actor, ym)
    local n = getsysvar("docN_" .. ym) or 0
    for i = 1, n do
        sendmsg(actor, i .. "：" ..
            getsysvar("doc_" .. ym .. "_" .. i))
    end
end