--execute this in the command bar

function search(root)
	for i,v in pairs(root:GetChildren()) do
		ypcall(function()
			if v:IsA("Script") or v:IsA("ModuleScript") then
				ypcall(function()
					local count = 1
					while v:FindFirstChild("Source"..tostring(count)) do
						v.Source = v.Source .. v["Source"..tostring(count)].Value
						v["Source"..tostring(count)]:Destroy()
						count = count + 1
					end
				end)
			end
			search(v)
		end)
	end
end

search(game)
print("Scripts done")
