ROBLOX Steal Places Script (STEP 1)

-- 2/11/2019: by Konethorix on ROBLOX --
-- 164 is the average length of a brick's infos --
local gui = Instance.new('ScreenGui')
gui.Name = 'place stealer gui'
local scroll = Instance.new('ScrollingFrame')
scroll.Size = UDim2.new(0.8,0,0.8,0)
scroll.Position = UDim2.new(0.1,0,0.1,0)
scroll.BackgroundColor3 = Color3.new(0,0,0)
scroll.BackgroundTransparency = 0.5
scroll.ScrollingDirection = Enum.ScrollingDirection.X
scroll.CanvasSize = UDim2.new(0,20000,0,0)
scroll.Parent = gui
local listlayout = Instance.new('UIListLayout')
listlayout.FillDirection = Enum.FillDirection.Horizontal
listlayout.Parent = scroll



local boxes = {}
local boxnum = 1

function makebox()
	local boz = Instance.new('TextBox')
	boz.Size = UDim2.new(0,250,1,-12)
	boz.PlaceholderText = "output goes here"
	boz.BackgroundColor3 = Color3.new(1,1,1)
	--boz.TextWrapped = true
	boz.TextSize = 12
	boz.ClearTextOnFocus = false
	boz.Text = ''
	boz.Parent = scroll
	boxes[boxnum] = boz
	local page = Instance.new('TextLabel')
	page.BackgroundColor3 = Color3.new(0,0,0)
	page.BackgroundTransparency = 0.5
	page.TextScaled = true
	page.Size = UDim2.new(0,40,0,40)
	page.Position = UDim2.new(0,0,1,-40-6)
	page.Text = boxnum
	page.Parent = boz
	return boz
end

local services = {"Workspace", "Lighting", "ReplicatedStorage"}

for i,serv in pairs(services) do
	for i,p in pairs(game:GetService(serv):GetDescendants()) do
		local boz
		if boxes[boxnum] == nil then
			boz = makebox()
		elseif #boxes[boxnum].Text + 384 > 128^2 then -- check if current box is full
			boxnum = boxnum + 1
			boz = makebox() -- set the boz var to the new box
		else
			boz = boxes[boxnum] -- set the boz var to the existing box
		end


		function cout(str) -- lmao
			boz.Text = boz.Text .. str
		end

		if p:IsA("BasePart") and not p:IsA("Terrain") then
			cout('{\n')
			cout(p.ClassName..'\n')
			cout(p.Name ..'\n')

			cout(tostring(p.BrickColor.Color) ..'\n')
			cout(string.sub(tostring(p.Material), 15) ..'\n') -- remove the Enum.Material.
			cout(tostring(p.Reflectance) .. '\n')
			cout(tostring(p.Transparency) .. '\n')

			--[[cout(tostring(p.Orientation) .. '\n')
			cout(tostring(p.Position) .. '\n')
			cout(tostring(p.RotVelocity) .. '\n')
			cout(tostring(p.Velocity) .. '\n')]]
			cout(tostring(p.CFrame) .. '\n') -- 3/11: cframe best boi

			cout(tostring(p.Anchored) .. '\n')
			--cout(tostring(p.Archivable) .. '\n')
			cout(tostring(p.CanCollide) .. '\n')
			--cout(tostring(p.Locked) .. '\n')

			if p:IsA("Part") then -- only normal parts have the shape property
				cout(string.sub(tostring(p.Shape), 15) .. '\n') -- remove the Enum.PartType.
			end
			cout(tostring(p.Size) .. '\n')

			--[[cout(tostring(p.BackSurface) .. '\n')
			cout(tostring(p.BottomSurface) .. '\n')
			cout(tostring(p.FrontSurface) .. '\n')
			cout(tostring(p.LeftSurface) .. '\n')
			cout(tostring(p.RightSurface) .. '\n')
			cout(tostring(p.TopSurface) .. '\n')]]



			-- 3/11/2019 --
			local mesh
			if p:FindFirstChildWhichIsA("BlockMesh") then
				mesh = p:FindFirstChildWhichIsA("BlockMesh")
			elseif p:FindFirstChildWhichIsA("CylinderMesh") then
				mesh = p:FindFirstChildWhichIsA("CylinderMesh")
			elseif p:FindFirstChildWhichIsA("SpecialMesh") then
				mesh = p:FindFirstChildWhichIsA("SpecialMesh")
			end
			if mesh ~= nil then
				cout('[\n')
				cout(mesh.ClassName .. '\n')
				cout(mesh.Name .. '\n')
				if mesh:IsA("SpecialMesh") then
					cout(string.sub(tostring(mesh.MeshType), 15) .. '\n') -- remove the Enum.MeshType.
					if mesh.MeshType == Enum.MeshType.FileMesh then
						cout(mesh.MeshId .. '\n')
						cout(mesh.TextureId .. '\n')
					end
				end
				cout(tostring(mesh.Scale) .. '\n')
				--cout(tostring(mesh.VertexColor) .. '\n')
				cout(']\n')
			end




			cout('}\n')

		end
	end
end

gui.Parent = game:GetService('Players').LocalPlayer:WaitForChild('PlayerGui')