同归爆：烧到只剩一口气，炸它一整片

 fx-lastblaze

--------------------------------------------------------------------------------
-- @file        LastBlaze.lua
-- @brief       同归爆 —— 烧到只剩一口气，炸它一整片
--              客户端表现模块：配置表 / 预警圈构件 / 血雷换算 / 定时器
--------------------------------------------------------------------------------

local LastBlaze = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    FUSE_LIFE     = 1.0,        -- 点火一秒
    BLAZE_CD      = 15.0,       -- 冷却十五秒
    LEFT_HP       = 1,          -- 炸完剩一
    BLAZE_RATE    = 3.0,        -- 烧一炸三
    BLAZE_RADIUS  = 160,        -- 半屏火圈

    -- 颜色
    COLOR_BLAZE   = "#f85149",  -- 烈焰
    COLOR_DEEP    = "#7a1d1d",  -- 余烬
    COLOR_FLASH   = "#ffe08a",  -- 爆白

    ZORDER_GROUND = 118,
    ZORDER_WARN   = 119,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 929000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _fuseT     = 0              -- 点火余时
local _cdLeft    = 0
local _burning   = false
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 "LBZ", CONST.AUTOINC_BASE + _autoInc)
end

local function GetMyPos()
    local x = SL:GetValue("ACTOR_POSITION_X", SL:GetValue("USER_ID"))
    local y = SL:GetValue("ACTOR_POSITION_Y", SL:GetValue("USER_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 CreateWarnRing()
    local mp = GetMyPos()
    if not mp then return end
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Warn"),
        mp.x, mp.y - 30, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_WARN)
    for i = 1, 36 do
        local a1 = (i - 1) / 36 * 6.28
        local a2 = i / 36 * 6.28
        GUI:DrawLine_Create(node, string.format("w_%d", i), 0, 0, 3,
            m_cos(a1) * CONST.BLAZE_RADIUS, m_sin(a1) * CONST.BLAZE_RADIUS * 0.4,
            m_cos(a2) * CONST.BLAZE_RADIUS, m_sin(a2) * CONST.BLAZE_RADIUS * 0.4,
            CONST.COLOR_BLAZE, 180)
    end
    GUI:setScale(node, 1.0)
    GUI:runAction(node, GUI:ActionSequence(
        GUI:ActionScaleTo(CONST.FUSE_LIFE, 0.12, 0.12),
        GUI:CallFunc(function() SafeRemove(node) end)
    ))
    return node
end

--------------------------------------------------------------------------------
-- 点火与清算
--------------------------------------------------------------------------------
local function Blaze_Ignite(warnBag)
    _burning = true
    _fuseT = CONST.FUSE_LIFE
    warnBag[#warnBag + 1] = CreateWarnRing()
    ShowTip("点了——一秒后炸，半屏都是火")
end

local function Blaze_Detonate(targetID)
    local myID = SL:GetValue("USER_ID")
    local hp = SL:GetValue("ACTOR_HP", myID)
    local spent = (hp or 0) - CONST.LEFT_HP
    if spent <= 0 then
        _burning = false
        return
    end
    SL:SetHp(myID, CONST.LEFT_HP)
    local vd = math.round(spent * CONST.BLAZE_RATE)
    local mp = GetMyPos()
    local tp = GetActorPos(targetID)
    if tp and mp and math.abs(tp.x - mp.x) <= CONST.BLAZE_RADIUS then
        SL:ActorHurt(targetID, vd)
        SL:TipAbove(targetID, "-" .. vd)
    end
    SL:PlayBlazeBurst(mp.x, mp.y)
    SL:ScreenShake(7, 0.42)
    SL:EnterWeakState(myID, CONST.BLAZE_CD)
    ShowTip("炸了" .. vd .. "——你现在比它先脆，撤着打")
    _burning = false
end

--------------------------------------------------------------------------------
-- 公共接口
--------------------------------------------------------------------------------
function LastBlaze.Cast(targetID, warnBag)
    if _cdLeft > 0 or _burning then return end
    local hp = SL:GetValue("ACTOR_HP", SL:GetValue("USER_ID"))
    if not hp or hp <= 30 then
        ShowTip("血不够烧——留着这口喘气")
        return
    end
    Blaze_Ignite(warnBag)
    SL:ScheduleOnce(function()
        Blaze_Detonate(targetID)
    end, CONST.FUSE_LIFE)
end

--------------------------------------------------------------------------------
-- 定时器与调试
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_ACTOR_DEAD, "LBZ_Dead", function(data)
    if data and data.id == SL:GetValue("USER_ID") and _burning then
        _burning = false
    end
end)

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

return LastBlaze