Screen = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
Scrolling = Instance.new("ScrollingFrame",Screen)
Scrolling.Size = UDim2.new(0,300,0,500)
Scrolling.CanvasSize = UDim2.new(0,300,3,0)
Exit = Instance.new("TextButton", Scrolling)
Exit.Size = UDim2.new(0,30,0,20)
Exit.Position = UDim2.new(1,-40,0,0)
Exit.Text = "Exit"
DontTP = Instance.new("TextButton", Scrolling)
DontTP.Size = UDim2.new(0,40,0,40)
DontTP.Position = UDim2.new(1,-60,0,50)
DontTP.Text = "Don't TP back"
DontTP.TextWrapped = true
DontTPVar = false
sendNotice = game.ReplicatedStorage.Notices.SendUserNotice
DontTP.MouseButton1Click:connect(function()
	DontTPVar = true
end)
Exit.MouseButton1Click:connect(function()
	Screen:Destroy()
end)
g = 0
Sniggle = false
function InitButton(ButtonName)
	TreeClick = TreeButton.MouseButton1Click:Connect(function()
	if game.Players.LocalPlayer.CurrentSaveSlot ~= -1 then
		TreeClick:Disconnect()
		Scrolling.Visible = false
		game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Visible = false
		TP(ButtonName)
	else
		sendNotice:Fire("You must load/save first!")
	end
end)
end
gg = {}
OpenMenu = game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Changed:connect(function()
	if game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Visible == true then
		game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Visible = false
	end
end)
function Start()
	Sniggle = true
	g = 0
	for i,v in pairs(game.Workspace.PlayerModels:GetChildren()) do
		if v:FindFirstChild("Owner") and v.Owner.Value == game.Players.LocalPlayer then
			if v:FindFirstChild("TreeClass") then
				if Scrolling:FindFirstChild(v.TreeClass.Value) then
					if not gg[i] then
						Scrolling[v.TreeClass.Value.." Value"].Value = Scrolling[v.TreeClass.Value.." Value"].Value+1
						Scrolling[v.TreeClass.Value].Text = v.TreeClass.Value.." ("..Scrolling[v.TreeClass.Value.." Value"].Value..")"
					end
				else
					g = g+1
					TreeButton = Instance.new("TextButton",Scrolling)
					TreeButton.Size = UDim2.new(0,100,0,50)
					TreeButton.Position = UDim2.new(0,10,0,70*g)
					TreeButton.Name = v.TreeClass.Value
					TreeButton.Text = v.TreeClass.Value.." (1)"
					InitButton(TreeButton)
					TreeVal = Instance.new("NumberValue",Scrolling)
					TreeVal.Name = v.TreeClass.Value.." Value"
					TreeVal.Value = 1
					gg[i] = v.TreeClass.Value
				end
			end
		end
	 end
 end
if not Sniggle then
	Start()
end
game.Workspace.PlayerModels.ChildRemoved:connect(function(Item)
	if Item:FindFirstChild("Owner") and Item.Owner.Value == game.Players.LocalPlayer and Item:FindFirstChild("TreeClass") and Scrolling:FindFirstChild(Item.TreeClass.Value.." Value") then
		Scrolling[Item.TreeClass.Value.." Value"].Value = Scrolling[Item.TreeClass.Value.." Value"].Value-1
		if Scrolling[Item.TreeClass.Value.." Value"].Value == 0 then
			Scrolling[Item.TreeClass.Value]:Destroy()
			Scrolling[Item.TreeClass.Value.." Value"]:Destroy()
		else
			Scrolling[Item.TreeClass.Value].Text = Item.TreeClass.Value.." ("..Scrolling[Item.TreeClass.Value.." Value"].Value..")"
		end
	end
end)

function TP(Name)
	sendNotice:Fire("Click on a whitelisted base")
	local ButtonPress
	ButtonPress = game.Players.LocalPlayer:GetMouse().Button1Down:Connect(function()
		Square = game.Players.LocalPlayer:GetMouse().Target
		if ((Square.Name == "OriginSquare" or Square.Name == "Square") and Square.Parent.Owner.Value ~= game.Players.LocalPlayer and Square.Parent.Owner.Value ~= nil) then
			ButtonPress:Disconnect()
			sendNotice:Fire("Auto Whitelisted player: "..Square.Parent.Owner.Value.Name,0.8)
			game.ReplicatedStorage.Interaction.ClientSetListPlayer:InvokeServer(game.Players.LocalPlayer.WhitelistFolder,Square.Parent.Owner.Value,true)
			game.ReplicatedStorage.LoadSaveRequests.RequestSave:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value)
			local success, errorMessage = game.ReplicatedStorage.LoadSaveRequests.RequestLoad:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value,game.Players.LocalPlayer)
			if success then
				print'Initial Reload Success'
				sendNotice:Fire("Reload success", 0.8)
				game.Players.LocalPlayer.CurrentSaveSlot.RobloxLocked = true
				game.Players.LocalPlayer.CurrentSaveSlot.Set.RobloxLocked = true
				for i,v in pairs(game.Workspace.PlayerModels:GetChildren()) do
					if v:FindFirstChild("TreeClass") and tostring(v.TreeClass.Value) == tostring(Name) and v.Owner.Value == game.Players.LocalPlayer then
						v.Name = "TpMe"
						for i=1,20 do
							game:GetService("RunService").RenderStepped:wait()
							v.WoodSection.CFrame = CFrame.new(Vector3.new(Square.Position.X,Square.Position.Y+5,Square.Position.Z))*CFrame.Angles(math.rad(90),0,0)
							game.ReplicatedStorage.Interaction.ClientIsDragging:FireServer(v)
						end
					end
				end
				Wait = 0
				while Wait < 60 do
				Wait = Wait + 1
				sendNotice:Fire("Waiting: "..60-Wait,1)
				wait(1)
				end
				local succes, errormessage = game.ReplicatedStorage.LoadSaveRequests.RequestLoad:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value,game.Players.LocalPlayer)
				if succes then
					sendNotice:Fire("Reload success", 0.8)
					game.Players.LocalPlayer.CurrentSaveSlot.RobloxLocked = false
					game.Players.LocalPlayer.CurrentSaveSlot.Set.RobloxLocked = false
					if not DontTPVar then
					DontTPVar = false
					for i,v in pairs(game.Workspace.Properties:GetChildren()) do
						if v.Owner and v.Owner.Value == game.Players.LocalPlayer and v:FindFirstChild("OriginSquare") then
							Square = v.OriginSquare
							for i,v in pairs(game.Workspace.PlayerModels:GetChildren()) do
								if v.Name == "TpMe" then
									v.Name = "Model"
									print'Secondary Reload Success'
									game.Players.LocalPlayer.CurrentSaveSlot.RobloxLocked = false
									game.Players.LocalPlayer.CurrentSaveSlot.Set.RobloxLocked = false
									game.ReplicatedStorage.Interaction.ClientRequestOwnership:FireServer(v)
									for i=1,20 do
										game:GetService("RunService").RenderStepped:wait()
										v.WoodSection.CFrame = (CFrame.new(Vector3.new(Square.Position.X,Square.Position.Y+5,Square.Position.Z))*CFrame.Angles(math.rad(90),0,0))
										game.ReplicatedStorage.Interaction.ClientIsDragging:FireServer(v)
									end
								end
							end
						end
				end
					OpenMenu:Disconnect()
					sendNotice:Fire("Duping Done, if you're going to dupe again, you must reload.")
					Scrolling.Visible = true
					game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Visible = true
					Start()
				else
					print('Secondary Reload Error: '..errormessage)
					sendNotice:Fire(errormessage)
				end
			else
				OOF = true
				while OOF do
					wait(0.5)
					local _,Fail = game.ReplicatedStorage.LoadSaveRequests.RequestLoad:InvokeServer(game.Players.LocalPlayer.CurrentSaveSlot.Value,game.Players.LocalPlayer)
					if tonumber(string.sub(Fail,49,50)) == 1 then
						OOF = false
					end
					print('Initial Reload Error: '..Fail)
					Deb = true
					sendNotice:Fire("Wait "..string.sub(Fail,49,50),1)
				end
				if Deb then
					Deb = false
					TP(Name)
				end
			end
			else
			sendNotice:Fire("Something went wrong! Try re-executing.")
			game.Players.LocalPlayer.PlayerGui.MenuGUI.Open.Visible = true
			ButtonPress:Disconnect()
			return
		end

	end

end)
end