【进阶实战】门派点名：师门任务的轮转点名器

local function rollCall(actor, roster)
    actor = getplayerbyname(actor)
    local ptr = tonumber(getsysvar("ShifuPtr")) or 0
    local idx = (ptr % #roster) + 1
    local chosen = roster[idx]
    setsysvarex("ShifuPtr", ptr + 1, 1)
    local t = getplayerbyname(chosen)
    if t ~= nil and t ~= "" then
        setplayvar(t, "HUMAN", "ShifuTask", os.date("%Y%m%d"), 1)
    end
    sendmsg(actor, 1, "本轮点名：" .. chosen .. "（累计第 " .. (ptr + 1) .. " 次点名）")
    return chosen
end

local function claimTask(actor)
    actor = getplayerbyname(actor)
    local today = os.date("%Y%m%d")
    if getplayvar(actor, "HUMAN", "ShifuTask") ~= today then
        sendmsg(actor, 1, "今日点名未轮到领取师门任务。")
        return
    end
    if getplayvar(actor, "HUMAN", "ShifuDone") == today then
        sendmsg(actor, 1, "今日师门任务已完成。")
        return
    end
    giveitem(actor, "金创药", 3)
    setplayvar(actor, "HUMAN", "ShifuDone", today, 1)
    sendmsg(actor, 1, "师门任务已领，完成可得传功点。")
end