红包雨：满天红包抢不完

fx-hongbao

local RedPackRain = {}
local CONST = { MSG_ID = 12230, KEY = "RedPackRain", DURATION = 8, SPAWN = 2 }

function RedPackRain.Start()
    RedPackRain._left = CONST.DURATION
    RedPackRain._packs = {}
    RedPackRain._acc = 0
    RedPackRain._sched = SL:Schedule(function(dt)
        RedPackRain:Update(dt)
    end, 0.02)
end

function RedPackRain:Update(dt)
    self._left = self._left - dt
    if self._left <= 0 then self:Stop() end

    self._acc = self._acc + dt
    local itv = CONST.SPAWN / DENSITY
    while self._acc >= itv do
        self._acc = self._acc - itv
        table.insert(self._packs, {
            id = SL:GetValue("AUTO_INC"),              -- 每个红包全局唯一号
            x = math.random(30, 630), y = -40,
            vy = 110 + math.random() * 70
        })
    end
end

function RedPackRain.OnClick(packID)
    local pack = RedPackRain:Find(packID)
    if not pack or pack.taken then return end
    pack.taken = true                                  -- 本地锁定: 别的点击全挡
    SL:SendLuaNetMsg(CONST.MSG_ID, 0, 0, 0,
        SL:JsonEncode({ key = CONST.KEY, op = 2, packID = packID }))
    SpawnGoldBurst(pack.x, pack.y)
end

return RedPackRain