推币机：推出去的总比掉下来的多

fx-coinpush

local CoinPush = {}
local KEY = { TRAVEL = 34, EDGE = 560 }

function CoinPush.Tick(dt)
    -- 推板三角波
    local p = SL:GetValue("pusher")
    p.x = p.x + p.dir * 26 * dt
    if p.x >= SL:GetValue("pushBase") + KEY.TRAVEL then p.dir = -1 end
    if p.x <= SL:GetValue("pushBase") then p.dir = 1 end
    SL:SetFxPos("pusher", p.x, SL:GetValue("plateY"))
    -- 板面直接接触的币: 跟随板沿
    local plate = p.x + 36
    for _, c in ipairs(SL:GetValue("coins")) do
        if c.x < plate + 12 then
            c.x = plate + 12
        end
    end
    -- 台沿判定: 过线即坠落计奖
    for i = #SL:GetValue("coins"), 1, -1 do
        local c = SL:GetValue("coin", i)
        if c.x > KEY.EDGE then
            table.remove(SL:GetValue("coins"), i)
            SL:SetValue("won", SL:GetValue("won") + 1)
            SL:PlayBurst(KEY.EDGE, SL:GetValue("plateY") + 20, "gold", 5)
            SL:ShowSystemTips("坠入奖池! 共 " .. SL:GetValue("won"))
        end
    end
end

function CoinPush.DropCoin()
    -- 落币带随机横偏, 避免完美堆叠
    SL:PlayFlyFx("coin", 240 + math.random() * 40, 30,
                 240 + math.random() * 40, SL:GetValue("stackY"), 0.5,
                 { spin = 8 })
end

return CoinPush