【进阶实战】免费券核销：转盘免费券的每日核销封装

local function claimSpinQuota(actor)
    actor = getplayerbyname(actor)
    local key = "SpinFree_" .. os.date("%Y%m%d")
    if getplayvar(actor, "HUMAN", key) == 1 then
        return "paid"
    end
    setplayvar(actor, "HUMAN", key, 1, 1)
    return "free"
end
local function spinWheel(actor)
    actor = getplayerbyname(actor)
    local mode = claimSpinQuota(actor)
    if mode == "paid" then
        if not takeitem(actor, "元宝", 100) then
            sendmsg(actor, 1, "今日免费次数已用，付费抽奖需 100 元宝。")
            return
        end
        sendmsg(actor, 1, "付费抽奖执行。")
    else
        sendmsg(actor, 1, "今日免费抽奖执行。")
    end
    giveitem(actor, "祝福油", 1, 1)
end

local function spinQuotaLeft(actor)
    actor = getplayerbyname(actor)
    local key = "SpinFree_" .. os.date("%Y%m%d")
    local used = getplayvar(actor, "HUMAN", key) == 1
    sendmsg(actor, 1, used and "今日免费次数已用。" or "今日免费抽奖尚未使用。")
end