蛮牛劲：一勾锁它拖下马，硬生生拽到跟前

 fx-bullhook

-- @file BullHook.lua
-- 蛮牛劲 —— 一勾锁它拖下马，硬生生拽到跟前

local BullHook = {}

local CONST = {
    HOOK_CD       = 5.0,
    DRAG_TIME     = 0.4,
    STOP_OFFSET   = 66,
    DRAG_DMG      = 6,
    STUN_TIME     = 1.0,

    COLOR_HOOK    = "#c07840",
    COLOR_DEEP    = "#5e3218",
    COLOR_GHOST   = "#f0c8a0",

    ZORDER_CHAIN  = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 990000,
}

local _cdLeft    = 0
local _dragT     = 0
local _dragFrom  = 0
local _dragTo    = 0
local _hookID    = 0
local _chainFx   = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "BLH",
        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 CreateChainFx()
    local node = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Chain"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_CHAIN)
    return node
end

local function DragLand()
    local myID = SL:GetValue("USER_ID")
    local mp = GetActorPos(myID)
    if mp then
        SL:SetActorPos(_hookID, mp.x
            + (_hookID and 0 or 0) + (mp.x > _dragTo
                and CONST.STOP_OFFSET or -CONST.STOP_OFFSET))
    end
    SL:StunActor(_hookID, CONST.STUN_TIME)
    SL:ActorHurt(_hookID, CONST.DRAG_DMG)
    SL:PlayLandFx(_hookID)
    SL:ScreenShake(3, 0.18)
    SafeRemove(_chainFx)
    _chainFx = nil
    ShowTip("拖到位了——它懵一秒，趁现在下手")
end

-- 出勾
function BullHook.Cast()
    if _cdLeft > 0 or _dragT > 0 then return end
    local tid = SL:GetValue("MARK_TARGET_ID")
    local tp = GetActorPos(tid)
    local myID = SL:GetValue("USER_ID")
    local mp = GetActorPos(myID)
    if not tid or not tp or not mp then return end
    _cdLeft = CONST.HOOK_CD
    _dragT = CONST.DRAG_TIME
    _dragFrom = tp.x
    _dragTo = mp.x
    _hookID = tid
    _chainFx = CreateChainFx()
    SL:FreezeActorMove(tid, _dragTime)
    SL:PlayHookFx(myID)
    SL:TipAbove(tid, "锁！")
    ShowTip("勾上了——半场距离往回拖")
end

-- 定时器：拖拽插值与冷却推进
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _dragT > 0 then
            _dragT = _dragT - dt
            local k = 1 - math.max(0, _dragT) / CONST.DRAG_TIME
            local x = _dragFrom + (_dragTo - _dragFrom) * k
            SL:SetActorPos(_hookID, x)
            if _chainFx then
                GUI:DrawChain_Update(_chainFx,
                    SL:GetValue("USER_ID"), _hookID, k)
            end
            if _dragT <= 0 then DragLand() end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("蛮牛劲", function()
        BullHook.Cast()
    end)
    ShowTip("技能已加载: 蛮牛劲 (调试按钮触发)")
end, 1.0)

function BullHook.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SafeRemove(_chainFx)
end

return BullHook