崩血：伤口一动就崩，跑得越快掉血越凶

 fx-bleedflow

--------------------------------------------------------------------------------
-- @file        BleedFlow.lua
-- @brief       崩血 —— 伤口一动就崩，跑得越快掉血越凶
--              客户端表现模块：配置表 / 伤口构件 / 位移侦测 / 定时器
--------------------------------------------------------------------------------

local BleedFlow = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    BLEED_LIFE    = 6.0,        -- 伤口六秒
    BLEED_CD      = 5.0,        -- 割裂冷却
    TICK_GAP      = 1.0,        -- 一秒一跳
    TICK_BASE     = 4,          -- 静着跳四
    TICK_BOOM     = 8,          -- 动着崩八
    MOVE_EPS      = 6,          -- 位移阈值六步

    -- 颜色
    COLOR_BLOOD   = "#e0524a",  -- 崩血红
    COLOR_DEEP    = "#7a1d1d",  -- 深红
    COLOR_GHOST   = "#ffb0a8",  -- 血白

    ZORDER_GROUND = 118,
    ZORDER_WOUND  = 132,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 947000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _bleedT     = 0              -- 伤口余时
local _tickT      = 0              -- 跳秒计时
local _moved      = false          -- 本跳内是否移动过
local _lastX      = nil
local _cdLeft     = 0
local _scheduler  = nil
local _autoInc    = 0

local m_rand = math.random

--------------------------------------------------------------------------------
-- 辅助函数
--------------------------------------------------------------------------------
local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "BLF", 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 CreateWoundNode(x, y)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Wnd"), x, y - 60, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_WOUND)
    for d = 0, 2 do
        GUI:DrawLine_Create(node, "line_" .. d, 0, 0, 2,
            -10 + d * 10, 0, -10 + d * 10, 6 + d * 2,
            CONST.COLOR_BLOOD, 220)
    end
    return node
end

--------------------------------------------------------------------------------
-- 割裂入口
--------------------------------------------------------------------------------
function BleedFlow.Cast()
    if _cdLeft > 0 then return end
    _cdLeft = CONST.BLEED_CD
    _bleedT = CONST.BLEED_LIFE
    _tickT = 0
    local tp = GetActorPos(SL:GetValue("MARK_TARGET_ID"))
    if tp then CreateWoundNode(tp.x, tp.y) end
    ShowTip("口子拉开了——它一动血就崩一倍")
end

--------------------------------------------------------------------------------
-- 定时器：位移侦测与动态跳表
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _bleedT <= 0 then return end
        _bleedT = _bleedT - dt
        local tid = SL:GetValue("MARK_TARGET_ID")
        local tp = tid and GetActorPos(tid)
        if tp then
            if _lastX and math.abs(tp.x - _lastX) > CONST.MOVE_EPS then
                _moved = true
            end
            _lastX = tp.x
        end
        _tickT = _tickT + dt
        if _tickT >= CONST.TICK_GAP then
            _tickT = _tickT - CONST.TICK_GAP
            if _moved then
                SL:ActorHurt(tid, CONST.TICK_BOOM)
                SL:TipAbove(tid, "崩-" .. CONST.TICK_BOOM)
            else
                SL:ActorHurt(tid, CONST.TICK_BASE)
                SL:TipAbove(tid, "-" .. CONST.TICK_BASE)
            end
            _moved = false
            if _bleedT <= 0 then
                ShowTip("口子结了——再割一道接着崩")
            end
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_SCENE_CLEAR, "BLF_Clear", function()
    _bleedT, _tickT, _moved = 0, 0, false
end)

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

return BleedFlow