撩拨：撩它三下它就上头，一头撞进坑里

 fx-provopoke

-- @file ProvoPoke.lua
-- 撩拨 —— 撩它三下它就上头，一头撞进坑里

local ProvoPoke = {}

local CONST = {
    ANGER_CAP     = 3,
    POKE_CD       = 1.5,
    CHARGE_SPEED  = 420,
    PIT_X         = 130,
    PIT_DMG       = 15,
    PIT_STUN      = 1.0,

    COLOR_POKE    = "#b08858",
    COLOR_DEEP    = "#4a3418",
    COLOR_GHOST   = "#ecd8b8",

    ZORDER_ANGER  = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1039000,
}

local _anger     = 0
local _chargeT   = 0
local _chargeDir = 1
local _stunT     = 0
local _cdLeft    = 0
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "PVP",
        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 ShowTip(msg)
    if msg and msg ~= "" then SL:ShowSystemTips(msg) end
end

local function BlowUp(tid, myID)
    local mp = GetActorPos(myID)
    local dir = mp and mp.x > GetActorPos(tid).x and 1 or -1
    _chargeT = 1.2
    _chargeDir = dir
    SL:PlayEnrageFx(tid)
    SL:TipAbove(tid, "上头！")
    ShowTip("上头了——一头冲过来，坑在它身后等着")
end

function ProvoPoke.Poke()
    if _cdLeft > 0 then
        ShowTip("手在撩——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    if _anger >= CONST.ANGER_CAP then
        ShowTip("它已经上头了——冲锋马上来")
        return
    end
    _cdLeft = CONST.POKE_CD
    _anger = _anger + 1
    SL:PlayPokeFx(SL:GetValue("MARK_TARGET_ID"), _anger)
    if _anger >= CONST.ANGER_CAP then
        BlowUp(SL:GetValue("MARK_TARGET_ID"),
            SL:GetValue("USER_ID"))
    else
        ShowTip("撩了" .. _anger .. "下——它快压不住火了")
    end
end

-- 冲锋结算：扎坑的自损与懵态
local function HitPit(tid)
    SL:ActorHurt(tid, CONST.PIT_DMG)
    SL:TipAbove(tid, "-15")
    SL:StunActor(tid, CONST.PIT_STUN)
    SL:PlayPitCrashFx(tid)
    SL:ScreenShake(3.4, 0.22)
    _stunT = CONST.PIT_STUN
    _anger = 0
    ShowTip("一头扎进坑里——自损十五还懵一秒")
    if SL:GetValue("ACTOR_DEAD", tid) then
        ShowTip("它倒了——上头的代价")
    end
end

-- 定时器：冲锋推进与扎坑判定
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        if _chargeT > 0 then
            _chargeT = _chargeT - dt
            local tid = SL:GetValue("MARK_TARGET_ID")
            local tp = GetActorPos(tid)
            if tp then
                local nx = tp.x + _chargeDir
                    * CONST.CHARGE_SPEED * dt
                SL:SetActorPos(tid, nx, tp.y)
                SL:DropChargeGhost(tid)
                if nx <= CONST.PIT_X then
                    _chargeT = 0
                    SL:SetActorPos(tid, CONST.PIT_X, tp.y)
                    HitPit(tid)
                end
            else
                _chargeT = 0
            end
            return
        end
        if _stunT > 0 then
            _stunT = _stunT - dt
            if _stunT <= 0 then
                _anger = 0
                ShowTip("它缓过来了——火气消了，接着撩")
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("撩拨", function()
        ProvoPoke.Poke()
    end)
    ShowTip("技能已加载: 撩拨 (调试按钮触发)")
end, 1.0)

function ProvoPoke.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    _chargeT = 0
    _stunT = 0
    _anger = 0
end

return ProvoPoke