弹幕闪避：满屏弹雨里走出生路

fx-bullet

local BulletDodge = {}
local KEY = { HIT_R = 6, GRAZE_R = 20 }

local function ForbidScore(me, x, eta)
    -- 对候选横坐标打威胁分: 越近越危险
    local score = 0
    local bullets = SL:GetValue("bulletsNear", x, eta)
    for _, b in ipairs(bullets) do
        local fx = b.x + b.vx * eta
        local d = math.abs(fx - x)
        if d < 56 then
            score = score + (56 - d) * 4
        end
    end
    return score
end

function Dodge.AutoPilot(me)
    SL:Schedule(function(dt)
        if not SL:GetValue("autoMode") then return end
        local best, bestScore = SL:GetValue("actorX", me), 1e9
        for cand = 60, 600, 30 do
            -- 距离惩罚: 别瞬移, 顺路加分
            local s = math.abs(cand - SL:GetValue("actorX", me)) * 0.02
            s = s + ForbidScore(me, cand, 0.7)
            if s < bestScore then bestScore = s; best = cand end
        end
        SL:SetMoveTargetX(me, best)
    end, 0.4, "dodgeAI")
end

-- 引擎双重判定回调
function BulletDodge.OnOverlap(me, bullet, kind)
    if kind == "hit" then
        SL:PlayFxAt("player_burst", SL:GetValue("actorX", me),
                                   SL:GetValue("actorY", me))
        SL:SetValue("graze", 0)                 -- 重置要带原因
        SL:SetValue("resetReason", "hit")
        SL:SendEvent("dodge_reset", "hit")
    elseif kind == "graze" then
        SL:SetValue("graze", SL:GetValue("graze") + 1)
        SL:PlayBurst(bullet.x, bullet.y, "graze_spark", 5)
        SL:PlaySfx("graze", math.min(4, SL:GetValue("graze") % 5))
    end
end

return BulletDodge