Miner's Haven Rebirthing Tool

-- Credit to Bork for the scripts!


local MinersHavenGUI = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local BodyFrame = Instance.new("Frame")
local AutoRebirth = Instance.new("TextButton")
local AutoRemote = Instance.new("TextButton")
local TPUpgraders = Instance.new("TextButton")
local Instructions = Instance.new("TextButton")
local Credits = Instance.new("TextLabel")
local Divider = Instance.new("TextLabel")
local InstructionSteps = Instance.new("Frame")
local Step1 = Instance.new("TextLabel")
local Step2 = Instance.new("TextLabel")
local Step0 = Instance.new("TextLabel")
local Step3 = Instance.new("TextLabel")
local Step4 = Instance.new("TextLabel")
local AutoLayout1 = Instance.new("TextButton")
local AutoLayout2 = Instance.new("TextButton")
local AutoLayout3 = Instance.new("TextButton")
local AutoLayout = Instance.new("TextLabel")
local Destroy = Instance.new("TextButton")
local Mini = Instance.new("TextButton")
local Name = Instance.new("TextLabel")
--Properties:
MinersHavenGUI.Name = "MinersHavenGUI"
MinersHavenGUI.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
MinersHavenGUI.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

MainFrame.Name = "MainFrame"
MainFrame.Parent = MinersHavenGUI
MainFrame.Active = true
MainFrame.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0.108695649, 0, 0.18427518, 0)
MainFrame.Selectable = true
MainFrame.Size = UDim2.new(0, 323, 0, 40)
MainFrame.Draggable = true

BodyFrame.Name = "BodyFrame"
BodyFrame.Parent = MainFrame
BodyFrame.BackgroundColor3 = Color3.new(1, 1, 1)
BodyFrame.BorderSizePixel = 0
BodyFrame.Position = UDim2.new(0, 0, 1, 0)
BodyFrame.Size = UDim2.new(0, 323, 0, 162)

AutoRebirth.Name = "AutoRebirth"
AutoRebirth.Parent = BodyFrame
AutoRebirth.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
AutoRebirth.BorderSizePixel = 0
AutoRebirth.Size = UDim2.new(0, 166, 0, 43)
AutoRebirth.Font = Enum.Font.SourceSans
AutoRebirth.Text = "Auto Rebirth: OFF"
AutoRebirth.TextColor3 = Color3.new(0, 0, 0)
AutoRebirth.TextSize = 14

AutoRemote.Name = "AutoRemote"
AutoRemote.Parent = BodyFrame
AutoRemote.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
AutoRemote.BorderSizePixel = 0
AutoRemote.Position = UDim2.new(0.4860681, 0, 0, 0)
AutoRemote.Size = UDim2.new(0, 166, 0, 43)
AutoRemote.Font = Enum.Font.SourceSans
AutoRemote.Text = "Auto Remote: OFF"
AutoRemote.TextColor3 = Color3.new(0, 0, 0)
AutoRemote.TextSize = 14

TPUpgraders.Name = "TPUpgraders"
TPUpgraders.Parent = BodyFrame
TPUpgraders.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
TPUpgraders.BorderSizePixel = 0
TPUpgraders.Position = UDim2.new(0.241486058, 0, 0.415868074, 0)
TPUpgraders.Size = UDim2.new(0, 166, 0, 43)
TPUpgraders.Font = Enum.Font.SourceSans
TPUpgraders.Text = "Upgrader CFrame"
TPUpgraders.TextColor3 = Color3.new(0, 0, 0)
TPUpgraders.TextSize = 14

Instructions.Name = "Instructions"
Instructions.Parent = BodyFrame
Instructions.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
Instructions.BorderSizePixel = 0
Instructions.Position = UDim2.new(0.365325123, 0, 0.722740173, 0)
Instructions.Size = UDim2.new(0, 87, 0, 25)
Instructions.Font = Enum.Font.SourceSans
Instructions.Text = "Instructions: OFF"
Instructions.TextColor3 = Color3.new(0, 0, 0)
Instructions.TextSize = 14

Credits.Name = "Credits"
Credits.Parent = BodyFrame
Credits.BackgroundColor3 = Color3.new(1, 1, 1)
Credits.BackgroundTransparency = 1
Credits.BorderSizePixel = 0
Credits.Position = UDim2.new(0.662538707, 0, 0.74125874, 0)
Credits.Size = UDim2.new(0, 109, 0, 37)
Credits.Font = Enum.Font.SourceSans
Credits.Text = "by Stefanuk12"
Credits.TextColor3 = Color3.new(0, 0, 0)
Credits.TextSize = 14

Divider.Name = "Divider"
Divider.Parent = BodyFrame
Divider.BackgroundColor3 = Color3.new(1, 1, 1)
Divider.BorderColor3 = Color3.new(0, 0, 0)
Divider.Position = UDim2.new(0, 0, 0.263662249, 0)
Divider.Size = UDim2.new(0, 323, 0, 0)
Divider.Font = Enum.Font.SourceSans
Divider.Text = " "
Divider.TextColor3 = Color3.new(0, 0, 0)
Divider.TextSize = 14

InstructionSteps.Name = "InstructionSteps"
InstructionSteps.Parent = BodyFrame
InstructionSteps.BackgroundColor3 = Color3.new(1, 1, 1)
InstructionSteps.BorderSizePixel = 0
InstructionSteps.Position = UDim2.new(1, 0, 0, 0)
InstructionSteps.Size = UDim2.new(0, 323, 0, 162)
InstructionSteps.Visible = false

Step1.Name = "Step1"
Step1.Parent = InstructionSteps
Step1.BackgroundColor3 = Color3.new(1, 1, 1)
Step1.BorderSizePixel = 0
Step1.Position = UDim2.new(0, 0, 0.240740746, 0)
Step1.Size = UDim2.new(0, 323, 0, 29)
Step1.Font = Enum.Font.SourceSansLight
Step1.Text = "1. Make a layout - Look at thread for more info"
Step1.TextColor3 = Color3.new(0, 0, 0)
Step1.TextSize = 14

Step2.Name = "Step2"
Step2.Parent = InstructionSteps
Step2.BackgroundColor3 = Color3.new(1, 1, 1)
Step2.BorderSizePixel = 0
Step2.Position = UDim2.new(0, 0, 0.419753045, 0)
Step2.Size = UDim2.new(0, 323, 0, 29)
Step2.Font = Enum.Font.SourceSansLight
Step2.Text = "2. Turn AutoRebirth/Remote ON"
Step2.TextColor3 = Color3.new(0, 0, 0)
Step2.TextSize = 14

Step0.Name = "Step0"
Step0.Parent = InstructionSteps
Step0.BackgroundColor3 = Color3.new(1, 1, 1)
Step0.BorderSizePixel = 0
Step0.Position = UDim2.new(0, 0, 0.0679011345, 0)
Step0.Size = UDim2.new(0, 323, 0, 29)
Step0.Font = Enum.Font.SourceSansLight
Step0.Text = "0. Find a game with people that have very high rebirths"
Step0.TextColor3 = Color3.new(0, 0, 0)
Step0.TextSize = 14

Step3.Name = "Step3"
Step3.Parent = InstructionSteps
Step3.BackgroundColor3 = Color3.new(1, 1, 1)
Step3.BorderSizePixel = 0
Step3.Position = UDim2.new(0, 0, 0.598765433, 0)
Step3.Size = UDim2.new(0, 323, 0, 29)
Step3.Font = Enum.Font.SourceSansLight
Step3.Text = "3. Press the Upgrader CFrame button and load the layout"
Step3.TextColor3 = Color3.new(0, 0, 0)
Step3.TextSize = 14

Step4.Name = "Step4"
Step4.Parent = InstructionSteps
Step4.BackgroundColor3 = Color3.new(1, 1, 1)
Step4.BorderSizePixel = 0
Step4.Position = UDim2.new(0, 0, 0.746913552, 0)
Step4.Size = UDim2.new(0, 323, 0, 29)
Step4.Font = Enum.Font.SourceSansLight
Step4.Text = "4. Once you've rebirthed, Repeat from Step 3"
Step4.TextColor3 = Color3.new(0, 0, 0)
Step4.TextSize = 14

AutoLayout1.Name = "AutoLayout1"
AutoLayout1.Parent = BodyFrame
AutoLayout1.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
AutoLayout1.BorderSizePixel = 0
AutoLayout1.Position = UDim2.new(0, 0, 0.839506149, 0)
AutoLayout1.Size = UDim2.new(0, 22, 0, 26)
AutoLayout1.Font = Enum.Font.SourceSans
AutoLayout1.Text = "1"
AutoLayout1.TextColor3 = Color3.new(0, 0, 0)
AutoLayout1.TextSize = 14

AutoLayout2.Name = "AutoLayout2"
AutoLayout2.Parent = BodyFrame
AutoLayout2.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
AutoLayout2.BorderSizePixel = 0
AutoLayout2.Position = UDim2.new(0.067079477, 0, 0.839506149, 0)
AutoLayout2.Size = UDim2.new(0, 22, 0, 26)
AutoLayout2.Font = Enum.Font.SourceSans
AutoLayout2.Text = "2"
AutoLayout2.TextColor3 = Color3.new(0, 0, 0)
AutoLayout2.TextSize = 14

AutoLayout3.Name = "AutoLayout3"
AutoLayout3.Parent = BodyFrame
AutoLayout3.BackgroundColor3 = Color3.new(0.956863, 0.956863, 0.956863)
AutoLayout3.BorderSizePixel = 0
AutoLayout3.Position = UDim2.new(0.134158954, 0, 0.839506149, 0)
AutoLayout3.Size = UDim2.new(0, 22, 0, 26)
AutoLayout3.Font = Enum.Font.SourceSans
AutoLayout3.Text = "3"
AutoLayout3.TextColor3 = Color3.new(0, 0, 0)
AutoLayout3.TextSize = 14

AutoLayout.Name = "AutoLayout"
AutoLayout.Parent = BodyFrame
AutoLayout.BackgroundColor3 = Color3.new(1, 1, 1)
AutoLayout.BackgroundTransparency = 1
AutoLayout.BorderSizePixel = 0
AutoLayout.Position = UDim2.new(0, 0, 0.697530866, 0)
AutoLayout.Size = UDim2.new(0, 65, 0, 29)
AutoLayout.Font = Enum.Font.SourceSans
AutoLayout.Text = "Auto Layout"
AutoLayout.TextColor3 = Color3.new(0, 0, 0)
AutoLayout.TextSize = 14

Destroy.Name = "Destroy"
Destroy.Parent = MainFrame
Destroy.BackgroundColor3 = Color3.new(1, 1, 1)
Destroy.BackgroundTransparency = 1
Destroy.BorderSizePixel = 0
Destroy.Position = UDim2.new(0.801857591, 0, 0, 0)
Destroy.Size = UDim2.new(0, 64, 0, 40)
Destroy.Font = Enum.Font.SourceSans
Destroy.Text = "X"
Destroy.TextColor3 = Color3.new(0, 0, 0)
Destroy.TextSize = 14

Mini.Name = "Mini"
Mini.Parent = MainFrame
Mini.BackgroundColor3 = Color3.new(1, 1, 1)
Mini.BackgroundTransparency = 1
Mini.BorderSizePixel = 0
Mini.Position = UDim2.new(0.603715181, 0, 0, 0)
Mini.Size = UDim2.new(0, 64, 0, 40)
Mini.Font = Enum.Font.SourceSans
Mini.Text = "_"
Mini.TextColor3 = Color3.new(0, 0, 0)
Mini.TextSize = 14

Name.Name = "Name"
Name.Parent = MainFrame
Name.BackgroundColor3 = Color3.new(1, 1, 1)
Name.BackgroundTransparency = 1
Name.BorderSizePixel = 0
Name.Size = UDim2.new(0, 195, 0, 40)
Name.Font = Enum.Font.SourceSansLight
Name.Text = "Rebirthing Tool - Miners Haven"
Name.TextColor3 = Color3.new(0, 0, 0)
Name.TextSize = 14

-- Scripts:

_G.AutoRebirth = false
_G.AutoRemote = false


Destroy.MouseButton1Click:connect(function() -- Destory GUI
    MinersHavenGUI:Destroy()
end)

Mini.MouseButton1Click:connect(function() -- Minimise/Restore GUI
    if BodyFrame.Visible == true then
        BodyFrame.Visible = false
        else BodyFrame.Visible = true
    end
end)

Instructions.MouseButton1Click:connect(function() -- Minimise/Restore Instructions
    if InstructionSteps.Visible == false then
        InstructionSteps.Visible = true
        Instructions.Text = "Instructions: ON"
    else InstructionSteps.Visible = false
        Instructions.Text = "Instructions: OFF"
    end
end)

AutoRebirth.MouseButton1Click:connect(function() -- Toggle work for AutoRebirth
    if _G.AutoRebirth == false then
        _G.AutoRebirth = true
        AutoRebirth.Text = "Auto Rebirth: ON"
    else _G.AutoRebirth = false
        AutoRebirth.Text = "Auto Rebirth: OFF"
    end
    while _G.AutoRebirth == true do wait()
        game.ReplicatedStorage.Rebirth:InvokeServer()
    end
end)

AutoRemote.MouseButton1Click:connect(function() -- Toggle work for AutoRemote
    if _G.AutoRemote == false then
        _G.AutoRemote = true
        AutoRemote.Text = "Auto Remote: ON"
    else _G.AutoRemote = false
        AutoRemote.Text = "Auto Remote: OFF"
    end
    while _G.AutoRemote == true do wait()
        game.ReplicatedStorage.RemoteDrop:FireServer()
    end
end)

TPUpgraders.MouseButton1Click:connect(function() -- Teleports all of the upgraders into the conveyor
    game.ReplicatedStorage.DestroyAll:InvokeServer()
local Tycoon = workspace.Tycoons:FindFirstChild(tostring(game.Players.LocalPlayer.PlayerTycoon.Value))
local PlaceItem = game.ReplicatedStorage.PlaceItem
local placehere = CFrame.new(0, 2, 0, -1, 0, 0, 0, 1, 0, 0, 0, -1) + Tycoon:FindFirstChild("Base").Position
PlaceItem:InvokeServer("Basic Conveyor",  placehere)
wait(0.01)
local pt = game.Players.LocalPlayer.PlayerTycoon.Value
local cv = game.Players.LocalPlayer.PlayerTycoon.Value["Basic Conveyor"].Hitbox
for i,v in pairs(game.Workspace.Tycoons:GetDescendants()) do
if v.Name == "Big Bad Blaster" or v.Name == "Flaming Schrodinger" or v.Name == "Schrodinger Evaluator" or v.Name == "Super Schrodinger" or v.Name == "Ore Illuminator" or v.Name == "Ore Crane" or v.Name == "Portable Flamethrower" or v.Name == "Flaming Ore Scanner" or v.Name == "Chemical Refiner" or v.Name == "Pirate Cove" or v.Name == "Dragonglass Blaster" or v.Name == "Dragon Blaster" or v.Name == "Clover Blaster" or v.Name == "Hydra Blaster" or v.Name == "Aether Schrodinger" or v.Name == "Ore Indoctrinator" or v.Name == "Arcane Lightning" then
v:Remove()
end
end
for i,v in pairs(game.Workspace.Tycoons:GetDescendants()) do
if v.Name == "Upgrade" then
v.Transparency = 1
v.CFrame = cv.CFrame*CFrame.new(0,100,0)
end
end
for i,v in pairs(game.Workspace.Tycoons:GetDescendants()) do
if v.Name == "Morning Star" or v.Name == "Nova Star" then
v:Remove()
elseif v.Name == "Tesla Resetter" or v.Name == "Tesla Refuter" then
v.Model.Upgrade.CFrame = cv.CFrame*CFrame.new(0,50,0)
elseif v.Name == "The Final Upgrader" or v.Name == "The Ultimate Sacrifice" then
v.Model.Upgrade.CFrame = cv.CFrame*CFrame.new(0,75,0)
end
end
pt["Basic Conveyor"].Hitbox.Touched:connect(function(hit)
    if hit:FindFirstChild("Cash") then
if hit:FindFirstChild("Bork") then
local variable = true
else
local int = Instance.new("IntValue")
int.Parent = hit
int.Name = "Bork"
hit.CFrame = cv.CFrame*CFrame.new(0,100,0)
wait(0.05)
hit.CFrame = cv.CFrame*CFrame.new(0,50,0)
wait(0.05)
hit.CFrame = cv.CFrame*CFrame.new(0,100,0)
wait(0.05)
hit.CFrame = cv.CFrame*CFrame.new(0,75,0)
wait(0.05)
hit.CFrame = cv.CFrame*CFrame.new(0,100,0)
wait(0.5)
hit.CFrame = pt["Basic Furnace"].Model.Lava.CFrame
end
end
end)
end)

AutoLayout2.MouseButton1Down:connect(function() -- Layout 2 gets placed after Rebirth
game.Players.LocalPlayer.leaderstats.Life.Changed:connect(function(plr)
delay(7, function()
game.ReplicatedStorage.Layouts:InvokeServer("Load", "Layout2")
end)
end)
end)

AutoLayout3.MouseButton1Down:connect(function() -- Layout 3 gets placed after Rebirth
game.Players.LocalPlayer.leaderstats.Life.Changed:connect(function(plr)
delay(7, function()
game.ReplicatedStorage.Layouts:InvokeServer("Load", "Layout3")
end)
end)
end)


print("Rebirthing Tool by Stefanuk12. Scripts by Bork")