【进阶实战】出战轮换：宠物出战位的定时轮换封装

local function rotatePet(actor)
    actor = getplayerbyname(actor)
    if getplayvar(actor, "HUMAN", "RotateLock") == 1 then
        sendmsg(actor, 1, "出战锁定中，本次不轮换。")
        return
    end
    local roster = getplayvar(actor, "HUMAN", "PetRoster") or ""
    if roster == "" then
        sendmsg(actor, 1, "请先配置轮换名单。")
        return
    end
    local pets = {}
    for id in string.gmatch(roster, "[^|]+") do
        pets[#pets + 1] = id
    end
    local ptr = (tonumber(getplayvar(actor, "HUMAN", "RotatePtr")) or 0) % #pets
    setplayvar(actor, "HUMAN", "RotatePtr", ptr + 1, 1)
    sendmsg(actor, 1, "出战切换为第 " .. (ptr + 1) .. " 只：" .. pets[ptr + 1])
end

local function setRoster(actor, idList)
    actor = getplayerbyname(actor)
    local seen, cleaned = {}, {}
    for id in string.gmatch(idList, "[^|]+") do
        if seen[id] == nil then
            seen[id] = true
            cleaned[#cleaned + 1] = id
        end
    end
    setplayvar(actor, "HUMAN", "PetRoster", table.concat(cleaned, "|"), 1)
    setplayvar(actor, "HUMAN", "RotatePtr", 0, 1)
    sendmsg(actor, 1, "轮换名单已配置 " .. #cleaned .. " 只。")
end