Why is my Transparency Script not working properly?

I have been trying to create a simple tool where if you equip it, certain parts go invisible, these parts are called "Part1" of a morph.

Here is my script:

local arm1 = script.Parent.Parent.Parent:GetChildren("Arm1")

local tool = script.Parent

function equipped()
    for i=1, arm1 do
        local part = arm1[i]

        if part.Name == "Part1" then
            part.Transparency = 1
        else
                part.Transparency = 0
        end
    end
end
function unequipped()

end
tool.Equipped:connect(equipped)
tool.UnEquipped:connect(unequipped)