孤军：拆了它的队，落单的挨刀加四成

 fx-lonepack

-- @file LonePack.lua
-- 孤军 —— 拆了它的队，落单的挨刀加四成

local LonePack = {}

local CONST = {
    LONE_RADIUS   = 110,
    PUSH_DIST     = 160,
    LONE_AMP      = 1.4,
    PUSH_CD       = 4.0,

    COLOR_LONE    = "#6a8ac0",
    COLOR_DEEP    = "#24365e",
    COLOR_GHOST   = "#c8d8f0",

    ZORDER_LONE   = 130,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1018000,
}

local _loneT     = 0
local _loneID    = 0
local _cdLeft    = 0
local _loneFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "LNK",
        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 CountPackNear(id)
    local n = 0
    local mp = GetActorPos(id)
    if not mp then return n end
    for _, pid in ipairs(SL:GetPackmates(id)) do
        if not SL:GetValue("ACTOR_DEAD", pid) then
            local pp = GetActorPos(pid)
            if pp and math.abs(pp.x - mp.x) <= CONST.LONE_RADIUS then
                n = n + 1
            end
        end
    end
    return n
end

function LonePack.Push()
    if _cdLeft > 0 then
        ShowTip("手在推——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    local tid = SL:GetValue("MARK_TARGET_ID")
    if not tid then return end
    local pushed = SL:PushPackmates(tid, CONST.PUSH_DIST)
    if pushed == 0 then
        ShowTip("它已经落单了——打点上加成的刀")
        return
    end
    _cdLeft = CONST.PUSH_CD
    ShowTip("队拆了——它落单了，四成的加成开门了")
end

-- 孤军增伤出口：落单的挨刀乘一点四
SL:RegisterLUAEvent(LUA_EVENT_BEFORE_HURT, "LNK_Amp", function(tid, dmg)
    if _loneT > 0 and tid == _loneID then
        return math.floor(dmg * CONST.LONE_AMP)
    end
    return dmg
end)

-- 定时器：落单巡检与光晕跟脚
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        local tid = SL:GetValue("MARK_TARGET_ID")
        if not tid or SL:GetValue("ACTOR_DEAD", tid) then
            _loneT = 0
            SafeRemove(_loneFx)
            return
        end
        local near = CountPackNear(tid)
        if near == 0 and _loneT <= 0 then
            _loneT = 1
            _loneID = tid
            SL:PlayLoneFx(tid)
            SL:TipAbove(tid, "落单！")
        elseif near > 0 and _loneT > 0 then
            _loneT = 0
            _loneID = 0
            SafeRemove(_loneFx)
            SL:TipAbove(tid, "归队")
        elseif _loneT > 0 then
            local tp = GetActorPos(tid)
            if _loneFx and tp then
                GUI:setPosition(_loneFx, tp.x, tp.y - 55)
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("拆队", function()
        LonePack.Push()
    end)
    ShowTip("技能已加载: 孤军 (调试按钮触发)")
end, 1.0)

function LonePack.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_BEFORE_HURT, "LNK_Amp")
    SafeRemove(_loneFx)
end

return LonePack