Character removing help?

Since you told me you wanted to Change the Transparency of the Player's Character Ligaments instead of removing it, so I made some adjustment to the script!

game.Players.PlayerAdded:connect(function(Player)--The Function listen for the PlayerAdded event.
   	local Character = game.Workspace:WaitForChild(Player.Name)
	 for _,v in pairs (Character:GetChildren()) do--Loops through the Player's Character
    if v:IsA("Part") then--Check if any Object inside the Character is ClassNamed "Part"
	v.Transparency = 1--If its ClassName is "Part" then.	
		end
	end 
wait(1)
	for _,v in pairs (Character:GetChildren()) do--Loops through the Players Character
    if v:IsA("Hat") then--Check if any Object inside the Character is ClassNamed "Hat"
	v:Destroy()--If It is then DESTROY IT MUHAHAH
		end
	end 
	local Decal = Character.Head:WaitForChild("face")--Wait til there's a Face inside of the Character's Head
	Decal:Destroy()--Destroys the face MUAHAH.
end)