夯土基纹：挨一拳，脚下的地硬三分

 fx-ramsoil

-- @file RamSoil.lua
-- 夯土基纹 —— 挨一拳，脚下的地硬三分

local RamSoil = {}

local CONST = {
    CREST_LIFE    = 14.0,
    CREST_CD      = 4.0,
    STAMP_CAP     = 10,
    RED_PER       = 3,
    DECAY_LIFE    = 4.0,

    COLOR_SOIL    = "#a08048",
    COLOR_DEEP    = "#483818",
    COLOR_GHOST   = "#f0e0b8",

    ZORDER_SOIL   = 89,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1117000,
}

local _crestT    = 0
local _cdLeft    = 0
local _stamps    = 0
local _decayT    = 0
local _soilFx    = nil
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "RMS",
        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 RamSoil.Reduce()
    local n = math.min(_stamps, CONST.STAMP_CAP)
    return n * CONST.RED_PER
end

-- 挨打垒基：每一拳入土一层，封顶十层
SL:RegisterLUAEvent(LUA_EVENT_HURT_TAKEN, "RMS_Stamp", function(dmg)
    if _crestT <= 0 then return dmg end
    if _stamps < CONST.STAMP_CAP then
        _stamps = _stamps + 1
        SL:TipAboveMe("夯+1")
    end
    _decayT = 0
    local red = RamSoil.Reduce()
    return math.max(1, math.floor(dmg * (100 - red) / 100))
end)

function RamSoil.Cast()
    if _cdLeft > 0 or _crestT > 0 then return end
    local myID = SL:GetValue("USER_ID")
    _cdLeft = CONST.CREST_CD
    _crestT = CONST.CREST_LIFE
    _stamps = 0
    _decayT = 0
    SafeRemove(_soilFx)
    _soilFx = GUI:Layout_Create(GUI:Attach_SceneF(),
        GenID("Soil"), 0, 0, 0, 0, false)
    GUI:setLocalZOrder(_soilFx, CONST.ZORDER_SOIL)
    SL:PlaySoilUpFx(myID)
    ShowTip("夯土开了——挨一拳垒一层，一层减三分")
end

-- 定时器：纹成倒计时与松土回零
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _crestT > 0 then
            _crestT = _crestT - dt
            if _stamps > 0 then
                _decayT = _decayT + dt
                if _decayT >= CONST.DECAY_LIFE then
                    _stamps = 0
                    _decayT = 0
                    ShowTip("四秒没挨打——地基松了，从头夯")
                end
            end
            if _crestT <= 0 then
                SafeRemove(_soilFx)
                ShowTip("纹收了——地基保留到下一场")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("夯土", function()
        RamSoil.Cast()
    end)
    ShowTip("技能已加载: 夯土纹 (调试按钮触发)")
end, 1.0)

function RamSoil.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_HURT_TAKEN, "RMS_Stamp")
    SafeRemove(_soilFx)
    _crestT = 0
    _stamps = 0
end

return RamSoil