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

local lp = Players.LocalPlayer

pcall(function()
    setfpscap(1e+38)
end)

settings().Rendering.QualityLevel = Enum.QualityLevel.Level01

pcall(function()
    settings().Physics.PhysicsEnvironmentalThrottle = Enum.EnviromentalPhysicsThrottle.Disabled
    settings().Physics.AllowSleep = true
end)

Workspace.StreamingEnabled = true
Workspace.StreamingMinRadius = 32
Workspace.StreamingTargetRadius = 96

Lighting.Technology = Enum.Technology.Compatibility
Lighting.GlobalShadows = false
Lighting.Brightness = 2
Lighting.ClockTime = 14
Lighting.FogStart = 0
Lighting.FogEnd = 300
Lighting.FogColor = Color3.fromRGB(192, 192, 192)
Lighting.Ambient = Color3.fromRGB(128, 128, 128)
Lighting.OutdoorAmbient = Color3.fromRGB(128, 128, 128)
Lighting.EnvironmentDiffuseScale = 0
Lighting.EnvironmentSpecularScale = 0

local function removeEffects(v)
    if v:IsA("PostEffect") then
        v:Destroy()
    elseif v:IsA("Sky") or v:IsA("Atmosphere") then
        v:Destroy()
    end
end

for _, v in ipairs(Lighting:GetDescendants()) do
    removeEffects(v)
end

Lighting.DescendantAdded:Connect(removeEffects)

local function optimizeObject(obj)
    if obj:IsA("BasePart") then
        obj.Reflectance = 0
        obj.Material = Enum.Material.Plastic
        obj.CastShadow = false
    elseif obj:IsA("SurfaceAppearance") then
        obj:Destroy()
    elseif obj:IsA("ParticleEmitter") or obj:IsA("Trail") or obj:IsA("Smoke") or obj:IsA("Fire") or obj:IsA("Beam") then
        obj.Enabled = false
    elseif obj:IsA("Decal") or obj:IsA("Texture") then
        obj.Transparency = 1
    elseif obj:IsA("PointLight") or obj:IsA("SpotLight") or obj:IsA("SurfaceLight") then
        obj.Enabled = false
    elseif obj:IsA("Explosion") then
        obj.BlastPressure = 0
        obj.BlastRadius = 0
    end
end

for _, v in ipairs(Workspace:GetDescendants()) do
    optimizeObject(v)
end

Workspace.DescendantAdded:Connect(optimizeObject)

local function optimizeCharacter(char)
    for _, v in ipairs(char:GetDescendants()) do
        if v:IsA("BasePart") then
            v.Material = Enum.Material.Plastic
            v.Reflectance = 0
            v.CastShadow = false
        elseif v:IsA("SurfaceAppearance") then
            v:Destroy()
        elseif v:IsA("Decal") then
            v.Transparency = 1
        end
    end
end

local function hookPlayer(p)
    if p.Character then
        optimizeCharacter(p.Character)
    end
    p.CharacterAdded:Connect(optimizeCharacter)
end

for _, p in ipairs(Players:GetPlayers()) do
    hookPlayer(p)
end

Players.PlayerAdded:Connect(hookPlayer)

task.spawn(function()
    while true do
        task.wait(10)
        collectgarbage("collect")
    end
end)

local gui = Instance.new("ScreenGui")
gui.Name = "FPSCounter"
gui.ResetOnSpawn = false
gui.Parent = lp:WaitForChild("PlayerGui")

local label = Instance.new("TextLabel")
label.Size = UDim2.new(0, 140, 0, 35)
label.Position = UDim2.new(0, 10, 0, 10)
label.BackgroundTransparency = 0.3
label.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
label.TextColor3 = Color3.fromRGB(0, 255, 0)
label.Font = Enum.Font.Code
label.TextSize = 18
label.Text = "FPS: ..."
label.Parent = gui

local frames = 0
local last = tick()

RunService.RenderStepped:Connect(function()
    frames += 1
    local now = tick()
    if now - last >= 1 then
        local fps = frames / (now - last)
        frames = 0
        last = now
        label.Text = ("FPS: %d"):format(math.floor(fps + 0.5))
    end
end)