千机匣纹：三连发歇一息，匣里箭管够

flowchart TD
A[点开匣] --> B[匣盖弹开]
B --> C[第一轮三连发]
C --> D{三支放完了吗}
D -- 没有 --> C
D -- 放完 --> E[匣沉回填 歇一息]
E --> F[第二轮三连发]
F --> G{放尽了吗}
G -- 没有 --> F
G -- 放尽 --> H[匣盖合上 五秒后再开]

 fx-crest-dartbox

-- @file CrestDartbox.lua
-- 千机匣纹 —— 三连发歇一息 匣里箭管够

local CrestDartbox = {}

local CONST = {
    VOLLEY_N      = 3,
    ROUNDS        = 2,
    DART_DMG      = 6,
    SHOT_GAP      = 0.13,
    REST_TIME     = 1,
    BOX_CD        = 5,

    AUTOINC_BASE  = 1206500,
}

local _phase    = 0
local _fired    = 0
local _t        = 0
local _on       = false
local _cd       = 0
local _autoInc  = 0

local function ShowTip(msg)
    if msg and msg ~= "" then SL:ShowSystemTips(msg) end
end

local function GenID()
    _autoInc = _autoInc + 1
    return CONST.AUTOINC_BASE + _autoInc
end

function CrestDartbox.Phase() return _phase end

-- 开匣: 进入连发态
function CrestDartbox.Open()
    if _cd > 0 then
        ShowTip("匣簧还在回卷——再等" .. math.ceil(_cd) .. "秒")
        return
    end
    _cd = CONST.BOX_CD
    _on = true
    _phase = 1
    _fired = 0
    _t = 0
    ShowTip("开匣!第一轮三连发")
end

-- 吐一箭
local function Shoot()
    _fired = _fired + 1
    ShowTip("嗒——第" .. _fired .. "支箭六点")
end

-- 三态轮转: 连发 歇息回填 再连发
if not _ticker then
    _ticker = SL:Schedule(function(dt)
        if not _on then return end
        _t = _t - dt
        if _t > 0 then return end
        if _phase == 1 or _phase == 3 then
            Shoot()
            _t = CONST.SHOT_GAP
            if _fired % CONST.VOLLEY_N == 0 then
                if _phase == 3 then
                    _on = false
                    ShowTip("匣箭放尽——五秒后再开")
                else
                    _phase = 2
                    _t = CONST.REST_TIME
                    ShowTip("一轮放完——歇一息回填")
                end
            end
        elseif _phase == 2 then
            _phase = 3
            _t = CONST.SHOT_GAP
            ShowTip("第二轮三连发!")
        end
    end, 0.02)
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("开匣!", function()
        CrestDartbox.Open()
    end)
    ShowTip("技能已加载: 千机匣纹")
end, 1.0)

function CrestDartbox.Unload()
    if _ticker then SL:Unschedule(_ticker) end
    _on = false
    _phase = 0
end

return CrestDartbox