daily pastebin goal
23%
SHARE
TWEET

MinersHavenGUI

a guest Feb 13th, 2018 58 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top