牵星引纹：星照着谁，谁就占三分天时

 fx-starpull

-- @file StarPull.lua
-- 牵星纹 —— 星照着谁，谁就占三分天时

local StarPull = {}

local CONST = {
    CREST_LIFE    = 12.0,
    CREST_CD      = 4.0,
    PHASE_LIFE    = 6.0,
    MY_AMP        = 16,
    FOE_AMP       = 18,
    BASE_HIT      = 12,
    BASE_TAKE     = 14,

    COLOR_STAR    = "#8890c8",
    COLOR_DEEP    = "#343858",
    COLOR_GHOST   = "#ccd0f0",

    ZORDER_STAR   = 140,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1122000,
}

local _crestT    = 0
local _cdLeft    = 0
local _phaseT    = 0
local _phase     = "foe"
local _starFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "STP",
        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

function StarPull.MyTurn()
    return _phase == "self"
end

-- 照位判定：星照谁，谁的攻击走加重档
SL:RegisterLUAEvent(LUA_EVENT_MELEE_DAMAGE, "STP_My", function()
    if not StarPull.MyTurn() then return 0 end
    return CONST.MY_AMP - CONST.BASE_HIT
end)

SL:RegisterLUAEvent(LUA_EVENT_BEFORE_HURT, "STP_Foe", function(dmg)
    if not StarPull.MyTurn() then return dmg end
    return math.floor(dmg * CONST.FOE_AMP / CONST.BASE_TAKE)
end)

-- 换边钟：六秒一响，星挪半场
local function ShiftStar()
    _phase = (_phase == "foe") and "self" or "foe"
    local myID = SL:GetValue("USER_ID")
    local target = StarPull.MyTurn() and myID
        or SL:GetValue("MARK_TARGET_ID")
    local tp = target and GetActorPos(target)
    if tp then
        SL:PlayStarMoveFx(tp.x, tp.y)
    end
    ShowTip("星挪窝了——照" .. (StarPull.MyTurn() and "你" or "它"))
end

function StarPull.Cast()
    if _cdLeft > 0 or _crestT > 0 then return end
    local myID = SL:GetValue("USER_ID")
    _cdLeft = CONST.CREST_CD
    _crestT = CONST.CREST_LIFE
    _phase = "foe"
    _phaseT = CONST.PHASE_LIFE
    SafeRemove(_starFx)
    _starFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Star"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_starFx, CONST.ZORDER_STAR)
    SL:PlayStarUpFx(myID)
    ShowTip("星悬在它头顶——六秒一换，照谁谁强")
end

-- 定时器：纹成倒计时与换边钟驱动
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _crestT > 0 then
            _crestT = _crestT - dt
            _phaseT = _phaseT - dt
            if _phaseT <= 0 then
                _phaseT = CONST.PHASE_LIFE
                ShiftStar()
            end
            local myID = SL:GetValue("USER_ID")
            local target = StarPull.MyTurn() and myID
                or SL:GetValue("MARK_TARGET_ID")
            local tp = target and GetActorPos(target)
            if _starFx and tp then
                GUI:setPosition(_starFx, tp.x, tp.y - 196)
            end
            if _crestT <= 0 then
                SafeRemove(_starFx)
                ShowTip("星归天了——谁也不照了")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("牵星", function()
        StarPull.Cast()
    end)
    ShowTip("技能已加载: 牵星纹 (调试按钮触发)")
end, 1.0)

function StarPull.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_DAMAGE, "STP_My")
    SL:UnregisterLUAEvent(LUA_EVENT_BEFORE_HURT, "STP_Foe")
    SafeRemove(_starFx)
    _crestT = 0
end

return StarPull