三环扣：三角链死一伤二，连环清场

 fx-trinet

-- @file TriNet.lua
-- 三环扣 —— 三角链死一伤二，连环清场

local TriNet = {}

local CONST = {
    CHAIN_DMG     = 15,

    COLOR_CHAIN   = "#c86830",
    COLOR_DEEP    = "#54240e",
    COLOR_GHOST   = "#f4c8a8",

    ZORDER_CHAIN  = 129,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1054000,
}

local _trio      = {}
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "TNT",
        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 ShowTip(msg)
    if msg and msg ~= "" then SL:ShowSystemTips(msg) end
end

local function AliveCount()
    local n = 0
    for _, tid in ipairs(_trio) do
        if not SL:GetValue("ACTOR_DEAD", tid) then n = n + 1 end
    end
    return n
end

local function ChainHit(exclude, dmg)
    local hit = false
    for _, tid in ipairs(_trio) do
        if tid ~= exclude
            and not SL:GetValue("ACTOR_DEAD", tid) then
            SL:ActorHurt(tid, dmg)
            SL:TipAbove(tid, "链-15")
            hit = true
            if SL:GetValue("ACTOR_DEAD", tid) then
                ChainHit(tid, dmg)
            end
        end
    end
    return hit
end

-- 死亡钩子：链上传伤
SL:RegisterLUAEvent(LUA_EVENT_ACTOR_DEATH, "TNT_Chain", function(tid)
    for _, t in ipairs(_trio) do
        if t == tid then
            if AliveCount() > 0 then
                ChainHit(tid, CONST.CHAIN_DMG)
                ShowTip("连环扣开了——一只带一只走")
            end
            break
        end
    end
end)

-- 定时器：链线的存续巡检
if not _scheduler then
    _scheduler = SL:Schedule(function()
        if #_trio < 3 then return end
        local alive = AliveCount()
        if alive == 0 then
            ShowTip("三只全倒——链子把最后一环也收了")
        end
    end, 0.5)
end

SL:ScheduleOnce(function()
    _trio = SL:GetSmallTrio()
    SL:BindDebugButton("清点", function()
        ShowTip("还剩" .. AliveCount() .. "只在链上")
    end)
    ShowTip("技能已加载: 三环扣 (调试按钮触发)")
end, 1.0)

function TriNet.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_ACTOR_DEATH, "TNT_Chain")
    _trio = {}
end

return TriNet