赊账：这一刀双倍先赊着，三秒后连本带息还

 fx-creditpay

-- @file CreditPay.lua
-- 赊账 —— 这一刀双倍先赊着，三秒后连本带息还

local CreditPay = {}

local CONST = {
    BILL_LIFE     = 3.0,
    CREDIT_AMP    = 2.0,
    BASE_DMG      = 10,
    INTEREST      = 2,
    DEBT_CAP      = 60,
    CREDIT_CD     = 5.0,

    COLOR_CREDIT  = "#d8a838",
    COLOR_DEEP    = "#584810",
    COLOR_GHOST   = "#f8e8b8",

    ZORDER_BILL   = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1015000,
}

local _pending    = false
local _billT      = 0
local _billOwe    = 0
local _cdLeft     = 0
local _scheduler  = nil
local _autoInc    = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "CDP",
        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 CreditPay.Borrow()
    if _cdLeft > 0 then
        ShowTip("账在记——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    if _pending then
        ShowTip("上一笔没还——账房不赊第二笔")
        return
    end
    if _billOwe >= CONST.DEBT_CAP then
        ShowTip("欠太多了——先还账再赊")
        return
    end
    _cdLeft = CONST.CREDIT_CD
    _pending = true
    _billT = CONST.BILL_LIFE
    _billOwe = CONST.BASE_DMG
    SL:PlayBorrowFx(SL:GetValue("USER_ID"))
    SL:TipAboveMe("赊！")
    ShowTip("赊成了——下一刀双倍，差价三秒后从血里扣")
end

-- 出刀出口：赊账刀翻倍
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "CDP_Amp", function(tid)
    if not _pending then return 0 end
    _pending = false
    return math.floor(CONST.BASE_DMG * CONST.CREDIT_AMP)
        - (SL:GetValue("HIT_DAMAGE", tid) or CONST.BASE_DMG)
end)

-- 还账结算：到期连本带息扣血
local function SettleBill()
    if not _pending and _billOwe <= 0 then return end
    local myID = SL:GetValue("USER_ID")
    local owe = _billOwe + CONST.INTEREST
    _billOwe = 0
    SL:ActorHurt(myID, owe)
    SL:TipAboveMe("还-" .. owe)
    SL:PlayDebtFx(myID)
    ShowTip("还账——连本带息扣了" .. owe .. "点血")
end

-- 定时器：账期倒计时
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _billT > 0 then
            _billT = _billT - dt
            if _billT <= 0 then
                _billT = 0
                _pending = false
                SettleBill()
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("赊账", function()
        CreditPay.Borrow()
    end)
    ShowTip("技能已加载: 赊账 (调试按钮触发)")
end, 1.0)

function CreditPay.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    _pending = false
    _billOwe = 0
end

return CreditPay