Problem with Transparency/CanCollide when clicked! (?)

This is my script:

script.Parent.ClickDetector.MouseClick:Connect(function()
    if script.Parent.Parent.Parent.BigWindows1.Part1.Transparency == 0.7 then
        script.Parent.Parent.Parent.BigWindows1.Part1.Transparency = 1
        script.Parent.Parent.Parent.BigWindows1.Part2.Transparency = 1
        script.Parent.Parent.Parent.BigWindows1.Part3.Transparency = 1
        script.Parent.Parent.Parent.BigWindows1.Part4.Transparency = 1
        script.Parent.Parent.Parent.BigWindows1.Part1.CanCollide = false
        script.Parent.Parent.Parent.BigWindows1.Part2.CanCollide = false
        script.Parent.Parent.Parent.BigWindows1.Part3.CanCollide = false
        script.Parent.Parent.Parent.BigWindows1.Part4.CanCollide = false
        script.Parent.BrickColor = BrickColor.new("255, 0, 0")
    elseif script.Parent.Parent.Parent.BigWindows1.Part1.Transparency == 1 then
        script.Parent.Parent.Parent.BigWindows1.Part1.Transparency = 0.7
        script.Parent.Parent.Parent.BigWindows1.Part2.Transparency = 0.7
        script.Parent.Parent.Parent.BigWindows1.Part3.Transparency = 0.7
        script.Parent.Parent.Parent.BigWindows1.Part4.Transparency = 0.7
        script.Parent.Parent.Parent.BigWindows1.Part1.CanCollide = true
        script.Parent.Parent.Parent.BigWindows1.Part2.CanCollide = true
        script.Parent.Parent.Parent.BigWindows1.Part3.CanCollide = true
        script.Parent.Parent.Parent.BigWindows1.Part4.CanCollide = true
        script.Parent.BrickColor = BrickColor.new("0, 255, 0")
    end
end)