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)