local Lighting = game:GetService("Lighting")
local RunService = game:GetService("RunService")
local Workspace = game:GetService("Workspace")
local Players = game:GetService("Players")

local function RemoveVisualObjects()
    local count = 0
    local visualClasses = {
        "Decal",
        "Texture",
        "ParticleEmitter",
        "Smoke",
        "Fire",
        "Sparkles",
        "Trail",
        "Beam"
    }

    for _, obj in pairs(Workspace:GetDescendants()) do
        for _, class in ipairs(visualClasses) do
            if obj:IsA(class) then
                obj:Destroy()
                count = count + 1
            end
        end
    end

    if Workspace.Terrain then
        for _, decal in pairs(Workspace.Terrain:GetChildren()) do
            if decal:IsA("Decal") or decal:IsA("Texture") then
                decal:Destroy()
                count = count + 1
            end
        end
    end

    for _, obj in pairs(Lighting:GetChildren()) do
        obj:Destroy()
        count = count + 1
    end

    print(string.format("Removed %d visual objects (Workspace, Terrain, Lighting)", count))
end

local function DisableShadows()
    for _, obj in pairs(Workspace:GetDescendants()) do
        if obj:IsA("BasePart") then
            obj.CastShadow = false
        end
    end
end

local function PotatofyParts()
    local partCount = 0
    for _, obj in pairs(Workspace:GetDescendants()) do
        if obj:IsA("MeshPart") or obj:IsA("Part") then
            obj.Material = Enum.Material.Plastic
            obj.Color = Color3.new(1, 1, 1)
            if obj:IsA("MeshPart") then
                local newPart = Instance.new("Part")
                newPart.Size = obj.Size
                newPart.CFrame = obj.CFrame
                newPart.Anchored = obj.Anchored
                newPart.CanCollide = obj.CanCollide
                newPart.Material = Enum.Material.Plastic
                newPart.Color = Color3.new(1, 1, 1)
                newPart.Parent = obj.Parent
                obj:Destroy()
            end
            partCount = partCount + 1
        elseif obj:IsA("SpecialMesh") or obj:IsA("Mesh") then
            obj:Destroy()
        end
    end
    print(string.format("Potato-fied %d parts into Plastic blocks", partCount))
end

local function OptimizeRendering()
    Lighting.GlobalShadows = false
    Lighting.FogEnd = 9999
    Lighting.Brightness = 1
    Lighting.ClockTime = 12

    if settings().Rendering then
        settings().Rendering.QualityLevel = Enum.QualityLevel.Level10
        settings().Rendering.EnableParticles = false
    end

    for _, player in pairs(Players:GetPlayers()) do
        if player ~= Players.LocalPlayer then
            local character = player.Character
            if character then
                for _, anim in pairs(character:GetDescendants()) do
                    if anim:IsA("Animation") or anim:IsA("AnimationTrack") then
                        anim:Destroy()
                    end
                end
            end
        end
    end

    print("Optimized rendering settings and disabled non-local player animations")
end

local function MonitorNewObjects()
    Workspace.DescendantAdded:Connect(function(obj)
        local visualClasses = {
            "Decal", "Texture", "ParticleEmitter", "Smoke", 
            "Fire", "Sparkles", "Trail", "Beam"
        }
        for _, class in ipairs(visualClasses) do
            if obj:IsA(class) then
                obj:Destroy()
            end
        end
        if obj:IsA("BasePart") then
            obj.CastShadow = false
            obj.Material = Enum.Material.Plastic
            obj.Color = Color3.new(1, 1, 1)
        elseif obj:IsA("SpecialMesh") or obj:IsA("Mesh") then
            obj:Destroy()
        end
    end)

    Lighting.ChildAdded:Connect(function(obj)
        obj:Destroy()
    end)
end

local function InitAntiLag()
    RemoveVisualObjects()
    DisableShadows()
    PotatofyParts()
    OptimizeRendering()
    MonitorNewObjects()

    RunService.Heartbeat:Connect(function()
        if tick() % 30 < 0.1 then
            RemoveVisualObjects()
            DisableShadows()
            PotatofyParts()
        end
    end)

    print("EXTREME Anti-Lag (Potato Mode) initialized successfully")
end

local success, err = pcall(InitAntiLag)
if not success then
    warn("Anti-Lag script failed to initialize: " .. tostring(err))
end