蚀本血纹：一刀削它两分命，血条越打越短

 fx-maxshred

-- @file MaxShred.lua
-- 削上限纹 —— 一刀削它两分命，血条越打越短

local MaxShred = {}

local CONST = {
    CREST_LIFE    = 12.0,
    CREST_CD      = 4.0,
    SHRED_PER_HIT = 2,
    FLOOR_PCT     = 0.4,

    COLOR_SHRED   = "#8858a0",
    COLOR_DEEP    = "#381848",
    COLOR_GHOST   = "#d8b8e8",

    ZORDER_SHRED  = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1094000,
}

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 "MXS",
        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 HpFloor(tid)
    local hpM = SL:GetValue("ACTOR_HP_MAX", tid) or 0
    return math.floor(hpM * CONST.FLOOR_PCT)
end

-- 削本结算：每一刀额外从命根划走两分
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "MXS_Shred", function(tid)
    if _crestT <= 0 or not tid then return 0 end
    local hpM = SL:GetValue("ACTOR_HP_MAX", tid) or 0
    local floor = HpFloor(tid)
    if hpM <= floor then
        ShowTip("命根到底了——刀回平常")
        return 0
    end
    local shred = math.min(CONST.SHRED_PER_HIT, hpM - floor)
    SL:SetValue("ACTOR_HP_MAX", tid, hpM - shred)
    local hp = SL:GetValue("ACTOR_HP", tid) or 0
    if hp > hpM - shred then
        SL:SetValue("ACTOR_HP", tid, hpM - shred)
    end
    SL:TipAbove(tid, "本-" .. shred)
    return 0
end)

function MaxShred.Cast()
    if _cdLeft > 0 or _crestT > 0 then return end
    local tid = SL:GetValue("MARK_TARGET_ID")
    if not tid then return end
    _cdLeft = CONST.CREST_CD
    _crestT = CONST.CREST_LIFE
    SafeRemove(_crestFx)
    _crestFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Crest"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_crestFx, CONST.ZORDER_SHRED)
    SL:PlayShredUpFx(tid)
    SL:TipAbove(tid, "蚀本！")
    ShowTip("蚀本纹开了——每一刀削它两分命根")
end

-- 定时器：削本倒计时与纹环跟脚
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _crestT > 0 then
            _crestT = _crestT - dt
            local tid = SL:GetValue("MARK_TARGET_ID")
            local tp = tid and GetActorPos(tid)
            if _crestFx and tp then
                GUI:setPosition(_crestFx, tp.x, tp.y - 96)
            end
            if _crestT <= 0 then
                SafeRemove(_crestFx)
                ShowTip("纹收了——血条停在该停的长度")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("蚀本", function()
        MaxShred.Cast()
    end)
    ShowTip("技能已加载: 削上限纹 (调试按钮触发)")
end, 1.0)

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

return MaxShred