纸人替灾：贴一个纸人，下一道咒它替你挨

 fx-paperdoll

--------------------------------------------------------------------------------
-- @file        PaperDoll.lua
-- @brief       纸人替灾 —— 贴一个纸人，下一道咒它替你挨
--              客户端表现模块：配置表 / 纸人构件 / 转嫁钩子 / 定时器
--------------------------------------------------------------------------------

local PaperDoll = {}

--------------------------------------------------------------------------------
-- 配置与常量
--------------------------------------------------------------------------------
local CONST = {
    DOLL_LIFE     = 8.0,        -- 纸人贴八秒
    DOLL_CD       = 6.0,        -- 贴纸冷却
    CURSE_GAP     = 5.0,        -- 咒五秒一道
    CURSE_LIFE    = 4.0,        -- 中咒疼四秒
    CURSE_DPS     = 10,         -- 一秒十疼

    -- 颜色
    COLOR_PAPER   = "#f0e8d8",  -- 纸白
    COLOR_DEEP    = "#7a5a2b",  -- 深褐
    COLOR_CURSE   = "#a371f7",  -- 灾紫

    ZORDER_GROUND = 118,
    ZORDER_DOLL   = 132,
    ZORDER_EFFECT = 135,

    AUTOINC_BASE  = 941000,
}

--------------------------------------------------------------------------------
-- 模块内部状态
--------------------------------------------------------------------------------
local _dollT      = 0              -- 纸人余时
local _cdLeft     = 0
local _curseT     = 0              -- 中咒余时
local _curseTick  = 0              -- 咒的跳秒
local _curseGap   = CONST.CURSE_GAP
local _scheduler  = nil
local _autoInc    = 0

local m_rand = math.random

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

local function GetMyPos()
    local x = SL:GetValue("ACTOR_POSITION_X", SL:GetValue("USER_ID"))
    local y = SL:GetValue("ACTOR_POSITION_Y", SL:GetValue("USER_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 CreateDollNode()
    local mp = GetMyPos()
    if not mp then return end
    local node = GUI:Layout_Create(GUI:Attach_SceneF(), GenID("Doll"),
        mp.x + 16, mp.y - 62, 0, 0, false)
    GUI:setLocalZOrder(node, CONST.ZORDER_DOLL)
    GUI:DrawLine_Create(node, "head", 0, 0, 5, 0, -8, 0, -8, CONST.COLOR_PAPER, 240)
    GUI:DrawLine_Create(node, "body", 0, 0, 8, 0, -3, 0, 11, CONST.COLOR_PAPER, 240)
    GUI:DrawLine_Create(node, "arm_l", 0, 0, 2, -4, 0, -8, 8, CONST.COLOR_PAPER, 240)
    GUI:DrawLine_Create(node, "arm_r", 0, 0, 2, 4, 0, 8, 8, CONST.COLOR_PAPER, 240)
    return node
end

--------------------------------------------------------------------------------
-- 贴纸人
--------------------------------------------------------------------------------
function PaperDoll.Cast()
    if _cdLeft > 0 or _dollT > 0 then return end
    _cdLeft = CONST.DOLL_CD
    _dollT = CONST.DOLL_LIFE
    CreateDollNode()
    ShowTip("纸人贴上了——八秒里头一道咒它替你挨")
end

--------------------------------------------------------------------------------
-- 转嫁钩子：咒的命中判定前查替灾位
--------------------------------------------------------------------------------
local function OnCurseIncoming()
    if _dollT > 0 then
        _dollT = 0
        SL:PlayDollBurn()
        SL:TipAboveMe("纸人替灾！")
        SL:ScreenShake(2.5, 0.18)
        return true
    end
    return false
end

--------------------------------------------------------------------------------
-- 中咒结算
--------------------------------------------------------------------------------
local function Curse_Apply()
    _curseT = CONST.CURSE_LIFE
    _curseTick = 0
    SL:TipAboveMe("中咒！")
end

--------------------------------------------------------------------------------
-- 定时器：纸人寿、咒的节拍与跳秒
--------------------------------------------------------------------------------
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _dollT > 0 then
            _dollT = _dollT - dt
            if _dollT <= 0 then
                ShowTip("纸人自己化灰了——这一场它没白贴")
            end
        end
        if _curseT > 0 then
            _curseT = _curseT - dt
            _curseTick = _curseTick + dt
            if _curseTick >= 1.0 then
                _curseTick = _curseTick - 1.0
                SL:PlayerHurt(CONST.CURSE_DPS)
                if _curseT <= 0 then
                    ShowTip("咒劲散了")
                end
            end
            return
        end
        _curseGap = _curseGap - dt
        if _curseGap <= 0 then
            _curseGap = CONST.CURSE_GAP
            if not OnCurseIncoming() then
                Curse_Apply()
            end
        end
    end, 0.02)
end

SL:RegisterLUAEvent(LUA_EVENT_SCENE_CLEAR, "PPD_Clear", function()
    _dollT, _curseT, _curseGap = 0, 0, CONST.CURSE_GAP
end)

SL:ScheduleOnce(function()
    ShowTip("技能已加载: 纸人替灾 (调试按钮触发)")
end, 1.0)

return PaperDoll