拔河争锋：一寸一寸把胜利拽过来

fx-tug

local TugWar = {}
local KEY = { PULL_STEP = 6, WIN_LINE = 100 }

local st = { mark = 0, scoreP = 0, scoreM = 0, phase = "idle" }

function Tug.Pull()
    if st.phase ~= "race" then return end
    st.mark = st.mark + KEY.PULL_STEP
    SL:PlayBurst(SL:GetValue("markX"), 150, "rope_dust", 3)
    SL:PlaySfx("pull")
    Tug.Check()
end

function Tug.Tick(dt)
    if st.phase ~= "race" then return end
    -- 对方恒速拉回
    local foeSpd = SL:GetValue("foePull") or 8
    st.mark = st.mark - foeSpd * dt
    -- 绳子中段颤动: 僵持的表现
    SL:SetValue("ropeWobble", math.abs(st.mark) < 15 and 1 or 0)
    SL:SetFxPos("marker", 330 + st.mark * 3, 150)
    Tug.Check()
end

function Tug.Check()
    if st.mark >= KEY.WIN_LINE then
        st.phase = "win"
        st.scoreP = st.scoreP + 1
        SL:PlayFxAt("pull_win", 540, 150)
        SL:ShowSystemTips("拉过来了! " .. st.scoreP .. " : " .. st.scoreM)
        Tug.NextRound()
    elseif st.mark <= -KEY.WIN_LINE then
        st.phase = "lose"
        st.scoreM = st.scoreM + 1
        SL:PlayFxAt("pull_lose", 120, 150)
        SL:ShowSystemTips("被拽过去了! " .. st.scoreP .. " : " .. st.scoreM)
        Tug.NextRound()
    end
end

function Tug.NextRound()
    SL:ScheduleOnce(function()
        if st.scoreP >= 2 or st.scoreM >= 2 then
            SL:ShowSystemTips((st.scoreP > st.scoreM and "我方" or "对方") .. " 拿下整场")
            st.scoreP, st.scoreM = 0, 0
        end
        st.mark = 0
        st.phase = "race"
    end, 1.2)
end

return TugWar