困灵阵：画个圈关住它，出圈的腿会疼

 fx-soulpen

--------------------------------------------------------------------------------
-- @file        SoulPen.lua
-- @brief       困灵阵 —— 画个圈关住它，出圈的腿会疼
--              客户端表现模块：配置表 / 符阵构件 / 越界弹回 / 定时器
--------------------------------------------------------------------------------

local SoulPen = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    PEN_LIFE      = 8.0,        -- 阵开八秒
    PEN_CD        = 10.0,       -- 画阵冷却
    PEN_RADIUS    = 80,         -- 圈半径八十
    EDGE_SOFT     = 0.9,        -- 九成半径算贴沿
    LEAP_DMG      = 15,         -- 出圈一步十五

    -- 颜色
    COLOR_PEN     = "#e0a458",  -- 阵铜
    COLOR_DEEP    = "#7a5a2b",  -- 深铜
    COLOR_GHOST   = "#ffe4b8",  -- 阵白

    ZORDER_GROUND = 118,
    ZORDER_PEN    = 128,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 936000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _penT      = 0              -- 阵的余时
local _penX      = 0              -- 阵心横坐标
local _cdLeft    = 0
local _scheduler = nil
local _autoInc   = 0

local m_cos = math.cos
local m_sin = math.sin

--------------------------------------------------------------------------------
-- 辅助函数
--------------------------------------------------------------------------------
local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "SPN", CONST.AUTOINC_BASE + _autoInc)
end

local function GetActorPos(actorID)
    if not actorID then return nil end
    local x = SL:GetValue("ACTOR_POSITION_X", actorID)
    local y = SL:GetValue("ACTOR_POSITION_Y", actorID)
    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 CreatePenNode(x, y)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Pen"), x, y - 18, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_PEN)
    for i = 1, 40 do
        local a1 = (i - 1) / 40 * 6.28
        local a2 = i / 40 * 6.28
        GUI:DrawLine_Create(node, string.format("c_%d", i), 0, 0, 2.5,
            m_cos(a1) * CONST.PEN_RADIUS, m_sin(a1) * CONST.PEN_RADIUS * 0.36,
            m_cos(a2) * CONST.PEN_RADIUS, m_sin(a2) * CONST.PEN_RADIUS * 0.36,
            CONST.COLOR_PEN, 200)
    end
    for g = 1, 6 do
        local a = g / 6 * 6.28
        GUI:DrawLine_Create(node, "orb_" .. g, 0, 0, 4,
            m_cos(a) * CONST.PEN_RADIUS * 0.92, m_sin(a) * CONST.PEN_RADIUS * 0.32,
            m_cos(a) * CONST.PEN_RADIUS * 0.92, m_sin(a) * CONST.PEN_RADIUS * 0.32,
            CONST.COLOR_GHOST, 230)
    end
    return node
end

--------------------------------------------------------------------------------
-- 画阵与越界
--------------------------------------------------------------------------------
function SoulPen.Cast(x)
    if _cdLeft > 0 or _penT > 0 then return end
    _cdLeft = CONST.PEN_CD
    _penT = CONST.PEN_LIFE
    _penX = x
    CreatePenNode(x, 0)
    ShowTip("阵落了——圈住它了，出圈一步十五")
end

local function Pen_LeapCheck(mx)
    if _penT <= 0 then return false end
    return math.abs(mx - _penX) > CONST.PEN_RADIUS * CONST.EDGE_SOFT
end

--------------------------------------------------------------------------------
-- 定时器：阵寿与弹回
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _penT > 0 then
            _penT = _penT - dt
            if _penT <= 0 then
                ShowTip("阵散了——它自由了，下一阵跟上")
            end
        end
        local tid = SL:GetValue("MARK_TARGET_ID")
        local tp = tid and GetActorPos(tid)
        if tp and Pen_LeapCheck(tp.x) then
            local dir = tp.x > _penX and -1 or 1
            SL:ActorHurt(tid, CONST.LEAP_DMG)
            SL:TipAbove(tid, "-" .. CONST.LEAP_DMG)
            SL:PushActor(tid, dir * 30)
            if m_sin(SL:GetValue("SYS_TIME")) > 0 then
                ShowTip("撞圈了——一步十五，弹回去")
            end
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_SCENE_CLEAR, "SPN_Clear", function()
    _penT = 0
end)

SL:ScheduleOnce(function()
    ShowTip("技能已加载: 困灵阵 (调试按钮触发)")
end, 1.0)

return SoulPen