蚀骨蛊：一层比一层深的毒，叠八层烧穿骨

 fx-bonerot

--------------------------------------------------------------------------------
-- @file        BoneRot.lua
-- @brief       蚀骨蛊 —— 一层比一层深的毒，叠八层烧穿骨
--              客户端表现模块：配置表 / 层表 / 乘法跳结算 / 定时器
--------------------------------------------------------------------------------

local BoneRot = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    ROT_CAP       = 8,          -- 八层封顶
    ROT_LIFE      = 6.0,        -- 每层六秒
    ROT_TICK      = 1.0,        -- 一秒一跳
    DMG_PER_STACK = 3,          -- 每层跳三
    CAST_CD       = 2.2,        -- 下蛊冷却
    BUG_FLY       = 0.30,       -- 蛊虫飞行

    -- 颜色
    COLOR_ROT     = "#a371f7",  -- 蛊紫
    COLOR_DEEP    = "#4a2a7a",  -- 深紫
    COLOR_BONE    = "#e6edf3",  -- 骨白

    ZORDER_GROUND = 118,
    ZORDER_BUG    = 134,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 923000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _stacks   = {}            -- 层表：每个元素一个六秒倒计时
local _bugs     = {}            -- 飞行中的蛊虫
local _tickT    = 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 "BRT", 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 CreateRotBurst(x, y, stacks)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Burst"), x, y, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_EFFECT)
    local r = 18 + stacks * 2.5
    for i = 1, 12 do
        local a1 = (i - 1) / 12 * 6.28
        local a2 = i / 12 * 6.28
        GUI:DrawLine_Create(node, string.format("r_%d", i), 0, 0, 2,
            m_cos(a1) * r, m_sin(a1) * r * 0.4, m_cos(a2) * r, m_sin(a2) * r * 0.4,
            CONST.COLOR_ROT, 190)
    end
    GUI:runAction(node, GUI:ActionSequence(
        GUI:ActionFadeOut(0.32),
        GUI:CallFunc(function() SafeRemove(node) end)
    ))
end

--------------------------------------------------------------------------------
-- 层表维护
--------------------------------------------------------------------------------
local function Rot_Apply()
    if #_stacks >= CONST.ROT_CAP then
        table.remove(_stacks, 1)          -- 满层挤掉最老的一层
    end
    table.insert(_stacks, CONST.ROT_LIFE)
    return #_stacks
end

local function Rot_Update(dt)
    for i = #_stacks, 1, -1 do
        _stacks[i] = _stacks[i] - dt
        if _stacks[i] <= 0 then
            table.remove(_stacks, i)      -- 到期的层自己散
        end
    end
end

local function Rot_DotTick(targetID)
    if #_stacks <= 0 then return end
    local vd = #_stacks * CONST.DMG_PER_STACK
    local tp = GetActorPos(targetID)
    if tp then
        SL:ActorHurt(targetID, vd)
        SL:TipAbove(targetID, "-" .. vd)
        if #_stacks >= 5 then
            SL:PlayBoneCrack(targetID, #_stacks)
        end
    end
end

--------------------------------------------------------------------------------
-- 蛊虫飞行与命中
--------------------------------------------------------------------------------
local function Bug_Update(bug, dt)
    local tp = GetActorPos(bug.targetID)
    if not tp then
        return false
    end
    bug.x = bug.x + (tp.x - bug.x) * math.min(1, 7 * dt)
    bug.life = bug.life - dt
    if math.abs(bug.x - tp.x) < 16 or bug.life <= 0 then
        local stacks = Rot_Apply()
        CreateRotBurst(tp.x, tp.y, stacks)
        SL:TipAbove(bug.targetID, "蛊" .. stacks .. "层")
        return false
    end
    return true
end

--------------------------------------------------------------------------------
-- 公共接口
--------------------------------------------------------------------------------
function BoneRot.Cast(myID, targetID)
    if _cdLeft > 0 then return end
    if #_stacks >= CONST.ROT_CAP then return end
    _cdLeft = CONST.CAST_CD
    local mp = GetActorPos(myID)
    if mp then
        table.insert(_bugs, { x = mp.x + 16, y = mp.y - 58, targetID = targetID,
            life = CONST.BUG_FLY * 3 })
    end
end

--------------------------------------------------------------------------------
-- 定时器与调试
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        Rot_Update(dt)
        _tickT = _tickT + dt
        if _tickT >= CONST.ROT_TICK then
            _tickT = _tickT - CONST.ROT_TICK
            Rot_DotTick(SL:GetValue("MARK_TARGET_ID"))
        end
        for i = #_bugs, 1, -1 do
            if not Bug_Update(_bugs[i], dt) then
                table.remove(_bugs, i)
            end
        end
    end, 0.02)
end

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

SL:RegisterLUAEvent(LUA_EVENT_ACTOR_DEAD, "BRT_Dead", function(data)
    if data and data.id == SL:GetValue("MARK_TARGET_ID") then
        _stacks, _bugs = {}, {}
    end
end)

return BoneRot