越战：开战越久劲越足，三十秒练出一口气

 fx-warsong

-- @file WarSong.lua
-- 越战 —— 开战越久劲越足，三十秒练出一口气

local WarSong = {}

local CONST = {
    STACK_GAP     = 3.0,
    STACK_CAP     = 13,
    AMP_PER_STACK = 0.04,
    BASE_DMG      = 10,

    COLOR_WAR     = "#d89840",
    COLOR_DEEP    = "#583810",
    COLOR_GHOST   = "#f8e0b0",

    ZORDER_DRUM   = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1010000,
}

local _on        = false
local _stack     = 0
local _stackT    = 0
local _drumFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "WSG",
        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 CurrentOut()
    return CONST.BASE_DMG
        + math.floor(CONST.BASE_DMG * _stack * CONST.AMP_PER_STACK)
end

local function BreakSong()
    if not _on then return end
    _on = false
    _stack = 0
    _stackT = 0
    SafeRemove(_drumFx)
    _drumFx = nil
    ShowTip("挨的这刀把鼓点打散——战意清零，重新擂")
end

function WarSong.Drum()
    if _on then
        ShowTip("鼓点没停——战意" .. _stack .. "层还在涨")
        return
    end
    _on = true
    _stack = 0
    _stackT = 0
    SafeRemove(_drumFx)
    _drumFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Drum"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_drumFx, CONST.ZORDER_DRUM)
    SL:PlayDrumUpFx(SL:GetValue("USER_ID"))
    SL:TipAboveMe("擂鼓！")
    ShowTip("鼓擂响了——从这一拍起，战意开始涨")
end

-- 清零判定：任何命中撕表
SL:RegisterLUAEvent(LUA_EVENT_BEFORE_HURT, "WSG_Break", function(tid)
    if _on and tid == SL:GetValue("USER_ID") then
        BreakSong()
    end
    return nil
end)

-- 出刀出口：战意层数并入伤害
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "WSG_Amp", function(tid)
    if _on and _stack > 0 then
        return CurrentOut() - (SL:GetValue("HIT_DAMAGE", tid) or 10)
    end
    return 0
end)

-- 定时器：战意涨层与鼓点跟脚
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        if _on then
            _stackT = _stackT + dt
            if _stackT >= CONST.STACK_GAP and _stack < CONST.STACK_CAP then
                _stackT = 0
                _stack = _stack + 1
                SL:PlayStackUpFx(SL:GetValue("USER_ID"), _stack)
                if _stack >= CONST.STACK_CAP then
                    ShowTip("战意封顶——四成加成焊死在身上")
                end
            end
            local myID = SL:GetValue("USER_ID")
            local mp = GetActorPos(myID)
            if _drumFx and mp then
                GUI:setPosition(_drumFx, mp.x, mp.y - 40)
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("擂鼓", function()
        WarSong.Drum()
    end)
    ShowTip("技能已加载: 越战 (调试按钮触发)")
end, 1.0)

function WarSong.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_BEFORE_HURT, "WSG_Break")
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "WSG_Amp")
    SafeRemove(_drumFx)
end

return WarSong