尸爆：杀一个炸一片，尸气也能开路

 fx-corpseblast

-- @file CorpseBlast.lua
-- 尸爆 —— 杀一个炸一片，尸气也能开路

local CorpseBlast = {}

local CONST = {
    BLAST_RADIUS  = 90,
    BLAST_DMG     = 20,
    BLAST_CD      = 3.0,

    COLOR_CORPSE  = "#b08a5a",
    COLOR_DEEP    = "#4e3a1e",
    COLOR_GHOST   = "#e8d8b8",

    ZORDER_MARK   = 129,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 998000,
}

local _marks     = {}
local _boomCd    = 0
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "CBT",
        CONST.AUTOINC_BASE + _autoInc)
end

local function GetActorPos(id)
    if not id then return nil end
    local x = SL:GetValue("ACTOR_POSITION_X", id)
    local y = SL:GetValue("ACTOR_POSITION_Y", id)
    if not x or not y then return nil end
    return { x = x, y = y }
end

local function SafeRemove(node)
    if node and not GUI:Widget_IsNull(node) then
        GUI:removeFromParent(node)
    end
end

local function ShowTip(msg)
    if msg and msg ~= "" then SL:ShowSystemTips(msg) end
end

local function DropMark(x, y)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Mark"), x, y, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_MARK)
    GUI:DrawRect_Create(node, "m", -4, -14, 8, 14,
        CONST.COLOR_CORPSE, 210)
    table.insert(_marks, { x = x, y = y, node = node })
    return node
end

local function OnAnyDeath(tid)
    local tp = GetActorPos(tid)
    if tp then
        DropMark(tp.x, tp.y)
        ShowTip("倒了一具——尸气落地，等引爆")
    end
end

-- 引爆出口：清表逐摊炸
function CorpseBlast.Detonate()
    if _boomCd > 0 then
        ShowTip("尸气在聚——" .. string.format("%.1f", _boomCd) .. "秒")
        return
    end
    if #_marks == 0 then
        ShowTip("地上没尸气——先放倒一只")
        return
    end
    _boomCd = CONST.BLAST_CD
    local hits = 0
    for i = #_marks, 1, -1 do
        local mk = _marks[i]
        SL:PlayBlastFx(mk.x, mk.y)
        for _, tid in ipairs(SL:GetAllActorsInView()) do
            local tp = GetActorPos(tid)
            if tp and math.abs(tp.x - mk.x) <= CONST.BLAST_RADIUS then
                SL:ActorHurt(tid, CONST.BLAST_DMG)
                SL:TipAbove(tid, "-20")
                hits = hits + 1
                if SL:GetValue("ACTOR_DEAD", tid) then
                    OnAnyDeath(tid)
                end
            end
        end
        SafeRemove(mk.node)
        table.remove(_marks, i)
    end
    SL:ScreenShake(3.2, 0.2)
    if hits > 0 then ShowTip("引爆了——" .. hits .. "个挨了尸气") end
end

-- 死亡钩子：尸气自动入表
SL:RegisterLUAEvent(LUA_EVENT_ACTOR_DEATH, "CBT_Drop", function(tid)
    OnAnyDeath(tid)
end)

-- 定时器：冷却推进
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _boomCd = math.max(0, _boomCd - dt)
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("引爆", function()
        CorpseBlast.Detonate()
    end)
    ShowTip("技能已加载: 尸爆 (调试按钮触发)")
end, 1.0)

function CorpseBlast.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_ACTOR_DEATH, "CBT_Drop")
    for i = #_marks, 1, -1 do SafeRemove(_marks[i].node) end
    _marks = {}
end

return CorpseBlast