Miners Haven Crate GUI Remastered

local MinersHavenCratesTpRemastered = Instance.new("ScreenGui")
local DecoFrame = Instance.new("Frame")
local MainFrame = Instance.new("Frame")
local Deco = Instance.new("ImageLabel")
local NumberOfBoxes = Instance.new("TextLabel")
local TPCrates = Instance.new("TextButton")
local LoopTPCrates = Instance.new("TextButton")
local Deco_2 = Instance.new("ImageLabel")
local Deco_3 = Instance.new("ImageLabel")
local Deco_4 = Instance.new("ImageLabel")
local Loop = Instance.new("ImageLabel")

MinersHavenCratesTpRemastered.Name = "MinersHavenCratesTpRemastered"
MinersHavenCratesTpRemastered.Parent = game.CoreGui

DecoFrame.Name = "DecoFrame"
DecoFrame.Parent = MinersHavenCratesTpRemastered
DecoFrame.Active = true
DecoFrame.BackgroundColor3 = Color3.new(1, 1, 1)
DecoFrame.BorderSizePixel = 0
DecoFrame.Draggable = true
DecoFrame.Position = UDim2.new(0.25, 0, 0.25, 0)
DecoFrame.Size = UDim2.new(0.200000003, 0, 0.100000001, 0)

MainFrame.Name = "MainFrame"
MainFrame.Parent = DecoFrame
MainFrame.BackgroundColor3 = Color3.new(0.454902, 0.454902, 0.454902)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0.0500000007, 0, 0.100000001, 0)
MainFrame.Size = UDim2.new(0.899999976, 0, 0.800000012, 0)

Deco.Name = "Deco"
Deco.Parent = MainFrame
Deco.BackgroundColor3 = Color3.new(1, 1, 1)
Deco.BackgroundTransparency = 1
Deco.Size = UDim2.new(0.300000012, 0, 1, 0)
Deco.Image = "rbxassetid://853410753"

NumberOfBoxes.Name = "NumberOfBoxes"
NumberOfBoxes.Parent = Deco
NumberOfBoxes.BackgroundColor3 = Color3.new(1, 1, 1)
NumberOfBoxes.BackgroundTransparency = 1
NumberOfBoxes.Size = UDim2.new(1, 0, 1, 0)
NumberOfBoxes.Font = Enum.Font.SciFi
NumberOfBoxes.FontSize = Enum.FontSize.Size24
NumberOfBoxes.Text = ""
NumberOfBoxes.TextColor3 = Color3.new(1, 1, 1)
NumberOfBoxes.TextSize = 24
NumberOfBoxes.TextStrokeTransparency = 0
NumberOfBoxes.TextWrapped = true

TPCrates.Name = "TPCrates"
TPCrates.Parent = MainFrame
TPCrates.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
TPCrates.BackgroundTransparency = 1
TPCrates.Position = UDim2.new(0.349999994, 0, 0, 0)
TPCrates.Size = UDim2.new(0.300000012, 0, 1, 0)
TPCrates.ZIndex = 2
TPCrates.Font = Enum.Font.SourceSans
TPCrates.FontSize = Enum.FontSize.Size14
TPCrates.Text = "TP Crates"
TPCrates.TextColor3 = Color3.new(1, 1, 1)
TPCrates.TextSize = 14
TPCrates.TextStrokeColor3 = Color3.new(1, 0.976471, 0.976471)
TPCrates.TextWrapped = true
TPCrates.TextYAlignment = Enum.TextYAlignment.Top

LoopTPCrates.Name = "LoopTPCrates"
LoopTPCrates.Parent = MainFrame
LoopTPCrates.BackgroundColor3 = Color3.new(0.196078, 0.196078, 0.196078)
LoopTPCrates.BackgroundTransparency = 1
LoopTPCrates.Position = UDim2.new(0.699999988, 0, 0, 0)
LoopTPCrates.Size = UDim2.new(0.300000012, 0, 1, 0)
LoopTPCrates.ZIndex = 2
LoopTPCrates.Font = Enum.Font.SourceSans
LoopTPCrates.FontSize = Enum.FontSize.Size14
LoopTPCrates.Text = "Loop TP Crates: OFF"
LoopTPCrates.TextColor3 = Color3.new(1, 1, 1)
LoopTPCrates.TextSize = 14
LoopTPCrates.TextWrapped = true
LoopTPCrates.TextYAlignment = Enum.TextYAlignment.Top

Deco_2.Name = "Deco"
Deco_2.Parent = MainFrame
Deco_2.BackgroundColor3 = Color3.new(1, 1, 1)
Deco_2.BackgroundTransparency = 1
Deco_2.Position = UDim2.new(0.349999994, 0, 0, 0)
Deco_2.Size = UDim2.new(0.300000012, 0, 1, 0)
Deco_2.Image = "rbxassetid://853410753"

Deco_3.Name = "Deco"
Deco_3.Parent = Deco_2
Deco_3.BackgroundColor3 = Color3.new(1, 1, 1)
Deco_3.BackgroundTransparency = 1
Deco_3.Size = UDim2.new(1, 0, 1, 0)
Deco_3.Image = "rbxassetid://29563831"

Deco_4.Name = "Deco"
Deco_4.Parent = MainFrame
Deco_4.BackgroundColor3 = Color3.new(1, 1, 1)
Deco_4.BackgroundTransparency = 1
Deco_4.Position = UDim2.new(0.699999988, 0, 0, 0)
Deco_4.Size = UDim2.new(0.300000012, 0, 1, 0)
Deco_4.Image = "rbxassetid://853410753"

Loop.Name = "Loop"
Loop.Parent = Deco_4
Loop.BackgroundColor3 = Color3.new(1, 1, 1)
Loop.BackgroundTransparency = 1
Loop.Size = UDim2.new(1, 0, 1, 0)
Loop.Image = "rbxassetid://169611736"
Loop.ImageColor3 = Color3.new(1, 0, 0)
Loop.ImageTransparency = 0.5


function CountBricks()
  local c = 0
	for i,v in pairs(workspace:GetChildren()) do
	for x in string.gmatch(v.Name, "Crate") do
		wait(0.2)
			c = c + 1
		end
		end
	return c
	end

tpcratez = false

spawn (function()
while true do
NumberOfBoxes.Text = CountBricks()
if tpcratez == true then
local children = game.Workspace:GetChildren()
for i =1, #children do
wait(0.1)
if children[i] ~= nil then
for x in string.gmatch(children[i].Name, "Crate") do
if children[i].ClassName == "Part" then
children[i].Anchored = true
children[i].CanCollide = false
children[i].CFrame = CFrame.new(game.Players.LocalPlayer.Character.Head.Position)
wait(0.3)
end
end
end
end
end
end
end)

TPCrates.MouseButton1Down:connect(function()
tpcratez = true
wait(0.1)
tpcratez = false
end)

LoopTPCrates.MouseButton1Down:connect(function()
if tpcratez == true then
LoopTPCrates.Text = "Loop TP Crates: OFF"
Loop.ImageColor3 = Color3.fromRGB(255,0,0)
tpcratez = false else
LoopTPCrates.Text = "Loop TP Crates: ON"
Loop.ImageColor3 = Color3.fromRGB(0,255,0)
tpcratez = true
end
end)