Upscalefanatic3

Treasure Hunt Simulator GUI OP Kinda

Feb 10th, 2018
496
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.41 KB | None | 0 0
  1. -- Made By Silent18 From V3rmillion!!! Have Fun With The Gui!!! Feel Free To Vouch!!!
  2.  
  3. local ScreenGui = Instance.new("ScreenGui")
  4. local Frame = Instance.new("Frame")
  5. local Close = Instance.new("TextButton")
  6. local ChestTp = Instance.new("TextButton")
  7. local TextLabel = Instance.new("TextLabel")
  8. local Dig = Instance.new("TextButton")
  9. local TextLabel_2 = Instance.new("TextLabel")
  10. local TextLabel_3 = Instance.new("TextLabel")
  11. local TextLabel_4 = Instance.new("TextLabel")
  12. local Open = Instance.new("TextButton")
  13.  
  14. -- Properties
  15.  
  16. ScreenGui.Parent = game.CoreGui
  17.  
  18. Frame.Parent = ScreenGui
  19. Frame.BackgroundColor3 = Color3.new(0.282353, 0.282353, 0.282353)
  20. Frame.BackgroundTransparency = 0.40000000596046
  21. Frame.Draggable = true
  22. Frame.Position = UDim2.new(0, 440, 0, 350)
  23. Frame.Size = UDim2.new(0, 230, 0, 220)
  24. Frame.Visible = false
  25.  
  26. Close.Name = "Close"
  27. Close.Parent = Frame
  28. Close.BackgroundColor3 = Color3.new(0.337255, 0.333333, 0.337255)
  29. Close.Size = UDim2.new(0, 20, 0, 20)
  30. Close.Font = Enum.Font.SciFi
  31. Close.Text = "X"
  32. Close.TextColor3 = Color3.new(1, 0, 0)
  33. Close.TextScaled = true
  34. Close.TextSize = 14
  35. Close.TextWrapped = true
  36. Close.MouseButton1Click:connect(function()
  37. if game.CoreGui.ScreenGui.Frame.Visible == true then
  38. game.CoreGui.ScreenGui.Frame.Visible = false
  39. end
  40. end)
  41. ChestTp.Name = "Chest Tp"
  42. ChestTp.Parent = Frame
  43. ChestTp.BackgroundColor3 = Color3.new(0, 0, 0)
  44. ChestTp.BackgroundTransparency = 0.40000000596046
  45. ChestTp.Position = UDim2.new(0, 0, 0, 50)
  46. ChestTp.Size = UDim2.new(0, 230, 0, 40)
  47. ChestTp.Font = Enum.Font.SciFi
  48. ChestTp.Text = "Teleport Chest"
  49. ChestTp.TextColor3 = Color3.new(1, 0, 0)
  50. ChestTp.TextScaled = true
  51. ChestTp.TextSize = 14
  52. ChestTp.TextWrapped = true
  53. ChestTp.MouseButton1Click:connect(function()
  54. while true do
  55. wait(.1)
  56. for _,v in pairs(game.Workspace.SandBlocks:GetChildren()) do
  57. if v:FindFirstChild("BasicChest") or v:FindFirstChild("EpicChest") or v:FindFirstChild("RareChest") then
  58. v.CanCollide = false
  59. v.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame+Vector3.new(math.random(0,0),0,math.random(0,0))
  60. end
  61. end
  62. end
  63. end)
  64. TextLabel.Parent = ChestTp
  65. TextLabel.BackgroundColor3 = Color3.new(0.345098, 0.337255, 0.345098)
  66. TextLabel.BackgroundTransparency = 0.30000001192093
  67. TextLabel.Position = UDim2.new(0, 0, 0, 40)
  68. TextLabel.Size = UDim2.new(0, 230, 0, 20)
  69. TextLabel.Font = Enum.Font.SourceSans
  70. TextLabel.Text = "Credits To Yvu!"
  71. TextLabel.TextColor3 = Color3.new(0, 1, 0)
  72. TextLabel.TextSize = 28
  73.  
  74. Dig.Name = "Dig"
  75. Dig.Parent = Frame
  76. Dig.BackgroundColor3 = Color3.new(0, 0, 0)
  77. Dig.BackgroundTransparency = 0.40000000596046
  78. Dig.Position = UDim2.new(0, 0, 0, 110)
  79. Dig.Size = UDim2.new(0, 230, 0, 40)
  80. Dig.Font = Enum.Font.SciFi
  81. Dig.Text = "Dig Faster!"
  82. Dig.TextColor3 = Color3.new(1, 0, 0)
  83. Dig.TextScaled = true
  84. Dig.TextSize = 14
  85. Dig.TextWrapped = true
  86. Dig.MouseButton1Click:connect(function()
  87. local Clicking = false
  88. local Mouse = game.Players.LocalPlayer:GetMouse()
  89. local RS = game:GetService("RunService").RenderStepped
  90. _G.digSpeed = 0
  91. local ClicksPerLoop = 5
  92.  
  93. function FindTool()
  94. local found = false
  95. local tool = nil
  96. for i,v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
  97. if v.ClassName=="Tool" then
  98. found = true
  99. tool = v
  100. end
  101. end
  102. if found then
  103. return true, tool
  104. end
  105. end
  106.  
  107. function Dig()
  108. local pass, tool = FindTool()
  109. while Clicking and pass do
  110. RS:wait(_G.digSpeed)
  111. if not Mouse.Target:FindFirstChild("Rock") then
  112. for i=1,ClicksPerLoop do
  113. tool.RemoteClick:FireServer(Mouse.Target)
  114. end
  115. end
  116. end
  117. end
  118.  
  119. Mouse.Button1Down:Connect(function()
  120. Clicking = true
  121. Dig()
  122. end)
  123.  
  124. Mouse.Button1Up:Connect(function()
  125. Clicking = false
  126. end)
  127. end)
  128. TextLabel_2.Parent = Dig
  129. TextLabel_2.BackgroundColor3 = Color3.new(0.345098, 0.337255, 0.345098)
  130. TextLabel_2.BackgroundTransparency = 0.30000001192093
  131. TextLabel_2.Position = UDim2.new(0, 0, 0, 40)
  132. TextLabel_2.Size = UDim2.new(0, 230, 0, 20)
  133. TextLabel_2.Font = Enum.Font.SourceSans
  134. TextLabel_2.Text = "Credits To Drstattik! "
  135. TextLabel_2.TextColor3 = Color3.new(0, 1, 0)
  136. TextLabel_2.TextSize = 28
  137.  
  138. TextLabel_3.Parent = Dig
  139. TextLabel_3.BackgroundColor3 = Color3.new(0.345098, 0.337255, 0.345098)
  140. TextLabel_3.BackgroundTransparency = 0.30000001192093
  141. TextLabel_3.Position = UDim2.new(0, 0, 0, 60)
  142. TextLabel_3.Size = UDim2.new(0, 230, 0, 50)
  143. TextLabel_3.Font = Enum.Font.SourceSans
  144. TextLabel_3.Text = "Made By Silent18!"
  145. TextLabel_3.TextColor3 = Color3.new(0, 0, 1)
  146. TextLabel_3.TextSize = 28
  147.  
  148. TextLabel_4.Parent = Frame
  149. TextLabel_4.BackgroundColor3 = Color3.new(0.337255, 0.329412, 0.337255)
  150. TextLabel_4.BackgroundTransparency = 0.40000000596046
  151. TextLabel_4.Position = UDim2.new(0, 0, 0, 20)
  152. TextLabel_4.Size = UDim2.new(0, 230, 0, 30)
  153. TextLabel_4.Font = Enum.Font.SciFi
  154. TextLabel_4.Text = "Treasure Hunt Simulator GUI"
  155. TextLabel_4.TextColor3 = Color3.new(0, 0, 0)
  156. TextLabel_4.TextScaled = true
  157. TextLabel_4.TextSize = 28
  158. TextLabel_4.TextWrapped = true
  159.  
  160. Open.Name = "Open"
  161. Open.Parent = ScreenGui
  162. Open.BackgroundColor3 = Color3.new(0, 0, 0)
  163. Open.BackgroundTransparency = 0.30000001192093
  164. Open.Position = UDim2.new(0, 0, 0, 340)
  165. Open.Size = UDim2.new(0, 100, 0, 30)
  166. Open.Font = Enum.Font.SciFi
  167. Open.Text = "Open"
  168. Open.TextColor3 = Color3.new(0, 1, 1)
  169. Open.TextScaled = true
  170. Open.TextSize = 14
  171. Open.TextWrapped = true
  172. Open.MouseButton1Click:connect(function()
  173. if game.CoreGui.ScreenGui.Frame.Visible == false then
  174. game.CoreGui.ScreenGui.Frame.Visible = true
  175. end
  176. end)
Add Comment
Please, Sign In to add comment