帮会点验：季度名册的在册确认

; muster.txt 点验配置
周期=每季度首日
观察期=30天
在册确认=点击确认按钮
清册=观察期满移出

local function musterConfirm(actor)
    setplayvar(actor, "musterQ",
        tonumber(os.date("%Y%m")))
    sendmsg(actor, 1, "点验完成，在册状态已确认")
end

local function rosterCheck(memberList)
    local q = tonumber(os.date("%Y%m"))
    local kept, missed = {}, {}
    for _, name in ipairs(memberList) do
        local p = getplayerbyname(name)
        local ok = p ~= nil
            and (getplayvar(p, "musterQ") or 0) == q
        if ok then
            kept[#kept + 1] = name
        else
            missed[#missed + 1] = name
        end
    end
    return kept, missed
end