remove the hats on the player when joined and Have on the Hat that is in the script?

The Script Works Perfect The Only Problem Is that it spawns the player hats and the hat that I inserted in script. How will i be able to add a hat remover to this script and make it not remove the hat in the script?

function onChildAdded(child)
	local result = Scan(child)
	if result then
		wait(1)
		local list = script:GetChildren()
		for i = 1,#list do
			local copy = list[i]:clone()
			if (copy:IsA("Script")) then
				copy.Parent = child
				copy.Disabled = false
			elseif (copy:IsA("Part")) then
				if (copy.Name == "Hair") or (copy.Name == "Hat") then
					local head = child:findFirstChild("Head")
					if (head ~= nil) and (head:IsA("BasePart")) then
						local hatscan = child:GetChildren()
						for i = 1,#hatscan do
							local obj = hatscan[i]
							if (obj:IsA("Hat")) then
								obj:remove()
							end
						end
						copy.Parent = child
						local weld = Instance.new("Weld",copy)
						weld.Part0 = copy
						weld.Part1 = head
						weld.C1 = CFrame.new(copy.CFrameOffset.Value.x,copy.CFrameOffset.Value.y,copy.CFrameOffset.Value.z)
					end
				end
			elseif (copy:IsA("Shirt")) then
				local oldshirt = child:findFirstChild("Shirt")
				if (oldshirt ~= nil) then
					oldshirt:remove()
				end
				copy.Parent = child
			elseif (copy:IsA("Pants")) then
				local oldpants = child:findFirstChild("Pants")
				if (oldpants ~= nil) then
					oldpants:remove()
				end
				copy.Parent = child
			elseif (copy:IsA("Decal")) then
				if (copy.Name == "face") then
					local head = child:findFirstChild("Head")
					if (head ~= nil) and (head:IsA("BasePart")) then
						head.face:remove()
						copy.Parent = head
					end
				elseif (copy.Name == "roblox") then
					local torso = child:findFirstChild("Torso")
					if (torso ~= nil) and (torso:IsA("BasePart")) then
						torso.roblox:remove()
						copy.Parent = torso
					end
				end
			elseif (copy:IsA("BodyColors")) then
				local colors = child:findFirstChild("Body Colors")
				if (colors ~= nil) then
					colors:remove()
				end
				copy.Parent = child
			end
		end
	end
end

function Scan(it)
local IsACharacter = false
local list = game.Players:GetChildren()
for i = 1,#list do
if (it == list[i].Character) then
IsACharacter = true
end
end
return IsACharacter
end

workspace.ChildAdded:connect(onChildAdded)