瞭望：扑了它的灯，警戒圈缩一半

 fx-scoutlamp

-- @file ScoutLamp.lua
-- 瞭望 —— 扑了它的灯，警戒圈缩一半

local ScoutLamp = {}

local CONST = {
    LAMP_LIFE     = 5.0,
    LAMP_CD       = 6.0,
    RANGE_BASE    = 220,
    RANGE_MULT    = 0.4,

    COLOR_LAMP    = "#8898b8",
    COLOR_DEEP    = "#26304a",
    COLOR_GHOST   = "#d0dcec",

    ZORDER_LAMP   = 128,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1037000,
}

local _lampT     = 0
local _lampID    = 0
local _cdLeft    = 0
local _lampFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "SCL",
        CONST.AUTOINC_BASE + _autoInc)
end

local function GetActorPos(id)
    if not id then return nil end
    local x = SL:GetValue("ACTOR_POSITION_X", id)
    local y = SL:GetValue("ACTOR_POSITION_Y", 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 ApplyRange(tid)
    SL:SetActorSight(tid, math.floor(
        CONST.RANGE_BASE * CONST.RANGE_MULT))
end

local function RestoreRange(tid)
    SL:SetActorSight(tid, CONST.RANGE_BASE)
end

function ScoutLamp.Douse()
    if _cdLeft > 0 or _lampT > 0 then return end
    local tid = SL:GetValue("MARK_TARGET_ID")
    if not tid then return end
    _cdLeft = CONST.LAMP_CD
    _lampT = CONST.LAMP_LIFE
    _lampID = tid
    ApplyRange(tid)
    SafeRemove(_lampFx)
    _lampFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Lamp"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_lampFx, CONST.ZORDER_LAMP)
    SL:PlayDouseFx(tid)
    SL:TipAbove(tid, "灯灭！")
    ShowTip("灯扑了——五秒里它的眼只剩一半，圈外白嫖")
end

-- 索敌改写：圈外的一律不进敌我表
SL:RegisterLUAEvent(LUA_EVENT_SIGHT_CHECK, "SCL_Out", function(tid, dist)
    if _lampT > 0 and tid == _lampID then
        local rng = math.floor(CONST.RANGE_BASE * CONST.RANGE_MULT)
        if dist > rng then return false end
    end
    return true
end)

-- 定时器：灯芯复燃与圈径回收
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _lampT > 0 then
            _lampT = _lampT - dt
            local tp = GetActorPos(_lampID)
            if _lampFx and tp then
                GUI:setPosition(_lampFx, tp.x, tp.y - 110)
            end
            if _lampT <= 0 or not tp
                or SL:GetValue("ACTOR_DEAD", _lampID) then
                _lampT = 0
                RestoreRange(_lampID)
                SafeRemove(_lampFx)
                ShowTip("灯又亮了——它重新看见你，圈外的不算")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("扑灯", function()
        ScoutLamp.Douse()
    end)
    ShowTip("技能已加载: 瞭望 (调试按钮触发)")
end, 1.0)

function ScoutLamp.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    if _lampT > 0 then RestoreRange(_lampID) end
    SL:UnregisterLUAEvent(LUA_EVENT_SIGHT_CHECK, "SCL_Out")
    SafeRemove(_lampFx)
    _lampT = 0
end

return ScoutLamp