API tools faq
paste
BrianBoy_RB

BSS Anti Lag(Test Version)

BrianBoy_RB
Jan 23rd, 2022 (edited)
267
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 14.13 KB | None | 0 0
raw download clone embed print report diff
  1. game:GetService("StarterGui"):SetCore("SendNotification", {
  2.         Title = "Loading Anti-lag...",
  3.         Text = "Executing Script..",
  4.         Icon = "rbxassetid://6238537240",
  5.         Duration = 5,
  6.     })
  7. task.wait(1.2)
  8. local _G = _G
  9. local RunService = game:GetService("RunService")
  10. local dt = os.clock()
  11. local noti = "Took %f seconds to load"
  12. local player = game.Players.LocalPlayer
  13. --local char = player.Character or player.CharacterAdded:Wait()
  14. local honeycomb = player:FindFirstChild("Honeycomb") or nil
  15. local hiveclaimed_time = honeycomb and os.clock() or 0
  16. local options = _G.settings
  17. local connections = {}
  18. --[[local prefix = ""
  19. local chat
  20. local speed = 28]]
  21. local l = game.Lighting
  22. local t = workspace.Terrain
  23. t.WaterWaveSize = 0
  24. t.WaterWaveSpeed = 0
  25. t.WaterReflectance = 0
  26. t.WaterTransparency = 0
  27. l.GlobalShadows = false
  28. l.FogEnd = 9e9
  29. --[[local ignore = {
  30.     ["Union"] =
  31.  
  32. }]]
  33.  
  34. settings().Rendering.QualityLevel = "Level01"
  35.  
  36. if connections then
  37.    for _,v in pairs(connections) do
  38.       v:Disconnect()  
  39.    end
  40. end
  41.  
  42. local function onPlayerAdded(p, meta)
  43.     if p == player and not meta then return end
  44.     warn(p.Name.." Joined")
  45.     connections.p = p.CharacterAdded:Connect(function(c)
  46.         task.wait(1)    
  47.             for _,v in pairs(c:GetDescendants()) do
  48.                 if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  49.                     v.Material = "Plastic"
  50.                     v.Reflectance = 0
  51.                     v.CastShadow = false
  52.                     pcall(function()
  53.                          v.CanQuery = false
  54.                          if p ~= player then
  55.                             v.Transparency = (v:FindFirstAncestorWhichIsA("Accessory") or v:FindFirstAncestorWhichIsA("Tool")) and 1
  56.                             v.Enabled = false
  57.                         end
  58.                     end)
  59.                     if v:IsA("MeshPart") then
  60.                        v.TextureID = 10385902758728957
  61.                     end
  62.                 elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  63.                     v.Enabled = false
  64.                 elseif v:IsA("Decal") or v:IsA("Texture") then
  65.                     v:Destroy()
  66.                 elseif v:IsA("Fire") or v:IsA("Smoke") or v:IsA("Sparkles") then
  67.                     v.Enabled = false
  68.                 elseif v:IsA("SurfaceGui") and p ~= player then
  69.                    v.Active = false
  70.                    v.Enabled = false
  71.                 end
  72.         end
  73.     end)
  74. end
  75.  
  76. game.Players.PlayerAdded:Connect(onPlayerAdded)
  77.  
  78. onPlayerAdded(player, true)
  79.  
  80. for _, e in pairs(l:GetChildren()) do
  81.     pcall(function()
  82.         e.Enabled = false
  83.     end)
  84. end
  85.  
  86. for i, v in pairs(game:GetDescendants()) do
  87.     if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  88.         v.Material = "Plastic"
  89.         v.Reflectance = 0
  90.         v.CastShadow = false
  91.         v.CanQuery = false
  92.             if v:IsA("MeshPart") and v.Name ~= "PlanterBulb" then
  93.                v.TextureID = 10385902758728957
  94.             end
  95.             if v.Name == "Part" and v:FindFirstAncestor("Decorations") then continue end
  96.             if v:FindFirstAncestor("Decorations") or v:FindFirstAncestor("Honeycombs") or v:FindFirstAncestor("Vicious Bee Claimer") then
  97.                v.Transparency = v.Parent ~= "TreatBooth" and 1 or 0
  98.                 if (v.Name ~= "Stump" and not v:FindFirstAncestor("StarAmuletBuilding") and not v:FindFirstAncestor("30BeeZone") and not v:FindFirstAncestor("Vicious Bee Claimer")) or (v.Name == "Star" or v.Name == "Wall" or v.Name == "Gate") then
  99.                     v.CanCollide = false
  100.                  end
  101.             elseif v.Name == "FieldDecos" or v:FindFirstAncestor("FieldDecos") or v.Name == "Rose" or v.Name == "Clover" or v.Name == "SpiderWeb" then
  102.                 v:Destroy()
  103.             elseif v:FindFirstAncestor("Shops") then
  104.                 v.Transparency = 1
  105.                 v.CanCollide = false
  106.             elseif v:FindFirstAncestor("Gates") and v.Name ~= "Frame" and v.Name ~= "Door" then
  107.                 v:Destroy()
  108.             end
  109.     elseif (v:IsA("Decal") or v:IsA("Texture") or v:IsA("SurfaceAppearance")) then
  110.         if (v:FindFirstAncestor("C") and options.token_decal) then continue end
  111.         v.Transparency = 1
  112.         pcall(function()
  113.             v.Enabled = false
  114.         end)
  115.             if v:FindFirstAncestor("Flowers") and not options.Flowers then
  116.                 v:Destroy()
  117.             end
  118.     elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  119.         v.Enabled = false
  120.     elseif v:IsA("Explosion") then
  121.         --v.BlastPressure = 1
  122.         --v.BlastRadius = 1
  123.         v:Destroy()
  124.     elseif v:IsA("Fire") or v:IsA("SpotLight") or v:IsA("Smoke") or v:IsA("Sparkles") then
  125.         v.Enabled = false
  126.     elseif v:IsA("SurfaceGui") and (v:FindFirstAncestor("Vicious Bee Claimer") or v:FindFirstAncestor("NPCs")) then
  127.           v.Active = false
  128.           v.Enabled = false
  129.     end
  130. end
  131.  
  132. if not honeycomb then
  133.     local z
  134.     z = player.ChildAdded:Connect(function(c)
  135.         if c.Name ~= "Honeycomb" then return end
  136.         honeycomb = c
  137.         hiveclaimed_time = os.clock()
  138.         z:Disconnect()
  139.     end)
  140. end
  141.  
  142. connections.a = game.Workspace.Bees.ChildAdded:Connect(function(c)
  143.         task.wait(1)
  144.         if os.clock() - hiveclaimed_time >= 2 or _G.beevisibility then
  145.             if c:IsA("BasePart") or c:IsA("Union") or c:IsA("TrussPart") or c:IsA("MeshPart") or c:IsA("UnionOperation") then
  146.                 c.Material = "Plastic"
  147.                 c.Reflectance = 0
  148.                 c.CastShadow = false
  149.                 c.Transparency = 1
  150.                 c.CanQuery = false
  151.                     if c:IsA("MeshPart") then
  152.                        c.TextureID = 10385902758728957
  153.                     end
  154.             end
  155.         end
  156.         for _,v in pairs(c:GetDescendants()) do
  157.             if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  158.                 v.Material = "Plastic"
  159.                 v.Reflectance = 0
  160.                 v.CastShadow = false
  161.                 v.Transparency = 1
  162.                 v.CanQuery = false
  163.                     if v:IsA("MeshPart") then
  164.                        v.TextureID = 10385902758728957
  165.                     end
  166.             elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  167.                 v.Enabled = false
  168.             elseif v:IsA("Decal") or v:IsA("Texture") then
  169.                 v:Destroy()
  170.                 --[[pcall(function()
  171.                     v.Enabled = false
  172.                 end)]]
  173.             elseif v:IsA("Fire") or v:IsA("Smoke") or v:IsA("Sparkles") then
  174.                 v.Enabled = false
  175.             end
  176.             RunService.RenderStepped:Wait()
  177.         end
  178. end)
  179.  
  180. connections.b = game.Workspace.Honeycombs.DescendantAdded:Connect(function(v)
  181.     if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  182.                 v.Material = "Plastic"
  183.                 v.Reflectance = 0
  184.                 v.Transparency = 1
  185.                 v.CastShadow = false
  186.                 v.CanQuery = false
  187.      elseif v:IsA("Decal") or v:IsA("Texture") or v:IsA("SurfaceAppearance") then
  188.                 v.Transparency = 1
  189.                 pcall(function()
  190.                     v.Enabled = false
  191.                 end)
  192.      end
  193. end)
  194.  
  195. connections.c = game.Workspace.Balloons.FieldBalloons.DescendantAdded:Connect(function(v)
  196.      if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  197.                 v.Material = "Plastic"
  198.                 v.Reflectance = 0
  199.                 v.CastShadow = false
  200.                 v.Transparency = options.BalloonTransparency or v.Transparency
  201.                     if v:IsA("MeshPart") then
  202.                        v.TextureID = 10385902758728957
  203.                     end
  204.             elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  205.                         v.Enabled = false
  206.             elseif v:IsA("Decal") or v:IsA("Texture") then
  207.                 v.Transparency = 1
  208.                 pcall(function()
  209.                     v.Enabled = false
  210.                 end)
  211.       end
  212. end)
  213.  
  214. connections.d = game.Workspace.Gadgets.DescendantAdded:Connect(function(v)
  215.             if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  216.                 v.Material = "Plastic"
  217.                 v.Reflectance = 0
  218.                 v.CastShadow = false
  219.                     if v:IsA("MeshPart") then
  220.                        v.TextureID = 10385902758728957
  221.                     end
  222.             elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  223.                 v.Enabled = false
  224.             elseif v:IsA("Decal") or v:IsA("Texture") then
  225.                 v:Destroy()
  226.             end
  227. end)
  228.  
  229. if not options.Frogs then
  230.     connections.e = game.Workspace.Frogs.DescendantAdded:Connect(function(v)
  231.         print(v:GetFullName().."\n -"..v.ClassName)
  232.         if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  233.                     --[[v.Material = "Plastic"
  234.                     v.Reflectance = 0
  235.                     v.CastShadow = false
  236.                         if v:IsA("MeshPart") then
  237.                            v.TextureID = 10385902758728957
  238.                         end]]
  239.                 v:Destroy()
  240.                 elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  241.                     v.Enabled = false
  242.                 elseif v:IsA("Decal") or v:IsA("Texture") then
  243.                     v:Destroy()
  244.                 end
  245.     end)
  246. end
  247.  
  248. local deco = game.Workspace.Decorations
  249.  
  250. for _,v in pairs(deco:GetDescendants()) do
  251.    if v.Name == "TreatBooth" then
  252.     for _,c in pairs (v:GetChildren()) do
  253.         c.CanCollide = true
  254.         c.Transparency = v.Name ~= "Canopy" and 0 or 1
  255.        end
  256.     end
  257. end
  258.  
  259. if not options.NPCs then
  260.     for _, v in pairs(workspace.NPCs:GetDescendants()) do
  261.             if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  262.                 v.Material = "Plastic"
  263.                 v.Reflectance = 0
  264.                 v.CastShadow = false
  265.                 v.Transparency = 1
  266.                 v.CanQuery = false
  267.                     if v:IsA("MeshPart") then
  268.                        v.TextureID = 10385902758728957
  269.                        v.CanCollide = false
  270.                     end
  271.             elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  272.                 v.Enabled = false
  273.             elseif v:IsA("Decal") or v:IsA("Texture") then
  274.                 v:Destroy()
  275.                 pcall(function()
  276.                     v.Enabled = false
  277.                 end)
  278.             elseif v:IsA("Fire") or v:IsA("Smoke") or v:IsA("Sparkles") then
  279.                 v.Enabled = false
  280.             end
  281.     end
  282. end
  283.  
  284. if options.low_beedetail then
  285.     for _, c in pairs(workspace.Bees:GetChildren()) do
  286.         if not honeycomb then
  287.             c.Transparency = 1
  288.         end
  289.         for _,v in pairs(c:GetDescendants()) do
  290.             if v:IsA("BasePart") or v:IsA("Union") or v:IsA("TrussPart") or v:IsA("MeshPart") or v:IsA("UnionOperation") then
  291.                 v.Material = "Plastic"
  292.                 v.Reflectance = 0
  293.                 v.CastShadow = false
  294.                 v.Transparency = 1
  295.                 v.CanQuery = false
  296.                     if v:IsA("MeshPart") then
  297.                        v.TextureID = 10385902758728957
  298.                     end
  299.             elseif v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  300.                 v.Enabled = false
  301.             elseif v:IsA("Decal") or v:IsA("Texture") then
  302.                 v:Destroy()
  303.             elseif v:IsA("Fire") or v:IsA("Smoke") or v:IsA("Sparkles") then
  304.                 v.Enabled = false
  305.             end
  306.         end
  307.     end
  308. end
  309.  
  310. if options.no_path then
  311.     for _, v in pairs(workspace.Paths:GetChildren()) do
  312.         v:Destroy()
  313.     end
  314. end
  315.  
  316. if not options.leaderboard then
  317.     for _,v in pairs(workspace.Leaderboards:GetDescendants()) do
  318.         if v:IsA("SurfaceGui") then
  319.            v.Active = false
  320.            v.Enabled = false
  321.         end
  322.     end
  323. end
  324.  
  325. --local d = game.Workspace.Collectibles.ChildAdded
  326. --[[game.Workspace.DescendantAdded:Connect(function(v)
  327.     if v:IsA("ParticleEmitter") or v:IsA("Trail") or v:IsA("Beam") then
  328.         v.Enabled = false
  329.     elseif v:IsA("Decal") or v:IsA("Texture") and decalsyeeted then
  330.         v.Transparency = 1
  331.     elseif v:IsA("Fire") or v:IsA("Smoke") or v:IsA("Sparkles") then
  332.         v.Enabled = false
  333.     elseif v:IsA("MeshPart") or v:IsA("UnionOperation") then
  334.         v.Material = "Plastic"
  335.         v.Reflectance = 0
  336.     end
  337. end)]]
  338.  
  339. local time1 =  os.clock()-dt-0.5
  340. time1 = string.gsub(time1, "[%p]0+$", "")
  341. time1 = string.format("Took %f seconds to load", time1)
  342.  
  343. game:GetService("StarterGui"):SetCore("SendNotification", {
  344.         Title = "Anti-lag Loaded",
  345.         Text = time1,
  346.         Icon = "rbxassetid://6238537240",
  347.         Duration = 5,
  348.     })
  349.  
  350. --local delta, noti
  351.  
  352. --[[while true do
  353.     task.wait(5*60)
  354.     local last = os.clock()
  355.     game:GetService("StarterGui"):SetCore("SendNotification", {
  356.             Title = "Notification",
  357.             Text = "Clearning Flowers...",
  358.             Icon = "rbxassetid://6238537240",
  359.             Duration = 3,
  360.         })
  361.     for _,v in pairs(workspace.Flowers:GetDescendants()) do
  362.         if v:IsA("Decal") or v:IsA("Texture") or v:IsA("SurfaceAppearance") then
  363.             v.Transparency = 1
  364.         end
  365.         RunService.RenderStepped:Wait()
  366.     end
  367.  
  368.     delta = os.clock()-last
  369.     delta = string.gsub(delta, "[%p]0+$", "")
  370.     noti = string.format("Took %f to clean flowers" , delta)
  371.     game:GetService("StarterGui"):SetCore("SendNotification", {
  372.             Title = "Cleaning Flowers",
  373.             Text = noti,
  374.             Icon = "rbxassetid://6238537240",
  375.             Duration = 3,
  376.         })
  377. end]]
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!