冰壁垒：一堵墙横在地上，谁也过不去

 fx-icewall

--------------------------------------------------------------------------------
-- @file        IceWall.lua
-- @brief       冰壁垒 —— 一堵墙横在地上，谁也过不去
--              客户端表现模块：配置表 / 冰墙构件 / 碰撞拦截 / 定时器
--------------------------------------------------------------------------------

local IceWall = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    WALL_LIFE     = 10.0,       -- 墙寿十秒
    WALL_HP       = 60,         -- 墙血六十
    WALL_CD       = 8.0,        -- 立墙冷却
    SMASH_GAP     = 1.0,        -- 砸墙一秒一记
    SMASH_DMG     = 12,         -- 一记砸十二
    CRACK_ONE     = 0.7,        -- 七成亮第一道裂
    CRACK_TWO     = 0.35,       -- 三成半亮第二道裂

    -- 颜色
    COLOR_ICE     = "#9fd8ff",  -- 冰青
    COLOR_DEEP    = "#2a6a9c",  -- 深青
    COLOR_GHOST   = "#e3f4ff",  -- 冰白

    ZORDER_GROUND = 118,
    ZORDER_WALL   = 129,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 934000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _wall      = nil            -- 墙对象：{ x, hp, t, node }
local _cdLeft    = 0
local _smashT    = 0
local _scheduler = nil
local _autoInc   = 0

local m_cos = math.cos
local m_sin = math.sin

--------------------------------------------------------------------------------
-- 辅助函数
--------------------------------------------------------------------------------
local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "ICW", CONST.AUTOINC_BASE + _autoInc)
end

local function GetActorPos(actorID)
    if not actorID then return nil end
    local x = SL:GetValue("ACTOR_POSITION_X", actorID)
    local y = SL:GetValue("ACTOR_POSITION_Y", actorID)
    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 CreateWallNode(x, y)
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Wall"), x, y, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_WALL)
    for row = 0, 17 do
        GUI:DrawLine_Create(node, "col_" .. row, 0, 0, 24,
            -12, -row * 4.2, 12, -row * 4.2,
            row % 2 == 0 and CONST.COLOR_ICE or CONST.COLOR_DEEP, 210)
    end
    GUI:DrawLine_Create(node, "edge", 0, 0, 2, -12, 0, -12, -74, CONST.COLOR_GHOST, 220)
    return node
end

--------------------------------------------------------------------------------
-- 立墙与销户
--------------------------------------------------------------------------------
local function Wall_Destroy(smashed)
    if not _wall then return end
    SafeRemove(_wall.node)
    SL:PlayIceShatter(_wall.x)
    ShowTip(smashed and "墙被砸穿了——它冲过来了" or "墙化了——再立一堵")
    _wall = nil
end

function IceWall.Cast(x)
    if _cdLeft > 0 or _wall then return end
    _cdLeft = CONST.WALL_CD
    _wall = { x = x, hp = CONST.WALL_HP, t = CONST.WALL_LIFE, node = CreateWallNode(x, 0) }
    ShowTip("墙立了——六十点墙血，它得先砸墙")
end

--------------------------------------------------------------------------------
-- 撞墙判定：怪的行走改道
--------------------------------------------------------------------------------
local function Wall_Blocks(mx)
    return _wall and _wall.hp > 0 and mx - 30 <= _wall.x + 8 and mx > _wall.x
end

--------------------------------------------------------------------------------
-- 定时器：墙寿、砸墙与销户
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if not _wall then return end
        _wall.t = _wall.t - dt
        if _wall.t <= 0 or _wall.hp <= 0 then
            Wall_Destroy(_wall.hp <= 0)
            return
        end
        local tid = SL:GetValue("MARK_TARGET_ID")
        local tp = tid and GetActorPos(tid)
        if tp and Wall_Blocks(tp.x) then
            _smashT = _smashT + dt
            if _smashT >= CONST.SMASH_GAP then
                _smashT = _smashT - CONST.SMASH_GAP
                _wall.hp = _wall.hp - CONST.SMASH_DMG
                SL:TipAboveWall(_wall.node, "墙-" .. CONST.SMASH_DMG)
            end
        else
            _smashT = 0
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_SCENE_CLEAR, "ICW_Clear", function()
    if _wall then SafeRemove(_wall.node) end
    _wall = nil
end)

SL:ScheduleOnce(function()
    ShowTip("技能已加载: 冰壁垒 (调试按钮触发)")
end, 1.0)

return IceWall