Advertisement
Zwiebelle1301706

Untitled

May 8th, 2024
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.17 KB | None | 0 0
  1. local Workspace = game:GetService("Workspace")
  2. local CoreGui = game:GetService("CoreGui")
  3. local Players = game:GetService("Players")
  4. local UserInputService = game:GetService("UserInputService")
  5. local Noclip = Instance.new("ScreenGui")
  6. local Frame = Instance.new("Frame")
  7. local Title = Instance.new("TextLabel")
  8. local OnButton = Instance.new("TextButton")
  9. local OffButton = Instance.new("TextButton")
  10. local Plr = Players.LocalPlayer
  11. local Clipon = false
  12. local Dragging = false
  13. local Offset = Vector2.new(0, 0)
  14.  
  15. Noclip.Name = "Noclip"
  16. Noclip.Parent = CoreGui
  17.  
  18. Frame.Name = "Frame"
  19. Frame.Parent = Noclip
  20. Frame.BackgroundColor3 = Color3.fromRGB(29, 103, 127, 1) -- Naranja fuerte
  21. Frame.BorderColor3 = Color3.new(0.0588235, 0.0588235, 0.0588235)
  22. Frame.BorderSizePixel = 2
  23. Frame.Position = UDim2.new(0.5, -105, 0.5, -63) -- Centrado en la pantalla
  24. Frame.Size = UDim2.new(0, 210, 0, 127)
  25. Frame.Active = true
  26. Frame.Draggable = true -- Hace que el marco sea arrastrable
  27.  
  28. Title.Name = "Title"
  29. Title.Parent = Frame
  30. Title.BackgroundColor3 = Color3.fromRGB(37, 150, 190) -- Naranja claro
  31. Title.BorderSizePixel = 0
  32. Title.Size = UDim2.new(1, 0, 0.3, 0)
  33. Title.Font = Enum.Font.Highway
  34. Title.Text = "Noclip by VXPloits"
  35. Title.TextColor3 = Color3.new(0, 0, 0) -- Negro
  36. Title.TextScaled = true
  37. Title.TextSize = 26
  38. Title.TextStrokeColor3 = Color3.new(1, 1, 1) -- Blanco
  39. Title.TextStrokeTransparency = 0
  40.  
  41. OnButton.Name = "OnButton"
  42. OnButton.Parent = Frame
  43. OnButton.BackgroundColor3 = Color3.fromRGB(37, 150, 190) -- Naranja claro
  44. OnButton.BorderSizePixel = 0
  45. OnButton.Position = UDim2.new(0.15, 0, 0.45, 0) -- Alineado en el centro vertical
  46. OnButton.Size = UDim2.new(0.35, 0, 0.4, 0)
  47. OnButton.Font = Enum.Font.Highway
  48. OnButton.FontSize = Enum.FontSize.Size18
  49. OnButton.Text = "On"
  50. OnButton.TextColor3 = Color3.new(0, 0, 0) -- Negro
  51. OnButton.TextScaled = true
  52. OnButton.TextSize = 18
  53. OnButton.TextStrokeColor3 = Color3.new(1, 1, 1) -- Blanco
  54. OnButton.TextStrokeTransparency = 0
  55.  
  56. OffButton.Name = "OffButton"
  57. OffButton.Parent = Frame
  58. OffButton.BackgroundColor3 = Color3.fromRGB(37, 150, 190) -- Naranja claro
  59. OffButton.BorderSizePixel = 0
  60. OffButton.Position = UDim2.new(0.5, 0, 0.45, 0) -- Alineado en el centro vertical
  61. OffButton.Size = UDim2.new(0.35, 0, 0.4, 0)
  62. OffButton.Font = Enum.Font.Highway
  63. OffButton.FontSize = Enum.FontSize.Size18
  64. OffButton.Text = "Off"
  65. OffButton.TextColor3 = Color3.new(0, 0, 0) -- Negro
  66. OffButton.TextScaled = true
  67. OffButton.TextSize = 18
  68. OffButton.TextStrokeColor3 = Color3.new(1, 1, 1) -- Blanco
  69. OffButton.TextStrokeTransparency = 0
  70.  
  71. local function ToggleNoclip(enabled)
  72. Clipon = enabled
  73. if enabled then
  74. for a, b in pairs(Workspace:GetChildren()) do
  75. if b.Name == Plr.Name then
  76. for i, v in pairs(b:GetDescendants()) do
  77. if v:IsA("BasePart") then
  78. v.CanCollide = false
  79. end
  80. end
  81. end
  82. end
  83. else
  84. for a, b in pairs(Workspace:GetChildren()) do
  85. if b.Name == Plr.Name then
  86. for i, v in pairs(b:GetDescendants()) do
  87. if v:IsA("BasePart") then
  88. v.CanCollide = true
  89. end
  90. end
  91. end
  92. end
  93. end
  94. end
  95.  
  96. OnButton.MouseButton1Click:Connect(function()
  97. ToggleNoclip(true)
  98. end)
  99.  
  100. OffButton.MouseButton1Click:Connect(function()
  101. ToggleNoclip(false)
  102. end)
  103.  
  104. Frame.InputBegan:Connect(function(input)
  105. if input.UserInputType == Enum.UserInputType.MouseButton1 then
  106. Dragging = true
  107. Offset = input.Position - Frame.Position
  108. Frame.CaptureFocus = true
  109. end
  110. end)
  111.  
  112. UserInputService.InputChanged:Connect(function(input)
  113. if input.UserInputType == Enum.UserInputType.MouseMovement then
  114. if Dragging then
  115. Frame.Position = UDim2.new(0, input.Position.X - Offset.X, 0, input.Position.Y - Offset.Y)
  116. end
  117. end
  118. end)
  119.  
  120. UserInputService.InputEnded:Connect(function(input)
  121. if input.UserInputType == Enum.UserInputType.MouseButton1 then
  122. Dragging = false
  123. Frame.CaptureFocus = false
  124. end
  125. end)
  126.  
  127. ToggleNoclip(false) -- Noclip
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement