[Hat Positions] Module Script?

Setting Hats Position Via Script Here is what this script does. You input a CharacterModel, and it returns it as a script, All I need is it to return the Hat's Positions. :D Starts on line 28

local module = {}
hatNum = 0
shirtNum = 0
pantNum = 0
module.Character = function(character)
	print("-- Loading Character: " .. character.Name)
	wait(3)
	print("-------------------------------------")
	print("change." .. character.Name .. "= function(player)")
	print("	char = player.Character")
	print("char.Archivable = true")
	print("-- Clothes Removal")
	print("wait(.1)")
	print("for _,i in ipairs(char:GetChildren()) do")
	print("if i.ClassName == 'ShirtGraphic' or i.ClassName == 'Shirt' or i.ClassName == 'Hat' or i.ClassName == 'Pants' then")
	print("		i:remove()")
	print("	end")
	print("end")
	print("wait(1)")
	for i,v in pairs(character:GetChildren()) do
		if v:IsA("Hat") then
			 hatNum = hatNum +1
			print("hat" .. hatNum .. " = Instance.new('Hat', player.Character)")
			print("handle = Instance.new('Part')")
			print("handle.Name = 'Handle'")
			print("mesh = Instance.new('SpecialMesh')")
			print("mesh.TextureId = " .. "'" .. v.Handle.Mesh.TextureId .. "'")
			print("hat" .. hatNum .. ".AttachmentForward = Vector3.new(" .. v.Hat.AttachmentForward .. ")") -- THESE LINES NEED FIXING
			print("hat" .. hatNum .. ".AttachmentPos = Vector3.new(" .. v.Hat.AttachmentPos .. ")") -- THESE LINES NEED FIXING
			print("hat" .. hatNum .. ".AttachmentRight = Vector3.new(" .. v.Hat.AttachmentRight .. ")")-- THESE LINES NEED FIXING
			print("hat" .. hatNum .. ".AttachmentUp = Vector3.new(" .. v.Hat.AttachmentUp .. ")")-- THESE LINES NEED FIXING
			print("hat" .. hatNum .. ".Archivable = true")		
			print("mesh.MeshId = " .. "'" .. "'" .. v.Handle.Mesh.MeshId .. "'" )
			print("mesh.Parent = handle")
			print("handle.Parent = hat" .. hatNum)
		elseif v:IsA("Shirt") then
			shirtNum = shirtNum +1
			print("shirt" .. shirtNum .. "= Instance.new('Shirt', player.Character)")
			print("shirt" .. shirtNum .. ".ShirtTemplate = " .. "'" .. v.ShirtTemplate .. "'")
		elseif v:IsA("Pants") then
			pantNum = pantNum +1
			print("pants" .. pantNum .. "= Instance.new('Pants', player.Character)")
			print("pants" .. pantNum .. ".PantsTemplate = '" .. v.PantsTemplate .. "'")
		end
	end
	if character.Head:FindFirstChild("face") then
	print("character.Head.face.Texture = '" .. character.Head.face.Texture .. "'")
	elseif character.Head:FindFirstChild("Decal") then
		print("character.Head.face.Texture = '" .. character.Head.Decal.Texture .. "'")
	elseif character.Head:FindFirstChild("Face") then
		print("character.Head.face.Texture = '" .. character.Head.Face.Texture .. "'")
	end
	print("end")
end
return module