血债簿：五笔血账一次清算，欠下的刀刀要还

 fx-blooddebt

-- @file BloodDebt.lua
-- 血债簿 —— 每刀记一笔账，五笔一并清算

local BloodDebt = {}

local CONST = {
    DEBT_CAP      = 5,
    DEBT_INTEREST = 2,
    BASE_DMG      = 10,
    CLEAR_CD      = 1.0,

    COLOR_DEBT    = "#d4576a",
    COLOR_DEEP    = "#5e1a2a",
    COLOR_GHOST   = "#f0b0bc",

    ZORDER_BOOK   = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 986000,
}

local _debt      = 0
local _debtSum   = 0
local _clearCd   = 0
local _bookFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "BDT",
        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 DebtHit(tid, dmg)
    _debtSum = _debtSum + dmg + CONST.DEBT_INTEREST
    SL:ActorHurt(tid, dmg)
    local tip = "-" .. dmg
    if _debt < CONST.DEBT_CAP then
        _debt = _debt + 1
        tip = tip .. " 记"
        if _debt >= CONST.DEBT_CAP then
            ShowTip("五笔记满——点清算连本带利爆")
        end
    else
        ShowTip("五笔封顶了——快清算")
    end
    SL:TipAbove(tid, tip)
end

function BloodDebt.Clear()
    if _clearCd > 0 then
        ShowTip("账房在忙——" .. string.format("%.1f", _clearCd) .. "秒")
        return
    end
    if _debt <= 0 then
        ShowTip("账是空的——先打它几刀")
        return
    end
    _clearCd = CONST.CLEAR_CD
    local tid = SL:GetValue("MARK_TARGET_ID")
    local tp = GetActorPos(tid)
    if tp then
        SL:ActorHurt(tid, _debtSum)
        SL:TipAbove(tid, "清算-" .. _debtSum)
        SL:PlayBurstFx(tp.x, tp.y - 70)
        SL:ScreenShake(3.6, 0.22)
        ShowTip(_debt .. "笔血账清了——" .. _debtSum .. "点一并爆")
    end
    _debt = 0
    _debtSum = 0
end

-- 定时器：冷却推进与账面守护
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _clearCd = math.max(0, _clearCd - dt)
        if _debt > 0 then
            local tid = SL:GetValue("MARK_TARGET_ID")
            if not tid or SL:GetValue("ACTOR_DEAD", tid) then
                _debt = 0
                _debtSum = 0
                ShowTip("目标倒了——账本销户")
            end
        end
    end, 0.02)
end

-- 普攻命中的挂账钩子
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "BDT_Hit", function(tid)
    local dmg = SL:GetValue("HIT_DAMAGE", tid)
    DebtHit(tid, dmg or CONST.BASE_DMG)
end)

-- 调试按钮：面板一键清账对账
SL:ScheduleOnce(function()
    SL:BindDebugButton("清算", function()
        BloodDebt.Clear()
    end)
    ShowTip("技能已加载: 血债簿 (调试按钮触发)")
end, 1.0)

-- 卸载清理：钩子与定时器一个不留
function BloodDebt.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "BDT_Hit")
    SafeRemove(_bookFx)
end

return BloodDebt