【进阶实战】集结令：令旗发放与核销的封装

local function issueTokens(actor, roster)
    actor = getplayerbyname(actor)
    local sent = 0
    for name in string.gmatch(roster, "[^|]+") do
        local t = getplayerbyname(name)
        if t ~= nil and t ~= "" then
            giveitem(t, "集结令", 1, 1)
            sent = sent + 1
        end
    end
    sendmsg(actor, 1, "集结令已发放 " .. sent .. " 份（离线成员走邮件补发）。")
end
local function useToken(actor)
    actor = getplayerbyname(actor)
    if not takeitem(actor, "集结令", 1) then
        sendmsg(actor, 1, "需要 1 张集结令。")
        return
    end
    local used = getplayvar(actor, "HUMAN", "TokenUsed_" .. os.date("%Y%m%d"))
    if used ~= "" and used ~= nil then
        giveitem(actor, "集结令", 1)
        sendmsg(actor, 1, "今日已核销过集结令，令旗退回。")
        return
    end
    setplayvar(actor, "HUMAN", "TokenUsed_" .. os.date("%Y%m%d"), 1, 1)
    beginteleport(actor, 333, 333)
    sendmsg(actor, 1, "集结令生效，已传送至沙巴克集结点。")
end

local function sweepTokens(actor)
    actor = getplayerbyname(actor)
    sendmsg(actor, 1, "战后清扫：未使用的集结令将于今晚 24 点作废。")
end