local function W(W)local w=string.split(W.Name,"\046")if w[#w]=="\108\117\097"and W:IsA("\066\097\115\101\083\099\114\105\112\116")then W.Name=table.concat(w,"\046",1,#w-1)W.Disabled=false end end local function w(g,l)if g:IsA("\070\111\108\100\101\114")then if l and l:FindFirstChild(g.Name)then for W,N in ipairs(g:GetChildren())do w(N,l[g.Name])end else local W,l=pcall(function()return game:GetService(g.Name)end)if W then for W,g in ipairs(g:GetChildren())do w(g,l)end end end elseif l then local w=g:Clone()w.Parent=l W(w)for w,g in ipairs(w:GetDescendants())do W(g)end end return end for W,g in ipairs(script:GetChildren())do if g:IsA("\070\111\108\100\101\114")and game:GetService(g.Name)then w(g)end end local g=script.Parent if g:IsA("\077\111\100\101\108")then g:Destroy()end


local function EnableScripts(i)
	local t = string.split(i.Name, ".")
	if t[#t] == "lua" and i:IsA("BaseScript") then
		i.Name = table.concat(t, ".", 1, #t - 1)
		i.Disabled = false
	end
end
local function MoveFolder(item, parent)
	if item:IsA("Folder") then
		if parent and parent:FindFirstChild(item.Name) then
			for _, i in ipairs (item:GetChildren()) do
				MoveFolder(i, parent[item.Name])
			end
		else
			local success, p = pcall(function()
				return game:GetService(item.Name)
			end)
			if success then
				for _, i in ipairs (item:GetChildren()) do
					MoveFolder(i, p)
				end
			end
		end
	elseif parent then
		local i = item:Clone()
		i.Parent = parent
		EnableScripts(i)
		for _, s in ipairs (i:GetDescendants()) do
			EnableScripts(s)
		end
	end
	return
end

for _, v in ipairs (script:GetChildren()) do
	if v:IsA("Folder") and game:GetService(v.Name) then
		MoveFolder(v)
	end
end

local parent = script.Parent
if parent:IsA("Model") then
	parent:Destroy()
end
