万相轮纹：一刀一相，灼缓弱轮着来

 fx-myriadforms

-- @file MyriadForms.lua
-- 万相轮纹 —— 一刀一相，灼缓弱轮着来

local MyriadForms = {}

local CONST = {
    CREST_LIFE    = 12.0,
    CREST_CD      = 4.0,
    BURN_TICK     = 2,
    BURN_LIFE     = 2.0,
    SLOW_LIFE     = 2.0,
    WEAK_LIFE     = 4.0,
    WEAK_CUT      = 6,
    BASE_HIT      = 12,

    COLOR_FORMS   = "#a878c8",
    COLOR_DEEP    = "#402858",
    COLOR_GHOST   = "#e0c8f0",

    ZORDER_FORMS  = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1128000,
}

local _crestT    = 0
local _cdLeft    = 0
local _crestFx   = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "MYF",
        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 RollForm()
    local seed = math.floor(os.clock() * 1000)
    math.randomseed(seed)
    return math.random(1, 3)
end

-- 挂相：掷出哪相挂哪相，各记各的账
local function ApplyForm(tid, form)
    if form == 1 then
        SL:AddBuff(tid, "SCORCH", CONST.BURN_LIFE)
        SL:TipAbove(tid, "相·灼")
    elseif form == 2 then
        SL:AddBuff(tid, "TARSlow", CONST.SLOW_LIFE)
        SL:TipAbove(tid, "相·缓")
    else
        SL:AddBuff(tid, "ENFEEBLE", CONST.WEAK_LIFE)
        SL:TipAbove(tid, "相·弱")
    end
end

-- 三相通账：灼烧跳账，缓弱到期自销
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _crestT > 0 then
            _crestT = _crestT - dt
            if _crestT <= 0 then
                SafeRemove(_crestFx)
                ShowTip("相收了——刀回平常")
            end
        end
    end, 0.02)
end

function MyriadForms.Cast()
    if _cdLeft > 0 or _crestT > 0 then return end
    local myID = SL:GetValue("USER_ID")
    _cdLeft = CONST.CREST_CD
    _crestT = CONST.CREST_LIFE
    SafeRemove(_crestFx)
    _crestFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Forms"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_crestFx, CONST.ZORDER_FORMS)
    SL:PlayFormsUpFx(myID)
    ShowTip("万相开了——每一刀掷一相，灼缓弱轮着来")
end

-- 出手掷相：每一刀落账即掷
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "MYF_Roll", function(tid)
    if _crestT <= 0 or not tid then return 0 end
    ApplyForm(tid, RollForm())
    return 0
end)

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

function MyriadForms.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "MYF_Roll")
    SafeRemove(_crestFx)
    _crestT = 0
end

return MyriadForms