Advertisement
DashaBars

Natural Disaster Survival GUI

Jan 23rd, 2021 (edited)
150
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.06 KB | None | 0 0
  1. repeat wait() until game.Players.LocalPlayer.Character
  2.  
  3. local Player = game:GetService("Players").LocalPlayer
  4. local Mouse = Player:GetMouse()
  5.  
  6. local CKToggle = false
  7. local KVToggle = false
  8. local KAToggle = false
  9.  
  10. bring = false
  11.  
  12. local function CreateInstance(Object,Properties)
  13. local NewInstance = Instance.new(Object)
  14. for i,v in pairs(Properties) do
  15. NewInstance[i] = v
  16. end
  17. return NewInstance
  18. end
  19.  
  20. local MainGui = CreateInstance("ScreenGui", {Name = "MainGui", ResetOnSpawn = false, Enabled = true, Parent = game:GetService("Players").LocalPlayer.PlayerGui})
  21. local MainFrame = CreateInstance("Frame", {Name = "MainFrame", Size = UDim2.new(0, 250, 0, 250), Position = UDim2.new(0.5, -125, 0.5, -125), BackgroundColor3 = Color3.fromRGB(50, 52, 49), BackgroundTransparency = 0, BorderSizePixel = 0, Parent = MainGui, Active = true, Draggable = true})
  22. local Notice = CreateInstance("TextLabel", {Name = "Notice", Text = "Made by Gaikokan#2563", BorderSizePixel = 0, BackgroundColor3 = Color3.fromRGB(15, 15, 15), BackgroundTransparency = 1, Parent = MainFrame, TextSize = 18, Size = UDim2.new(1, 0, 0, 15), Position = UDim2.new(0, 0, 0, 0), Font = Enum.Font.SourceSansLight, TextColor3 = Color3.fromRGB(255, 255, 255)})
  23. local Bring = CreateInstance("TextButton", {Name = "Bring", Text = "Bring Unanchored Parts", BorderSizePixel = 0, BackgroundColor3 = Color3.fromRGB(25, 25, 25), BackgroundTransparency = 0.8, Parent = MainFrame, TextSize = 18, Size = UDim2.new(1, 0, 0, 15), Position = UDim2.new(0, 0, 0, 50), Font = Enum.Font.SourceSansLight, TextColor3 = Color3.fromRGB(255, 255, 255)})
  24. local LoopBring = CreateInstance("TextButton", {Name = "LoopBring", Text = "Bring Unanchored Parts Loop", BorderSizePixel = 0, BackgroundColor3 = Color3.fromRGB(25, 25, 25), BackgroundTransparency = 0.8, Parent = MainFrame, TextSize = 18, Size = UDim2.new(1, 0, 0, 15), Position = UDim2.new(0, 0, 0, 70), Font = Enum.Font.SourceSansLight, TextColor3 = Color3.fromRGB(255, 255, 255)})
  25. local Stop = CreateInstance("TextButton", {Name = "Stop", Text = "Stop Loop", BorderSizePixel = 0, BackgroundColor3 = Color3.fromRGB(25, 25, 25), BackgroundTransparency = 0.8, Parent = MainFrame, TextSize = 18, Size = UDim2.new(1, 0, 0, 15), Position = UDim2.new(0, 0, 0, 90), Font = Enum.Font.SourceSansLight, TextColor3 = Color3.fromRGB(255, 255, 255)})
  26.  
  27. Bring.MouseButton1Down:Connect(function()
  28. game:GetService("RunService").RenderStepped:Connect(function()
  29. game.Players.LocalPlayer.SimulationRadius = math.huge
  30. game.Players.LocalPlayer.MaximumSimulationRadius = math.huge
  31. end)
  32. for i,v in pairs(workspace:GetDescendants()) do
  33. if v.ClassName == "Part" and v.Anchored == false and v:IsDescendantOf(game.Players.LocalPlayer.Character) == false then
  34. end
  35. end
  36. game:GetService("RunService").RenderStepped:Connect(function()
  37. game.Players.LocalPlayer.SimulationRadius = math.huge
  38. game.Players.LocalPlayer.MaximumSimulationRadius = math.huge
  39. end)
  40. for i,v in pairs(workspace:GetDescendants()) do
  41. if v.ClassName == "Part" and v.Anchored == false and v:IsDescendantOf(game.Players.LocalPlayer.Character) == false then
  42. v.CFrame = game.Players.LocalPlayer.Character.Head.CFrame
  43. end
  44. end
  45. end
  46. end)
  47.  
  48. LoopBring.MouseButton1Down:Connect(function()
  49. _G.On = true
  50. while _G.On==true do
  51. wait()
  52. game:GetService("RunService").RenderStepped:Connect(function()
  53. game.Players.LocalPlayer.SimulationRadius = math.huge
  54. game.Players.LocalPlayer.MaximumSimulationRadius = math.huge
  55. end)
  56. for i,v in pairs(workspace:GetDescendants()) do
  57. if v.ClassName == "Part" and v.Anchored == false and v:IsDescendantOf(game.Players.LocalPlayer.Character) == false then
  58. end
  59. end
  60. game:GetService("RunService").RenderStepped:Connect(function()
  61. game.Players.LocalPlayer.SimulationRadius = math.huge
  62. game.Players.LocalPlayer.MaximumSimulationRadius = math.huge
  63. end)
  64. for i,v in pairs(workspace:GetDescendants()) do
  65. if v.ClassName == "Part" and v.Anchored == false and v:IsDescendantOf(game.Players.LocalPlayer.Character) == false then
  66. v.CFrame = game.Players.LocalPlayer.Character.Head.CFrame
  67. end
  68. end
  69. end
  70. end)
  71.  
  72. Stop.MouseButton1Down:Connect(function()
  73. _G.On = false
  74. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement