Why does my fading door debounce not work?

I'm trying to make it so my simple fading door script doesn't freak out when I try to make it fade away while its fading back in.

cd = script.Parent.ClickDetector
dr = workspace.DoorR
dl = workspace.DoorL
dl2 = workspace.DoorL2
dr2 = workspace.DoorR2
dl3 = workspace.DoorL3
dr3 = workspace.DoorR3

local fading = false

cd.MouseClick:Connect(function()
	dr.CanCollide = false
	dl.CanCollide = false
	dr2.CanCollide = false
	dl2.CanCollide = false
	dr3.CanCollide = false
	dl3.CanCollide = false
	

	
	if fading == false then
		fading = true
		for i = 1,20 do
			dr.Transparency = dr.Transparency + 0.05
			dl.Transparency = dr.Transparency + 0.05
			dr2.Transparency = dr.Transparency + 0.05
			dl2.Transparency = dr.Transparency + 0.05
			dr3.Transparency = dr.Transparency + 0.05
			dl3.Transparency = dr.Transparency + 0.05
			wait(0.05)
		end
	end
	fading = false
	
	wait(10)
	
	if fading == false then
		fading = true
		for i = 1,20 do
			dr.Transparency = dr.Transparency - 0.05
			dl.Transparency = dr.Transparency - 0.05
			dr2.Transparency = dr.Transparency - 0.01
			dl2.Transparency = dr.Transparency - 0.01
			dr3.Transparency = dr.Transparency - 0.01
			dl3.Transparency = dr.Transparency - 0.01
			wait(0.05)
		end
	end
	
	fading = false
	
	dr.CanCollide = true
	dl.CanCollide = true
	dr2.CanCollide = true
	dl2.CanCollide = true
	dr3.CanCollide = true
	dl3.CanCollide = true
end)

I know there is a better way to do this script with in pairs but I couldn't be bothered. Any help would be greatly appreciated!