RDMScript

Untitled

Dec 26th, 2019 (edited)
315
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.00 KB | None | 0 0
  1. repeat wait() until game:IsLoaded();
  2. repeat wait() until game:GetService("Workspace").GameMap:FindFirstChild("Slime Dimension");
  3. repeat wait() until game:GetService("Players").LocalPlayer ~= nil and game:GetService("Players").LocalPlayer.Character ~= nil;
  4. if game:GetService("Workspace").GameMap:FindFirstChild("Slime Dimension") then
  5. if hookfunction and setreadonly then
  6. local mt = getrawmetatable(game)
  7. local old = mt.__newindex
  8. setreadonly(mt, false)
  9. local sda
  10. sda = hookfunction(old, function(t, k, v)
  11. if k == "Material" then
  12. if v ~= Enum.Material.Neon and v ~= Enum.Material.Plastic and v ~= Enum.Material.ForceField then v = Enum.Material.Plastic end
  13. elseif k == "TopSurface" then v = "Smooth"
  14. elseif k == "Reflectance" or k == "WaterWaveSize" or k == "WaterWaveSpeed" or k == "WaterReflectance" then v = 0
  15. elseif k == "WaterTransparency" then v = 1
  16. elseif k == "GlobalShadows" then v = false end
  17. return sda(t, k, v)
  18. end)
  19. setreadonly(mt, true)
  20. end
  21. local g = game
  22. local w = g.Workspace
  23. local l = g:GetService"Lighting"
  24. local t = w:WaitForChild"Terrain"
  25. t.WaterWaveSize = 0
  26. t.WaterWaveSpeed = 0
  27. t.WaterReflectance = 0
  28. t.WaterTransparency = 1
  29. l.GlobalShadows = false
  30. settings().Rendering.QualityLevel = "Level01"
  31.  
  32. function change(v)
  33. pcall(function()
  34. if v.Material ~= Enum.Material.Neon and v.Material ~= Enum.Material.Plastic and v.Material ~= Enum.Material.ForceField then
  35. pcall(function() v.Reflectance = 0 end)
  36. pcall(function() v.Material = Enum.Material.Plastic end)
  37. pcall(function() v.TopSurface = "Smooth" end)
  38. end
  39. end)
  40. end
  41.  
  42. game.DescendantAdded:Connect(function(v)
  43. pcall(function()
  44. if v:IsA"Part" then change(v)
  45. elseif v:IsA"MeshPart" then change(v)
  46. elseif v:IsA"TrussPart" then change(v)
  47. elseif v:IsA"UnionOperation" then change(v)
  48. elseif v:IsA"CornerWedgePart" then change(v)
  49. elseif v:IsA"WedgePart" then change(v) end
  50. end)
  51. end)
  52.  
  53. for e, g in pairs(l:GetChildren()) do
  54. if
  55. g:IsA("BlurEffect") or g:IsA("SunRaysEffect") or g:IsA("ColorCorrectionEffect") or g:IsA("BloomEffect") or
  56. g:IsA("DepthOfFieldEffect")
  57. then
  58. g.Enabled = false
  59. end
  60. end
  61. sethiddenproperty(game.Lighting, "Technology", "Compatibility")
  62.  
  63. spawn(function()
  64. for i, v in pairs(game:GetDescendants()) do
  65. pcall(function()
  66. if v:IsA"Part" then change(v)
  67. elseif v:IsA"MeshPart" then change(v)
  68. elseif v:IsA"TrussPart" then change(v)
  69. elseif v:IsA"UnionOperation" then change(v)
  70. elseif v:IsA"CornerWedgePart" then change(v)
  71. elseif v:IsA"WedgePart" then change(v) end
  72. end)
  73. if string.find(tostring(i), "50$") or string.find(tostring(i), "00$") then game:FindService"RunService".Heartbeat:wait() end
  74. end
  75. end)
  76. end
Add Comment
Please, Sign In to add comment