造纸：浆池里捞起一张纸

 fx-papermake

local PaperMake = {}
local KEY = { CONC = 70 }

local screen = nil
local sheets = 0

function PM.Dip()
    if screen then return end
    screen = { y = SL:GetValue("vatY") - 60, settled = false }
    SL:PlaySfx("dip")
    SL:Schedule(function(dt)
        if not screen then SL:UnSchedule("dipRun") return end
        screen.y = screen.y + 60 * dt
        local targetY = SL:GetValue("vatY") + 20
        if screen.y >= targetY then
            screen.y = targetY
            -- 挂浆判定: 浓度决定成功率
            if math.random(100) <= SL:GetValue("conc") then
                SL:SetValue("sheetReady", true)
                SL:PlayFxAt("pulp_set", SL:GetValue("vatCX"), targetY + 40)
            else
                -- 浆太稀: 挂帘失败
                SL:PlayFxAt("pulp_sparse", SL:GetValue("vatCX"), targetY)
                SL:ShowSystemTips("浆太稀 — 调浓一点再捞")
                screen = nil
                SL:UnSchedule("dipRun")
            end
        end
    end, 0.016, "dipRun")
end

function PM.Lift()
    if not screen or not SL:GetValue("sheetReady") then return end
    screen = nil
    sheets = sheets + 1
    SL:PlaySfx("lift_paper")
    -- 揭纸晾晒: 码到晾晒区
    SL:SetFxPos("wet_paper" .. sheets,
        SL:GetValue("dryX"), SL:GetValue("dryY") + sheets * 8)
    SL:ShowSystemTips("已捞 " .. sheets .. " 张")
end

return PM