迷魂香：一炉香点着，圈里的怪掉头打转

 fx-incense

--------------------------------------------------------------------------------
-- @file        Incense.lua
-- @brief       迷魂香 —— 一炉香点着，圈里的怪掉头打转
--              客户端表现模块：配置表 / 香炉构件 / 迷向状态机 / 定时器
--------------------------------------------------------------------------------

local Incense = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    SMOKE_LIFE    = 6.0,        -- 烟圈六秒
    SMOKE_CD      = 10.0,       -- 焚香冷却
    SMOKE_R       = 90,         -- 烟圈半径九十
    WANDER_GAP    = 0.5,        -- 半秒抽一次行动
    WANDER_SPEED  = 20,         -- 乱走的步速

    -- 颜色
    COLOR_SMOKE   = "#b8c89a",  -- 香绿
    COLOR_DEEP    = "#5a6a3a",  -- 深绿
    COLOR_GHOST   = "#e0ecd0",  -- 香白

    ZORDER_GROUND = 118,
    ZORDER_SMOKE  = 127,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 949000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _smokeT     = 0              -- 烟圈余时
local _smokeX     = 0              -- 炉心横坐标
local _cdLeft     = 0
local _wanderT    = 0              -- 乱走抽签计时
local _wanderDir  = 1              -- 乱走方向
local _confused   = false          -- 迷向标记
local _scheduler  = nil
local _autoInc    = 0

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

--------------------------------------------------------------------------------
-- 辅助函数
--------------------------------------------------------------------------------
local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "INC", 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 CreateBurnerNode(x, y)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Burner"), x, y, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_SMOKE)
    GUI:DrawLine_Create(node, "pot", 0, 0, 16, -8, 0, 8, -12, CONST.COLOR_DEEP, 240)
    GUI:DrawLine_Create(node, "lid", 0, 0, 10, -5, -12, 5, -16, CONST.COLOR_GHOST, 240)
    return node
end

--------------------------------------------------------------------------------
-- 焚香与迷向
--------------------------------------------------------------------------------
function Incense.Cast(x)
    if _cdLeft > 0 or _smokeT > 0 then return end
    _cdLeft = CONST.SMOKE_CD
    _smokeT = CONST.SMOKE_LIFE
    _smokeX = x
    CreateBurnerNode(x, 0)
    ShowTip("香点着了——烟圈六秒，它在里面转磨磨")
end

--------------------------------------------------------------------------------
-- 定时器：烟圈、迷向与乱走
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _smokeT <= 0 then return end
        _smokeT = _smokeT - dt
        if _smokeT <= 0 then
            _confused = false
            ShowTip("香烬了——它回过神，第一眼就找你")
            return
        end
        local tid = SL:GetValue("MARK_TARGET_ID")
        local tp = tid and GetActorPos(tid)
        if not tp then return end
        local inSmoke = math.abs(tp.x - _smokeX) <= CONST.SMOKE_R
        if inSmoke and not _confused then
            _confused = true
            SL:ClearHate(tid)                 -- 仇恨解绑，方向清零
            SL:TipAbove(tid, "迷目")
        elseif not inSmoke and _confused then
            _confused = false
            ShowTip("它走出烟了——下一炉跟上")
        end
        if _confused then
            _wanderT = _wanderT - dt
            if _wanderT <= 0 then
                _wanderT = CONST.WANDER_GAP
                _wanderDir = m_rand() > 0.5 and 1 or -1
                SL:WanderStep(tid, _wanderDir * CONST.WANDER_SPEED * 0.5)
            end
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_SCENE_CLEAR, "INC_Clear", function()
    _smokeT = 0
    _confused = false
end)

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

return Incense