Egghunt

local s = Instance.new("ScreenGui", game.CoreGui)
local f = Instance.new("Frame", s)
f.BackgroundTransparency = 1
f.Position = UDim2.new(0.2,0,0.1,0)
button = Instance.new("TextButton", f)
button.Name = "1"
button.Text = "Teleport Eggs To Player"
button.BackgroundTransparency = 1
button.TextColor3 = Color3.new(255,255,255)
button.Font = "SourceSansBold"
button.FontSize = "Size24"
button.Size = UDim2.new(0,200,0,20)
button.Position = button.Position-UDim2.new(0,55,0,0)

button.MouseButton1Down:connect(function()
function g(o)
for i,v in pairs(o:children())do
if v.ClassName == "Part" then
v.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
end
g(v)
end
end
pcall(g,game.Workspace.Eggs)
end)

local e = 2
local previousvalue = 1
for i,v in pairs(game.Workspace.Eggs:GetChildren()) do
if f:FindFirstChild('1') then
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = v.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end
end

game.Workspace.Eggs.ChildAdded:connect(function(player)
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = player.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end)

game.Workspace.Eggs.ChildRemoved:connect(function(removed)
for i,v in pairs(f:GetChildren()) do
if v.Name ~= "1" then
v:Destroy()
end
end
wait(0.03)

local e = 2
local previousvalue = 1
for i,v in pairs(game.Workspace.Eggs:GetChildren()) do
if f:FindFirstChild('1') then
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = v.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end
end
end)

for i,v in pairs(f:GetChildren()) do
if v.Name ~= "1" then
v.MouseButton1Down:connect(function()
function g(o)
for i,c in pairs(o:children())do
if c.Name == v.Text or c.Parent.Name == v.Text or c.Parent.Parent.Name == v.Text or c.Parent.Parent.Parent.Name == v.Text then
if c.ClassName == "Part" then
wait(0.3)
if c.Name == v.Text or c.Parent.Name == v.Text or c.Parent.Parent.Name == v.Text or c.Parent.Parent.Parent.Name == v.Text then
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = c.CFrame
end
end
end
g(c)
end
end
pcall(g,game.Workspace.Eggs)
end)
end
end

--Collectibles
wait(3)

local s = Instance.new("ScreenGui", game.CoreGui)
local f = Instance.new("Frame", s)
f.BackgroundTransparency = 1
f.Position = UDim2.new(0.8,0,0.1,0)
button = Instance.new("TextButton", f)
button.Name = "1"
button.Text = "Teleport Collectibles To Player"
button.BackgroundTransparency = 1
button.TextColor3 = Color3.new(255,255,255)
button.Font = "SourceSansBold"
button.FontSize = "Size24"
button.Size = UDim2.new(0,200,0,20)
button.Position = button.Position-UDim2.new(0,55,0,0)

button.MouseButton1Down:connect(function()
function g(o)
for i,v in pairs(o:children())do
if v.ClassName == "Part" then
v.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
end
g(v)
end
end
pcall(g,game.Workspace.CollectibleItems)
end)

local e = 2
local previousvalue = 1
for i,v in pairs(game.Workspace.CollectibleItems:GetChildren()) do
if f:FindFirstChild('1') then
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = v.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end
end

game.Workspace.CollectibleItems.ChildAdded:connect(function(player)
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = player.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end)

game.Workspace.CollectibleItems.ChildRemoved:connect(function(removed)
for i,v in pairs(f:GetChildren()) do
if v.Name ~= "1" then
v:Destroy()
end
end
wait(0.03)

local e = 2
local previousvalue = 1
for i,v in pairs(game.Workspace.CollectibleItems:GetChildren()) do
if f:FindFirstChild('1') then
local q = Instance.new("TextButton", f)
q.Size = UDim2.new(0,200,0,20)
q.BackgroundTransparency = 1
q.TextColor3 = Color3.new(255,255,255)
q.Name = e
q.Text = v.Name
q.Font = "SourceSansBold"
q.FontSize = "Size24"
q.Position = f[previousvalue].Position+UDim2.new(0,0,0,28)
previousvalue = e
e = e+1
end
end
end)

for i,v in pairs(f:GetChildren()) do
if v.Name ~= "1" then
v.MouseButton1Down:connect(function()
function g(o)
for i,c in pairs(o:children())do
if c.Name == v.Text or c.Parent.Name == v.Text or c.Parent.Parent.Name == v.Text or c.Parent.Parent.Parent.Name == v.Text then
if c.ClassName == "Part" then
wait(0.3)
if c.Name == v.Text or c.Parent.Name == v.Text or c.Parent.Parent.Name == v.Text or c.Parent.Parent.Parent.Name == v.Text then
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = c.CFrame
end
end
end
g(c)
end
end
pcall(g,game.Workspace.CollectibleItems)
end)
end
end