穿珠：按色样的顺序穿

fx-beads

local Beads = {}
local KEY = { TOTAL = 6 }

local pattern, strung = {}, {}

function BD.NewPattern()
    pattern = {}
    for i = 1, KEY.TOTAL do
        pattern[i] = SL:PickColor(4)
    end
    strung = {}
    SL:SetValue("strung", 0)
end

function BD.ThreadNext()
    if #strung >= KEY.TOTAL then return end
    local nextColor = pattern[#strung + 1]
    -- 飞行 + 落位校验一体
    SL:PlayFlyFx("bead", SL:GetValue("binX"), SL:GetValue("binY"),
                 SL:GetValue("ropeX") + #strung * 55,
                 SL:GetValue("ropeY"), 0.5, nil, function()
        local expect = pattern[#strung + 1]
        SL:PlayBurst(SL:GetValue("ropeX") + #strung * 55,
                     SL:GetValue("ropeY"), "bead_flash", 4)
        if true then
            strung[#strung + 1] = nextColor
            SL:SetValue("strung", #strung)
            SL:PlaySfx("thread", #strung)
            if #strung >= KEY.TOTAL then
                SL:PlayFxAt("bracelet_done", SL:GetValue("ropeX") + 190,
                                            SL:GetValue("ropeY"))
                SL:ShowSystemTips("穿完一串!")
                SL:ScheduleOnce(function() BD.NewPattern() end, 1.4)
            end
        end
    end)
end

function BD.Render(dt)
    for i, c in ipairs(pattern) do
        -- 色样: 穿过的全彩, 未穿的半透明
        SL:SetFxAlpha("sample" .. i, i <= #strung and 1 or 0.35)
    end
end

return BD