下战书：战期六秒，两边都往死里打

 fx-duelring

-- @file DuelRing.lua
-- 下战书 —— 战期六秒，两边都往死里打

local DuelRing = {}

local CONST = {
    DUEL_LIFE     = 6.0,
    REST_TIME     = 2.0,
    MY_AMP        = 3,
    FOE_AMP       = 4,
    BOOK_CD       = 8.0,

    COLOR_DUEL    = "#c04848",
    COLOR_DEEP    = "#481414",
    COLOR_GHOST   = "#f0b8b0",

    ZORDER_RING   = 129,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1026000,
}

local _duelT     = 0
local _restT     = 0
local _duelID    = 0
local _cdLeft    = 0
local _ringFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "DLR",
        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 DuelRing.Book()
    if _cdLeft > 0 then
        ShowTip("战书在手——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    if _duelT > 0 then
        ShowTip("战正酣——还剩" .. string.format("%.1f", _duelT) .. "秒")
        return
    end
    if _restT > 0 then
        ShowTip("息战期——它不接战书")
        return
    end
    local tid = SL:GetValue("MARK_TARGET_ID")
    if not tid then return end
    _cdLeft = CONST.BOOK_CD
    _duelT = CONST.DUEL_LIFE
    _duelID = tid
    SL:PlayBookAcceptedFx(tid)
    SL:TipAboveMe("应战！")
    SL:TipAbove(tid, "应战！")
    ShowTip("战书下了——六秒里你加三它加四，往死里打")
end

-- 战期结算：两边的刀一起开锋
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "DLR_My", function(tid)
    if _duelT > 0 and tid == _duelID then
        return CONST.MY_AMP
    end
    return 0
end)

SL:RegisterLUAEvent(LUA_EVENT_MONSTER_STRIKE, "DLR_Foe", function(tid, dmg)
    if _duelT > 0 and tid == _duelID then
        return dmg + CONST.FOE_AMP
    end
    return dmg
end)

-- 定时器：战环跟场与息战回落
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _duelT > 0 then
            _duelT = _duelT - dt
            local tp = GetActorPos(_duelID)
            if not tp or SL:GetValue("ACTOR_DEAD", _duelID) then
                _duelT = 0
                SafeRemove(_ringFx)
                _ringFx = nil
                return
            end
            if _duelT <= 0 then
                _duelT = 0
                _restT = CONST.REST_TIME
                SafeRemove(_ringFx)
                _ringFx = nil
                ShowTip("战罢——息战两秒，各回各的账")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("下战书", function()
        DuelRing.Book()
    end)
    ShowTip("技能已加载: 下战书 (调试按钮触发)")
end, 1.0)

function DuelRing.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "DLR_My")
    SL:UnregisterLUAEvent(LUA_EVENT_MONSTER_STRIKE, "DLR_Foe")
    SafeRemove(_ringFx)
    _duelT = 0
end

return DuelRing