拔刺：把身上的毒拔出来，连本带利扎回去

 fx-thornpull

-- @file ThornPull.lua
-- 拔刺 —— 把身上的毒拔出来，连本带利扎回去

local ThornPull = {}

local CONST = {
    THORN_CAP     = 6,
    THORN_DMG     = 6,
    PULL_AMP      = 1.5,
    PULL_CD       = 5.0,

    COLOR_THORN   = "#7aa860",
    COLOR_DEEP    = "#2e4418",
    COLOR_GHOST   = "#d0ecb0",

    ZORDER_THORN  = 132,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1005000,
}

local _thorns    = 0
local _cdLeft    = 0
local _thornFx   = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "TPR",
        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 AddThorn()
    if _thorns >= CONST.THORN_CAP then
        ShowTip("毒满六根了——再不上点拔刺要吃亏")
        return
    end
    _thorns = _thorns + 1
    SL:PlayThornStabFx(SL:GetValue("USER_ID"), _thorns)
    SL:TipAboveMe("中毒" .. _thorns)
end

function ThornPull.Pull()
    if _cdLeft > 0 then
        ShowTip("手在拔——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    if _thorns <= 0 then
        ShowTip("身上没刺——先让它毒两下")
        return
    end
    _cdLeft = CONST.PULL_CD
    local out = math.floor(_thorns * CONST.THORN_DMG * CONST.PULL_AMP)
    local tid = SL:GetValue("MARK_TARGET_ID")
    local tp = GetActorPos(tid)
    if tp then
        SL:PlayPullThrowFx()
        SL:DelayCall(0.2, function()
            SL:ActorHurt(tid, out)
            SL:TipAbove(tid, "刺-" .. out)
            SL:PlayThornHitFx(tid)
            SL:ScreenShake(3.2, 0.2)
            ShowTip(_thorns .. "根刺拔下来扎回去——" .. out .. "点入账")
        end)
    end
    _thorns = 0
end

-- 中毒钩子：怪带毒的攻击往表里压刺
SL:RegisterLUAEvent(LUA_EVENT_POISON_HIT, "TPR_Stab", function(tid, stacks)
    if tid == SL:GetValue("USER_ID") then
        for i = 1, (stacks or 1) do AddThorn() end
    end
end)

-- 定时器：冷却推进与刺数守护
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _thorns > 0 then
            local myID = SL:GetValue("USER_ID")
            if not myID or SL:GetValue("ACTOR_DEAD", myID) then
                _thorns = 0
                SafeRemove(_thornFx)
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("拔刺", function()
        ThornPull.Pull()
    end)
    ShowTip("技能已加载: 拔刺 (调试按钮触发)")
end, 1.0)

function ThornPull.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_POISON_HIT, "TPR_Stab")
    SafeRemove(_thornFx)
end

return ThornPull