血契：割自己一刀换三刀狠的，血债血偿

 fx-bloodpact

-- @file BloodPact.lua
-- 血契 —— 割自己一刀换三刀狠的，血债血偿

local BloodPact = {}

local CONST = {
    PACT_COST     = 60,
    PACT_CHARGES  = 3,
    PACT_AMP      = 1.5,
    PACT_CD       = 6.0,
    MIN_HP_GUARD  = 70,

    COLOR_PACT    = "#c23a4a",
    COLOR_DEEP    = "#4e1218",
    COLOR_GHOST   = "#f0a8b0",

    ZORDER_SIGIL  = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 992000,
}

local _charges   = 0
local _cdLeft    = 0
local _sigilFx   = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "BPC",
        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 CreateSigilFx()
    local myID = SL:GetValue("USER_ID")
    local mp = GetActorPos(myID)
    if not mp then return nil end
    local node = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Sigil"), mp.x, mp.y - 122, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_SIGIL)
    for i = 1, CONST.PACT_CHARGES do
        GUI:DrawRect_Create(node, "sg_" .. i,
            (i - 1) * 14 - 18, 0, 10, 6,
            CONST.COLOR_PACT, 220)
    end
    return node
end

function BloodPact.Cast()
    if _cdLeft > 0 or _charges > 0 then return end
    local myID = SL:GetValue("USER_ID")
    local hp = SL:GetValue("ACTOR_HP", myID)
    if not hp or hp <= CONST.MIN_HP_GUARD then
        ShowTip("血见底了——血契不敢再开")
        return
    end
    _cdLeft = CONST.PACT_CD
    _charges = CONST.PACT_CHARGES
    SL:ActorHurt(myID, CONST.PACT_COST)
    SafeRemove(_sigilFx)
    _sigilFx = CreateSigilFx()
    SL:PlayPactFx(myID)
    ShowTip("契成了——三刀加五成，血本无归算我输")
end

-- 出刀出口：查契印、掉契印
local function OnMeleeOut(tid, dmg)
    if _charges <= 0 then return dmg end
    _charges = _charges - 1
    local out = math.floor(dmg * CONST.PACT_AMP)
    SL:TipAbove(tid, "-" .. out)
    SL:PlaySigilBreakFx(tid)
    if _charges <= 0 then
        SafeRemove(_sigilFx)
        ShowTip("三刀用完——契散了，想再狠再开一次")
    end
    return out
end

SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "BPC_Amp", function(tid)
    local base = SL:GetValue("HIT_DAMAGE", tid)
    return OnMeleeOut(tid, base or 10)
end)

-- 定时器：冷却推进与契印跟脚
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _charges > 0 and _sigilFx then
            local myID = SL:GetValue("USER_ID")
            local mp = GetActorPos(myID)
            if mp then
                GUI:setPosition(_sigilFx, mp.x, mp.y - 122)
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("血契", function()
        BloodPact.Cast()
    end)
    ShowTip("技能已加载: 血契 (调试按钮触发)")
end, 1.0)

function BloodPact.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "BPC_Amp")
    SafeRemove(_sigilFx)
end

return BloodPact