地锁桩纹：拴它的桩在地上，越界就拽回

 fx-groundleash

-- @file GroundLeash.lua
-- 地锁桩纹 —— 拴它的桩在地上，越界就拽回

local GroundLeash = {}

local CONST = {
    LOCK_LIFE     = 12.0,
    LOCK_CD       = 6.0,
    LEASH_RANGE   = 90,
    SNAP_DMG      = 8,

    COLOR_LEASH   = "#a08858",
    COLOR_DEEP    = "#483818",
    COLOR_GHOST   = "#f0e0b0",

    ZORDER_LEASH  = 89,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1115000,
}

local _lockT     = 0
local _cdLeft    = 0
local _stakeX    = 0
local _tid       = 0
local _lockFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "GLH",
        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

function GroundLeash.Over()
    local tp = GetActorPos(_tid)
    if not tp then return false end
    return math.abs(tp.x - _stakeX) > CONST.LEASH_RANGE
end

-- 界距判定与拽回清算：每拍量距，越界即拽
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _lockT > 0 then
            _lockT = _lockT - dt
            if GroundLeash.Over() then
                local tp = GetActorPos(_tid)
                local side = (tp.x > _stakeX) and 1 or -1
                SL:SetPosition(_tid,
                    _stakeX + side * CONST.LEASH_RANGE)
                SL:ActorHurt(_tid, CONST.SNAP_DMG)
                SL:TipAbove(_tid, "拽-" .. CONST.SNAP_DMG)
                SL:PlaySnapFx(_tid)
                ShowTip("拽回来了——链子绷直了就收")
            end
            if _lockT <= 0 then
                SafeRemove(_lockFx)
                ShowTip("桩拔了——它自由了")
            end
        end
    end, 0.02)
end

function GroundLeash.Cast()
    if _cdLeft > 0 or _lockT > 0 then return end
    local tid = SL:GetValue("MARK_TARGET_ID")
    local tp = tid and GetActorPos(tid)
    if not tid or not tp then return end
    _cdLeft = CONST.LOCK_CD
    _lockT = CONST.LOCK_LIFE
    _stakeX = tp.x
    _tid = tid
    SafeRemove(_lockFx)
    _lockFx = GUI:Layout_Create(GUI:Attach_Scene(),
        GenID("Stake"), _stakeX, tp.y, 0, 0, false)
    GUI:setLocalZOrder(_lockFx, CONST.ZORDER_LEASH)
    SL:PlayStakeDownFx(_stakeX)
    ShowTip("桩打下去了——九十步为界，越界就拽")
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("锁地", function()
        GroundLeash.Cast()
    end)
    ShowTip("技能已加载: 地锁纹 (调试按钮触发)")
end, 1.0)

function GroundLeash.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SafeRemove(_lockFx)
    _lockT = 0
    _tid = 0
end

return GroundLeash