超度：尸体上念两秒，回二十下一刀双倍

 fx-salvagepray

-- @file SalvagePray.lua
-- 超度 —— 尸体上念两秒，回二十下一刀双倍

local SalvagePray = {}

local CONST = {
    PRAY_TIME     = 2.0,
    CORPSE_LIFE   = 8.0,
    PRAY_HEAL     = 20,
    PRAY_CD       = 5.0,

    COLOR_PRAY    = "#a0b8e8",
    COLOR_DEEP    = "#283a5e",
    COLOR_GHOST   = "#d8e4fa",

    ZORDER_PRAY   = 133,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1032000,
}

local _corpses   = {}
local _prayT     = 0
local _prayOn    = false
local _blessed   = false
local _cdLeft    = 0
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "SGP",
        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 NearestCorpse()
    local myID = SL:GetValue("USER_ID")
    local mp = GetActorPos(myID)
    if not mp then return nil end
    local best, bd = nil, 999
    for i, c in ipairs(_corpses) do
        local d = math.abs(c.x - mp.x)
        if d < bd then bd = d; best = i end
    end
    return best
end

function SalvagePray.Begin()
    if _prayOn then
        ShowTip("正念着——别断")
        return
    end
    if _cdLeft > 0 then
        ShowTip("经在冷却——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    if not NearestCorpse() then
        ShowTip("没尸体可超度——先放倒一只小的")
        return
    end
    _prayOn = true
    _prayT = CONST.PRAY_TIME
    SL:PlayPrayUpFx(SL:GetValue("USER_ID"))
    ShowTip("开始超度——两秒，别让它打断")
end

-- 念断判定：引导期挨打即断
SL:RegisterLUAEvent(LUA_EVENT_BEFORE_HURT, "SGP_Break", function(tid, dmg)
    if _prayOn and tid == SL:GetValue("USER_ID") and dmg > 0 then
        _prayOn = false
        _prayT = 0
        SL:TipAboveMe("念断了")
        ShowTip("挨了一刀——超度断了，重新念")
    end
    return dmg
end)

-- 福报出口：下一刀双倍
SL:RegisterLUAEvent(LUA_EVENT_MELEE_HIT, "SGP_Bless", function(tid)
    if not _blessed then return 0 end
    _blessed = false
    return (SL:GetValue("HIT_DAMAGE", tid) or 10)
end)

-- 定时器：念诵推进与尸体腐烂
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        for i = #_corpses, 1, -1 do
            _corpses[i].t = _corpses[i].t - dt
            if _corpses[i].t <= 0 then table.remove(_corpses, i) end
        end
        if not _prayOn then return end
        _prayT = _prayT - dt
        if _prayT <= 0 then
            _prayOn = false
            _cdLeft = CONST.PRAY_CD
            local bi = NearestCorpse()
            if bi then table.remove(_corpses, bi) end
            SL:RestoreActorHp(SL:GetValue("USER_ID"), CONST.PRAY_HEAL)
            SL:PlayPrayDoneFx(SL:GetValue("USER_ID"))
            _blessed = true
            SL:TipAboveMe("回20")
            ShowTip("超度圆满——回二十，下一刀双倍")
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("超度", function()
        SalvagePray.Begin()
    end)
    ShowTip("技能已加载: 超度 (调试按钮触发)")
end, 1.0)

function SalvagePray.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    SL:UnregisterLUAEvent(LUA_EVENT_BEFORE_HURT, "SGP_Break")
    SL:UnregisterLUAEvent(LUA_EVENT_MELEE_HIT, "SGP_Bless")
    _corpses = {}
    _prayOn = false
end

return SalvagePray