【进阶实战】商城周限购：双计数器与免复位周期键

local function periodKeys(goodsId)
    local y = os.date("%Y")
    local yday = tonumber(os.date("%j")) or 1
    local widx = math.floor((yday - 1) / 7)
    local weekKey = "BuyW_" .. y .. "_" .. widx .. "_" .. goodsId
    local monthKey = "BuyM_" .. os.date("%Y-%m") .. "_" .. goodsId
    return weekKey, monthKey
end
local function buyLimited(actor, goodsId)
    actor = getplayerbyname(actor)
    local weekKey, monthKey = periodKeys(goodsId)
    local wCnt = tonumber(getplayvar(actor, "HUMAN", weekKey)) or 0
    local mCnt = tonumber(getplayvar(actor, "HUMAN", monthKey)) or 0
    if wCnt >= 5 then
        sendmsg(actor, 1, "本周限购已满（5 个）。")
        return
    end
    if mCnt >= 12 then
        sendmsg(actor, 1, "本月限购已满（12 个）。")
        return
    end
    if not takeitem(actor, "金条", 3) then
        sendmsg(actor, 1, "售价 3 根金条，金条不足。")
        return
    end
    giveitem(actor, goodsId, 1, 1)
    setplayvar(actor, "HUMAN", weekKey, wCnt + 1, 1)
    setplayvar(actor, "HUMAN", monthKey, mCnt + 1, 1)
end

local function quotaLeft(actor, goodsId)
    actor = getplayerbyname(actor)
    local weekKey, monthKey = periodKeys(goodsId)
    local wCnt = tonumber(getplayvar(actor, "HUMAN", weekKey)) or 0
    local mCnt = tonumber(getplayvar(actor, "HUMAN", monthKey)) or 0
    sendmsg(actor, 1, "本周剩 " .. (5 - wCnt) .. " 个，本月剩 " .. (12 - mCnt) .. " 个。")
end