摘珠：它有两颗回血珠，摘一颗赚一颗

 fx-pluckbead

-- @file PluckBead.lua
-- 摘珠 —— 它有两颗回血珠，摘一颗赚一颗

local PluckBead = {}

local CONST = {
    BEAD_COUNT    = 2,
    HEAL_GAP      = 1.5,
    HEAL_PER_Bead = 4,
    PLUCK_CD      = 3.0,

    COLOR_BEAD    = "#48b890",
    COLOR_DEEP    = "#124438",
    COLOR_GHOST   = "#b0ecd8",

    ZORDER_BEAD   = 134,
    ZORDER_FX     = 135,
    AUTOINC_BASE  = 1025000,
}

local _beads     = {}
local _cdLeft    = 0
local _spin      = 0
local _scheduler = nil
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "PKB",
        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 SetupBeads(tid)
    _beads = {}
    for i = 1, CONST.BEAD_COUNT do
        table.insert(_beads, {
            tid = tid, alive = true,
            ang = i * 3.14,
            healT = CONST.HEAL_GAP })
    end
end

local function AliveCount()
    local n = 0
    for _, b in ipairs(_beads) do
        if b.alive then n = n + 1 end
    end
    return n
end

function PluckBead.Pluck()
    if _cdLeft > 0 then
        ShowTip("手在伸——" .. string.format("%.1f", _cdLeft) .. "秒")
        return
    end
    for i, b in ipairs(_beads) do
        if b.alive then
            _cdLeft = CONST.PLUCK_CD
            b.alive = false
            SL:PlayPluckFx(b.tid, i)
            ShowTip("摘了一颗——它回血断一半，再摘")
            return
        end
    end
    ShowTip("珠子摘完了——它断奶了，随便打")
end

-- 定时器：珠子转圈与回血流水
if not _scheduler then
    _scheduler = SL:Schedule(function(dt)
        _cdLeft = math.max(0, _cdLeft - dt)
        _spin = _spin + dt
        if not _beads or #_beads == 0 then return end
        local tid = _beads[1].tid
        local tp = GetActorPos(tid)
        if not tp or SL:GetValue("ACTOR_DEAD", tid) then return end
        for _, b in ipairs(_beads) do
            if b.alive then
                b.ang = b.ang + dt * 1.5
                b.healT = b.healT - dt
                if b.healT <= 0 then
                    b.healT = CONST.HEAL_GAP
                    SL:RestoreActorHp(tid, CONST.HEAL_PER_Bead)
                    SL:PlayBeadHealFx(tid)
                end
            end
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    local tid = SL:GetValue("MARK_TARGET_ID")
    if tid then SetupBeads(tid) end
    SL:BindDebugButton("摘珠", function()
        PluckBead.Pluck()
    end)
    ShowTip("技能已加载: 摘珠 (调试按钮触发)")
end, 1.0)

function PluckBead.Unload()
    if _scheduler then SL:Unschedule(_scheduler) end
    _beads = {}
end

return PluckBead