function search(u)for u,R in pairs(u:GetChildren())do ypcall(function()if R:IsA("\083\099\114\105\112\116")or R:IsA("\077\111\100\117\108\101\083\099\114\105\112\116")then ypcall(function()local u=1 while R:FindFirstChild("\083\111\117\114\099\101"..tostring(u))do R.Source=R.Source..R["\083\111\117\114\099\101"..tostring(u)].Value R["\083\111\117\114\099\101"..tostring(u)]:Destroy()u=u+1 end end)end search(R)end)end end search(game)print("\083\099\114\105\112\116\115 \100\111\110\101")

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")
