蓄光炮：三秒蓄满一炮贯穿，蓄越久炮越粗

 fx-lightorb

--------------------------------------------------------------------------------
-- @file        LightOrb.lua
-- @brief       蓄光炮 —— 三秒蓄满一炮贯穿，蓄越久炮越粗
--              客户端表现模块：配置表 / 光球构件 / 蓄力等级状态机 / 定时器
--------------------------------------------------------------------------------

local LightOrb = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    CHARGE_MAX    = 3.0,        -- 蓄满三秒
    CHARGE_CD     = 5.0,        -- 冷却五秒
    L1_DMG        = 15,         -- 一阶十五
    L2_DMG        = 30,         -- 二阶三十
    L3_DMG        = 60,         -- 三阶六十
    AUTO_FIRE     = true,       -- 蓄满自动出

    -- 颜色
    COLOR_ORB     = "#f0d860",  -- 光金
    COLOR_DEEP    = "#6b5a10",  -- 深金
    COLOR_GHOST   = "#fff8d8",  -- 光白

    ZORDER_GROUND = 118,
    ZORDER_ORB    = 134,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 966000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _chgT       = 0              -- 蓄力计时
local _charging   = false          -- 蓄力态
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 "LOR", 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 CreateOrbNode(level)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Orb"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_ORB)
    local r = level * 7
    for i = 1, 16 do
        local a1 = (i - 1) / 16 * 6.28
        local a2 = i / 16 * 6.28
        GUI:DrawLine_Create(node, string.format("o_%d", i), 0, 0, 2,
            m_cos(a1) * r, m_sin(a1) * r, m_cos(a2) * r, m_sin(a2) * r,
            CONST.COLOR_GHOST, 220)
    end
    return node
end

--------------------------------------------------------------------------------
-- 蓄力入口与等级判定
--------------------------------------------------------------------------------
function LightOrb.Cast()
    if _cdLeft > 0 or _charging then return end
    _charging = true
    _chgT = 0
    ShowTip("蓄了——三秒满膛自动出，蓄多久打多疼")
end

local function GetLevel()
    if _chgT >= 2.0 then return 3 end
    if _chgT >= 1.0 then return 2 end
    return 1
end

local function GetDmg(level)
    local d = { [1] = CONST.L1_DMG, [2] = CONST.L2_DMG, [3] = CONST.L3_DMG }
    return d[level]
end

--------------------------------------------------------------------------------
-- 出膛结算
--------------------------------------------------------------------------------
local function Orb_Fire(level)
    local tid = SL:GetValue("MARK_TARGET_ID")
    local vd = GetDmg(level)
    SL:ActorHurt(tid, vd)
    SL:TipAbove(tid, "-" .. vd)
    SL:PlayLightBeam(level)
    SL:ScreenShake(2 + level * 1.6, 0.14 + level * 0.06)
    _charging = false
    _chgT = 0
    _cdLeft = CONST.CHARGE_CD
end

--------------------------------------------------------------------------------
-- 定时器：蓄力推进与打断
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if not _charging then return end
        _chgT = _chgT + dt
        if CONST.AUTO_FIRE and _chgT >= CONST.CHARGE_MAX then
            Orb_Fire(3)
            return
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_LOCAL_HURT, "LOR_Hurt", function(data)
    if data and data.raw and _charging then
        _charging = false
        _chgT = 0
        _cdLeft = CONST.CHARGE_CD
        ShowTip("蓄力被打断——光散了，下次找它换弹的空档")
    end
end)

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

return LightOrb