篆刻印章：刻四笔盖一印

 fx-seal

local Seal = {}
local KEY = { STROKES = 4 }

local carved, stamped = 0, false
local STROKES = {
    { -24, -30, 30, 4 }, { -24, 6, 30, 4 },
    { -24, 34, 18, 4 }, { 12, 34, 12, 4 }
}

function SE.Carve()
    if carved >= KEY.STROKES then return end
    carved = carved + 1
    SL:PlaySfx("carve")
    SL:PlayBurst(210 + carved * 24, 120, "stone_bits", 5)
    SL:ShowTipAbove(210 + carved * 24, 100, "刻痕 " .. carved)
end

function SE.Stamp()
    if carved < KEY.STROKES then
        SL:ShowSystemTips("印面未刻完")
        return
    end
    stamped = true
    SL:PlaySfx("stamp")
    SL:ScreenShake(0.2, 3)
    -- 朱文渲染: 印底红 + 刻痕处透白
    SL:Schedule(function(dt)
        local k = math.min(1, SL:GetValue("stampK") + dt * 2.4)
        SL:SetValue("stampK", k)
        SL:SetFxAlpha("seal_print", math.min(1, k + 0.2))
        for s = 1, carved do
            SL:PunchWhite(SE.STROKES[s], k)
        end
        if k >= 1 then SL:UnSchedule("stampRun") end
    end, 0.016, "stampRun")
end

return SE