Boxes

local service = setmetatable({}, {__index = function(t, k) return game:GetService(k) end })

local BoxScreen = Instance.new("ScreenGui")
local PurchasedFrame = Instance.new("Frame")
local LastPurchasedList = Instance.new("ScrollingFrame")
local TpAllBoxes = Instance.new("TextButton")

--Properties:

BoxScreen.Name = "BoxScreen"
BoxScreen.Parent = game.CoreGui.LT2.MainFrame.ButtonFrame.TpBoxes

PurchasedFrame.Name = "PurchasedFrame"
PurchasedFrame.Parent = BoxScreen
PurchasedFrame.BackgroundColor3 = Color3.new(0.145098, 0.145098, 0.14902)
PurchasedFrame.BorderColor3 = Color3.new(0, 0, 0)
PurchasedFrame.BorderSizePixel = 2
PurchasedFrame.Position = UDim2.new(0, -98, 0, -285)
PurchasedFrame.Size = UDim2.new(0, 363, 0, 280)

LastPurchasedList.Name = "LastPurchasedList"
LastPurchasedList.Parent = PurchasedFrame
LastPurchasedList.BackgroundColor3 = Color3.new(0.145098, 0.145098, 0.14902)
LastPurchasedList.BorderColor3 = Color3.new(0, 0, 0)
LastPurchasedList.BorderSizePixel = 2
LastPurchasedList.Size = UDim2.new(1, 0, 0, 230)
LastPurchasedList.BottomImage = "rbxassetid://158362069"
LastPurchasedList.MidImage = "rbxassetid://158362107"
LastPurchasedList.TopImage = "rbxassetid://158362148"

TpAllBoxes.Name = "TpAllBoxes"
TpAllBoxes.Parent = PurchasedFrame
TpAllBoxes.BackgroundColor3 = Color3.new(0.054902, 0.054902, 0.0588235)
TpAllBoxes.BorderColor3 = Color3.new(0, 0, 0)
TpAllBoxes.BorderSizePixel = 2
TpAllBoxes.Position = UDim2.new(0, 50, 0, 245)
TpAllBoxes.Size = UDim2.new(0, 250, 0, 20)
TpAllBoxes.Font = Enum.Font.Gotham
TpAllBoxes.Text = "Teleport Purchased Boxes"
TpAllBoxes.TextColor3 = Color3.new(1, 1, 1)
TpAllBoxes.TextSize = 14

function Create(cls,props)
	local inst = Instance.new(cls)
	for i,v in pairs(props) do
		inst[i] = v
	end
	return inst
end
local MoneyCooldown = false
local CurrentSlot = game.Players.LocalPlayer:WaitForChild("CurrentSaveSlot").Value
local ScriptLoadOrSave = false
local CurrentlySavingOrLoading = game.Players.LocalPlayer:WaitForChild("CurrentlySavingOrLoading")
local TreeLogs={}
local WoodPlanks={}
local Render = service.RunService.RenderStepped
local UserInputService = game:GetService("UserInputService")
local shiftKeyL = Enum.KeyCode.LeftShift
local Replicated = service.ReplicatedStorage
local Client = Replicated.Interaction.ClientSetListPlayer
local Dragging = Replicated.Interaction.ClientIsDragging
local Properties = service.Workspace.Properties
local Players = service.Players
local PlayerModels = service.Workspace.PlayerModels
local Player = Players.LocalPlayer
local Char = Player.Character
local Hum = Char.Humanoid
local Root = Char.HumanoidRootPart
local Mouse = Player:GetMouse()
local Noclipper = false
local Open = true
local throwAxe = false
local misc = false
local player = false
local slot = false
local box = false
local log = false
local plank = false
local players = false
local wp = false
local other = false

local inc = 0
PlayerModels.ChildAdded:Connect(function(Item)
	inc = #LastPurchasedList:GetChildren()
	if Item:FindFirstChild("Owner") and Item.Owner.Value == Player then
		LastPurchasedList.CanvasSize=UDim2.new(0,0,0,25*inc)
		local SellButton=Create("TextButton",{Parent=LastPurchasedList,Size=UDim2.new(1,-9,0,20),Position=UDim2.new(0,5,0,25*inc),Text=" "..Item.Name,Name=Item.Name,TextXAlignment="Left",ZIndex=3,BorderSizePixel=0})
		SellButton.MouseButton1Click:Connect(function()
			if Item:IsA("Model") then
				Item:MoveTo(Root.Position)
				for i = 1,100 do
					Dragging:FireServer(Item)
				end
			end
		end)
		inc = inc + 1
	end
end)

PlayerModels.ChildRemoved:Connect(function(Item)
	inc = 0
	if Item:FindFirstChild("Owner") and Item.Owner.Value == Player then
		if LastPurchasedList:FindFirstChild(Item.Name) then
			LastPurchasedList:FindFirstChild(Item.Name):Destroy()
			for i,v in pairs(LastPurchasedList:GetChildren()) do
				v.Position = UDim2.new(0,5,0,25*(i-1))
			end
		end
	end
end)

--- Tp Boxes ---

TpBoxes.MouseButton1Down:connect(function()
	for i,v in pairs(PlayerModels:GetChildren()) do
		if v:IsA("Model") then
			if v:FindFirstChild("PurchasedBoxItemName") then
				if v.Type.Value == "Structure" or v.Type.Value == "Wire" or v.Type.Value == "Hatch" then
					if v.Owner.OwnerString.Value == Player.Name then
						v.Main.CFrame = service.Workspace:FindFirstChild(Player.Name).Torso.CFrame
					end
				end
			end
		end
	end
end)