daily pastebin goal
26%
SHARE
TWEET

MinersHavenGUI

a guest Feb 13th, 2018 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Miner's Haven LuckyGUI Created by LuckyMMB @ V3rmillion.net --
  2. -- Discord https://discord.gg/GKzJnUC --
  3.  
  4. -- Objects
  5.  
  6. remoteclickactive=false
  7. tpcratesactive = false
  8. autorebirthactive = false
  9. openallcratesactive = false
  10.  
  11. local ScreenGui = Instance.new("ScreenGui")
  12. local OpenFrame = Instance.new("Frame")
  13. local MainFrame = Instance.new("Frame")
  14. local CloseMH = Instance.new("TextButton")
  15. local TextButtonAutoPlace1 = Instance.new("TextButton")
  16. local AutoPlace1Label = Instance.new("TextLabel")
  17. local AutoRebirth = Instance.new("TextButton")
  18. local TextButtonTpCrates = Instance.new("TextButton")
  19. local OpenAllCrates = Instance.new("TextButton")
  20. local Label = Instance.new("TextLabel")
  21. local Credits = Instance.new("TextLabel")
  22. local CountTpCrates = Instance.new("TextLabel")
  23.  
  24. -- Properties
  25.  
  26. ScreenGui.Name = "ScreenGui"
  27. ScreenGui.Parent = game.CoreGui
  28. local MHCORE = game.CoreGui["ScreenGui"]
  29.  
  30. OpenFrame.Name = "OpenFrame"
  31. OpenFrame.Parent = ScreenGui
  32. OpenFrame.Active = true
  33. OpenFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  34. OpenFrame.BackgroundTransparency = 0.5
  35. OpenFrame.BorderColor3 = Color3.new(0, 0, 0)
  36. OpenFrame.Draggable = true
  37. OpenFrame.Position = UDim2.new(0, 5, 1, -260)
  38. OpenFrame.Selectable = true
  39. OpenFrame.Size = UDim2.new(0, 243, 0, 30)
  40.  
  41. MainFrame.Name = "MainFrame"
  42. MainFrame.Parent = OpenFrame
  43. MainFrame.BackgroundColor3 = Color3.new(0.3, 0.3, 0.3)
  44. MainFrame.BackgroundTransparency = 0.2
  45. MainFrame.Position = UDim2.new(0, 0, 1, 0)
  46. MainFrame.Size = UDim2.new(0, 243, 0, 225)
  47.  
  48. CloseMH.Name = "CloseMH"
  49. CloseMH.Parent = OpenFrame
  50. CloseMH.BackgroundColor3 = Color3.new(0.3, 0.3, 0.3)
  51. CloseMH.BorderColor3 = Color3.new(0, 0, 0)
  52. CloseMH.Position = UDim2.new(0, 4, 0, 4)
  53. CloseMH.Size = UDim2.new(0, 21, 0, 21)
  54. CloseMH.Font = Enum.Font.Fantasy
  55. CloseMH.FontSize = Enum.FontSize.Size18
  56. CloseMH.Text = "X"
  57. CloseMH.TextColor3 = Color3.new(1, 1, 1)
  58. CloseMH.TextScaled = true
  59. CloseMH.TextWrapped = true
  60. CloseMH.TextSize = 17
  61.  
  62. Label.Name = "Label"
  63. Label.Parent = OpenFrame
  64. Label.BackgroundColor3 = Color3.new(1, 1, 1)
  65. Label.BackgroundTransparency = 1
  66. Label.BorderSizePixel = 0
  67. Label.Position = UDim2.new(0, 29, 0, 0)
  68. Label.Size = UDim2.new(0, 212, 0, 30)
  69. Label.Font = Enum.Font.SourceSans
  70. Label.Text = "Miners Haven LuckyGUI"
  71. Label.TextColor3 = Color3.new(1, 1, 1)
  72. Label.TextScaled = true
  73. Label.TextSize = 14
  74. Label.TextWrapped = true
  75.  
  76. TextButtonAutoPlace1.Name = "TextButtonAutoPlace1"
  77. TextButtonAutoPlace1.Parent = MainFrame
  78. TextButtonAutoPlace1.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
  79. TextButtonAutoPlace1.BorderColor3 = Color3.new(0, 0, 0)
  80. TextButtonAutoPlace1.Position = UDim2.new(0, 10, 0, 10)
  81. TextButtonAutoPlace1.Size = UDim2.new(0, 223, 0, 40)
  82. TextButtonAutoPlace1.Font = Enum.Font.SourceSans
  83. TextButtonAutoPlace1.Text = "AUTO PLACE 3 Dreamers Anguish\n& 3-6 Dragonglass Mines [SETUP]"
  84. TextButtonAutoPlace1.TextColor3 = Color3.new(1, 1, 1)
  85. TextButtonAutoPlace1.TextSize = 18
  86. TextButtonAutoPlace1.TextWrapped = true
  87.  
  88. AutoPlace1Label.Name = "AutoPlace1Label"
  89. AutoPlace1Label.Parent = MainFrame
  90. AutoPlace1Label.BackgroundColor3 = Color3.new(1, 1, 1)
  91. AutoPlace1Label.BorderColor3 = Color3.new(0, 0, 0)
  92. AutoPlace1Label.Position = UDim2.new(0, 10, 0, 50)
  93. AutoPlace1Label.Size = UDim2.new(0, 223, 0, 18)
  94. AutoPlace1Label.Font = Enum.Font.SourceSans
  95. AutoPlace1Label.Text = "MUST be plot 1 on a Private Server"
  96. AutoPlace1Label.TextColor3 = Color3.new(0, 0, 0)
  97. AutoPlace1Label.TextSize = 18
  98. AutoPlace1Label.TextScaled = true
  99.  
  100. AutoRebirth.Name = "AutoRebirth"
  101. AutoRebirth.Parent = MainFrame
  102. AutoRebirth.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
  103. AutoRebirth.BorderColor3 = Color3.new(0, 0, 0)
  104. AutoRebirth.Position = UDim2.new(0, 10, 0, 78)
  105. AutoRebirth.Size = UDim2.new(0, 223, 0, 30)
  106. AutoRebirth.Font = Enum.Font.SourceSans
  107. AutoRebirth.Text = "Auto ReBirth"
  108. AutoRebirth.TextColor3 = Color3.new(1, 1, 1)
  109. AutoRebirth.TextSize = 24
  110.  
  111. TextButtonTpCrates.Name = "TextButtonTpCrates"
  112. TextButtonTpCrates.Parent = MainFrame
  113. TextButtonTpCrates.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
  114. TextButtonTpCrates.BorderColor3 = Color3.new(0, 0, 0)
  115. TextButtonTpCrates.Position = UDim2.new(0, 10, 0, 118)
  116. TextButtonTpCrates.Size = UDim2.new(0, 170, 0, 30)
  117. TextButtonTpCrates.Font = Enum.Font.SourceSans
  118. TextButtonTpCrates.Text = "Auto TP Crates"
  119. TextButtonTpCrates.TextColor3 = Color3.new(1, 1, 1)
  120. TextButtonTpCrates.TextSize = 24
  121.  
  122. CountTpCrates.Name = "CountTpCrates"
  123. CountTpCrates.Parent = MainFrame
  124. CountTpCrates.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
  125. CountTpCrates.BorderColor3 = Color3.new(0, 0, 0)
  126. CountTpCrates.Position = UDim2.new(0, 180, 0, 118)
  127. CountTpCrates.Size = UDim2.new(0, 53, 0, 30)
  128. CountTpCrates.Font = Enum.Font.SourceSans
  129. CountTpCrates.Text = "0"
  130. CountTpCrates.TextColor3 = Color3.new(1, 1, 1)
  131. CountTpCrates.TextSize = 25
  132.  
  133. OpenAllCrates.Name = "OpenAllCrates"
  134. OpenAllCrates.Parent = MainFrame
  135. OpenAllCrates.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
  136. OpenAllCrates.BorderColor3 = Color3.new(0, 0, 0)
  137. OpenAllCrates.Position = UDim2.new(0, 10, 0, 158)
  138. OpenAllCrates.Size = UDim2.new(0, 223, 0, 30)
  139. OpenAllCrates.Font = Enum.Font.SourceSans
  140. OpenAllCrates.Text = "Auto Open All Crates"
  141. OpenAllCrates.TextColor3 = Color3.new(1, 1, 1)
  142. OpenAllCrates.TextSize = 24
  143.  
  144. Credits.Name = "Credits"
  145. Credits.Parent = MainFrame
  146. Credits.BackgroundColor3 = Color3.new(0, 0, 0)
  147. Credits.BackgroundTransparency = 1
  148. Credits.Position = UDim2.new(0, 10, 0, 190)
  149. Credits.Size = UDim2.new(0, 223, 0, 30)
  150. Credits.Font = Enum.Font.SourceSans
  151. Credits.Text = "Made by LuckyMMB#8646 (discord) discord.gg/GKzJnUC"
  152. Credits.TextColor3 = Color3.new(1, 1, 1)
  153. Credits.TextScaled = true
  154. Credits.TextSize = 24
  155.  
  156. CloseMH.MouseButton1Down:connect(function()
  157.     MHCORE:destroy()
  158. end)
  159.  
  160. TextButtonAutoPlace1.MouseButton1Click:connect(function()
  161.     if remoteclickactive == true then
  162.         remoteclickactive=false
  163.         TextButtonAutoPlace1.TextColor3 = Color3.new(1, 1, 1)
  164.         TextButtonAutoPlace1.Text = "AUTO PLACE 3 Dreamers Anguish\n& 3-6 Dragonglass Mines [SETUP]"
  165.         TextButtonAutoPlace1.TextSize = 18
  166.     else
  167.         remoteclickactive=true
  168.         TextButtonAutoPlace1.TextColor3 = Color3.new(1, 0, 0)
  169.         TextButtonAutoPlace1.Text = "Stop Auto Placing\nStop Remote Clicking"
  170.         TextButtonAutoPlace1.TextSize = 20
  171.  
  172.     placeitems = coroutine.wrap(function()
  173.     while remoteclickactive == true do
  174.     wait(3)
  175.     local remote = Game["ReplicatedStorage"]["PlaceItem"]
  176. local args = {
  177.     [1] = "Dreamer's Anguish",
  178.     [2] = CFrame.new(-146, 698.7, 434, 1.19248806e-08, 0, -1, 0, 1, 0, 1, 0, 1.19248806e-08)
  179. }
  180. remote:InvokeServer(unpack(args))
  181.  
  182. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  183. local args = {
  184.     [1] = "Dragonglass Mine",
  185.     [2] = CFrame.new(-131, 701.7, 434.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  186. }
  187. remote:InvokeServer(unpack(args))
  188.  
  189. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  190. local args = {
  191.     [1] = "Dragonglass Mine",
  192.     [2] = CFrame.new(-131, 701.7, 434.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  193. }
  194. remote:InvokeServer(unpack(args))
  195.  
  196. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  197. local args = {
  198.     [1] = "Dreamer's Anguish",
  199.     [2] = CFrame.new(-146, 698.7, 410, 1.19248806e-08, 0, -1, 0, 1, 0, 1, 0, 1.19248806e-08)
  200. }
  201. remote:InvokeServer(unpack(args))
  202.  
  203. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  204. local args = {
  205.     [1] = "Dragonglass Mine",
  206.     [2] = CFrame.new(-131, 701.7, 410.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  207. }
  208. remote:InvokeServer(unpack(args))
  209.  
  210. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  211. local args = {
  212.     [1] = "Dragonglass Mine",
  213.     [2] = CFrame.new(-131, 701.7, 410.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  214. }
  215. remote:InvokeServer(unpack(args))
  216.  
  217. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  218. local args = {
  219.     [1] = "Dreamer's Anguish",
  220.     [2] = CFrame.new(-146, 698.7, 386, 1.19248806e-08, 0, -1, 0, 1, 0, 1, 0, 1.19248806e-08)
  221. }
  222. remote:InvokeServer(unpack(args))
  223.  
  224. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  225. local args = {
  226.     [1] = "Dragonglass Mine",
  227.     [2] = CFrame.new(-131, 701.7, 386.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  228. }
  229. remote:InvokeServer(unpack(args))
  230.  
  231. local remote = Game["ReplicatedStorage"]["PlaceItem"]
  232. local args = {
  233.     [1] = "Dragonglass Mine",
  234.     [2] = CFrame.new(-131, 701.7, 386.5, -1, 0, -2.38497613e-08, 0, 1, 0, 2.38497613e-08, 0, -1)
  235. }
  236. remote:InvokeServer(unpack(args))
  237. end
  238. end)
  239.  
  240.     autoclick = coroutine.wrap(function()
  241.     while remoteclickactive == true do
  242.         wait(0.1)
  243.         game:GetService'ReplicatedStorage'.RemoteDrop:FireServer()
  244.     end
  245. end)
  246.  
  247. placeitems()
  248. autoclick()
  249.  
  250. end
  251. end)
  252.  
  253. AutoRebirth.MouseButton1Click:connect(function()
  254.     if autorebirthactive == true then
  255.         autorebirthactive=false
  256.         AutoRebirth.TextColor3 = Color3.new(1, 1, 1)
  257.         AutoRebirth.Text = "Auto ReBirth"
  258.     else
  259.         autorebirthactive=true
  260.         AutoRebirth.TextColor3 = Color3.new(1, 0, 0)
  261.         AutoRebirth.Text = "Stop Auto ReBirth"
  262.         while autorebirthactive == true do
  263.             game:GetService'ReplicatedStorage'.Rebirth:InvokeServer()
  264.         end
  265.     end
  266. end)
  267.  
  268. TextButtonTpCrates.MouseButton1Click:connect(function()
  269.     if tpcratesactive == true then
  270.         tpcratesactive=false
  271.         TextButtonTpCrates.TextColor3 = Color3.new(1, 1, 1)
  272.         TextButtonTpCrates.Text = "Auto TP Crates"
  273.     else
  274.         tpcratesactive=true
  275.         TextButtonTpCrates.TextColor3 = Color3.new(1, 0, 0)
  276.         TextButtonTpCrates.Text = "Stop TPing Crates"
  277.         while tpcratesactive == true do
  278.             wait()
  279.             local children = game.Workspace:GetChildren()
  280.             for i =1, #children do
  281.                 wait(0.1)
  282.                 if children[i] ~= nil then
  283.                     for x in string.gmatch(children[i].Name, "Crate") do
  284.                         if children[i].ClassName == "Part" then
  285.                             children[i].Anchored = true
  286.                             children[i].CanCollide = false
  287.                             children[i].CFrame = CFrame.new(game.Players.LocalPlayer.Character.Head.Position)
  288.                             wait(0.3)
  289.                         end
  290.                     end
  291.                 end
  292.             end
  293.         end
  294.     end
  295. end)
  296.  
  297. OpenAllCrates.MouseButton1Click:connect(function()
  298.     if openallcratesactive == true then
  299.         openallcratesactive=false
  300.         OpenAllCrates.TextColor3 = Color3.new(1, 1, 1)
  301.         OpenAllCrates.Text = "Auto Open All Crates"
  302.     else
  303.         openallcratesactive=true
  304.         OpenAllCrates.TextColor3 = Color3.new(1, 0, 0)
  305.         OpenAllCrates.Text = "Stop Opening Crates"
  306.         while openallcratesactive == true do
  307.             wait()
  308.             if 0 == game.Players.LocalPlayer.Crates.Unreal.Value then
  309.             else
  310.                 game.ReplicatedStorage.MysteryBox:InvokeServer("Unreal")
  311.                 wait(0.5)
  312.             end
  313.             if 0 == game.Players.LocalPlayer.Crates.Inferno.Value then
  314.             else
  315.                 game.ReplicatedStorage.MysteryBox:InvokeServer("Inferno")
  316.                 wait(0.5)
  317.             end
  318.             if 0 == game.Players.LocalPlayer.Crates.Regular.Value then
  319.             else
  320.                 game.ReplicatedStorage.MysteryBox:InvokeServer("Regular")
  321.                 wait(0.5)
  322.             end
  323.         end
  324.     end
  325. end)
  326.  
  327. function CountBricks()
  328.   local c = 0
  329.     for i,v in pairs(workspace:GetChildren()) do
  330.         for x in string.gmatch(v.Name, "Crate") do
  331.             wait(0.2)
  332.             c = c + 1
  333.         end
  334.     end
  335.     return c
  336. end
  337.  
  338. while true do
  339.     wait()
  340.     CountTpCrates.Text = CountBricks()
  341. end
RAW Paste Data
Top