【运维发布】发布日历：全月变更的集中排期

local function bookChange(day, desc)
    local cnt = tonumber(getsysvar("CAL_N_" .. day) or "0")
    if cnt >= 2 then
        sendmsg(actor, 0, day .. " 排期已满 2 条，请改期或走紧急通道")
        return
    end
    setplayvar(actor, "HUMAN", "CAL_MINE_" .. day, 1, 1)
    setplayvar(actor, "HUMAN", "CAL_D_" .. day, desc, 1)
    setsysvarex("CAL_N_" .. day, cnt + 1, 1)
    setsysvarex("CAL_I_" .. day .. "_" .. (cnt + 1), desc, 1)
    sendmsg(actor, 0, "登记成功：" .. day .. " 第 " .. (cnt + 1) .. " 条变更")
end

setontimerex(163, 60)
function ontimer163()
    if os.date("%H%M") ~= "0900" then return end
    local day = os.date("%Y%m%d")
    local n = tonumber(getsysvar("CAL_N_" .. day) or "0")
    local parts = {}
    for i = 1, n do
        table.insert(parts, getsysvar("CAL_I_" .. day .. "_" .. i) or "")
    end
    if n > 0 then
        sendcentermsg("今日变更：" .. table.concat(parts, "；"))
    end
end