function DoorClose()if Shaft00.MetalDoor.CanCollide==false then Shaft00.MetalDoor.CanCollide=true while Shaft00.MetalDoor.Transparency>.0 do Shaft00.MetalDoor.Transparency=Shaft00.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft01.MetalDoor.CanCollide==false then Shaft01.MetalDoor.CanCollide=true while Shaft01.MetalDoor.Transparency>.0 do Shaft01.MetalDoor.Transparency=Shaft01.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft02.MetalDoor.CanCollide==false then Shaft02.MetalDoor.CanCollide=true while Shaft02.MetalDoor.Transparency>.0 do Shaft02.MetalDoor.Transparency=Shaft02.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft03.MetalDoor.CanCollide==false then Shaft03.MetalDoor.CanCollide=true while Shaft03.MetalDoor.Transparency>.0 do Shaft03.MetalDoor.Transparency=Shaft03.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft04.MetalDoor.CanCollide==false then Shaft04.MetalDoor.CanCollide=true while Shaft04.MetalDoor.Transparency>.0 do Shaft04.MetalDoor.Transparency=Shaft04.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft05.MetalDoor.CanCollide==false then Shaft05.MetalDoor.CanCollide=true while Shaft05.MetalDoor.Transparency>.0 do Shaft05.MetalDoor.Transparency=Shaft05.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft06.MetalDoor.CanCollide==false then Shaft06.MetalDoor.CanCollide=true while Shaft06.MetalDoor.Transparency>.0 do Shaft06.MetalDoor.Transparency=Shaft06.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft07.MetalDoor.CanCollide==false then Shaft07.MetalDoor.CanCollide=true while Shaft07.MetalDoor.Transparency>.0 do Shaft07.MetalDoor.Transparency=Shaft07.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft08.MetalDoor.CanCollide==false then Shaft08.MetalDoor.CanCollide=true while Shaft08.MetalDoor.Transparency>.0 do Shaft08.MetalDoor.Transparency=Shaft08.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft09.MetalDoor.CanCollide==false then Shaft09.MetalDoor.CanCollide=true while Shaft09.MetalDoor.Transparency>.0 do Shaft09.MetalDoor.Transparency=Shaft09.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft10.MetalDoor.CanCollide==false then Shaft10.MetalDoor.CanCollide=true while Shaft10.MetalDoor.Transparency>.0 do Shaft10.MetalDoor.Transparency=Shaft10.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft11.MetalDoor.CanCollide==false then Shaft11.MetalDoor.CanCollide=true while Shaft11.MetalDoor.Transparency>.0 do Shaft11.MetalDoor.Transparency=Shaft11.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft12.MetalDoor.CanCollide==false then Shaft12.MetalDoor.CanCollide=true while Shaft12.MetalDoor.Transparency>.0 do Shaft12.MetalDoor.Transparency=Shaft12.MetalDoor.Transparency-.1 wait(1e-06)end end if Shaft13.MetalDoor.CanCollide==false then Shaft13.MetalDoor.CanCollide=true while Shaft13.MetalDoor.Transparency>.0 do Shaft13.MetalDoor.Transparency=Shaft13.MetalDoor.Transparency-.1 wait(1e-06)end end end function onClicked()DoorClose()Car.BodyVelocity.velocity=Vector3.new(0,20,0)end script.Parent.MouseButton1Click:connect(onClicked)script.Parent.MouseButton1Click:connect(function()if clicker==true then clicker=false else return end end)Car.Touched:connect(function(L)if L==Elevator.Floors.F14 then StopE()DoorOpen()end end)function StopE()Car.BodyVelocity.velocity=Vector3.new(0,0,0)Car.BodyPosition.position=Elevator.Floors.F14.Position clicker=true end function DoorOpen()while Shaft13.MetalDoor.Transparency<1.0 do Shaft13.MetalDoor.Transparency=Shaft13.MetalDoor.Transparency+.1 wait(1e-06)end Shaft13.MetalDoor.CanCollide=false end
-------------------------
function DoorClose()
	if Shaft00.MetalDoor.CanCollide == false then
		Shaft00.MetalDoor.CanCollide = true
		while Shaft00.MetalDoor.Transparency > 0.0 do
			Shaft00.MetalDoor.Transparency = Shaft00.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft01.MetalDoor.CanCollide == false then
		Shaft01.MetalDoor.CanCollide = true
		while Shaft01.MetalDoor.Transparency > 0.0 do
			Shaft01.MetalDoor.Transparency = Shaft01.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft02.MetalDoor.CanCollide == false then
		Shaft02.MetalDoor.CanCollide = true
		while Shaft02.MetalDoor.Transparency > 0.0 do
			Shaft02.MetalDoor.Transparency = Shaft02.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft03.MetalDoor.CanCollide == false then
		Shaft03.MetalDoor.CanCollide = true
		while Shaft03.MetalDoor.Transparency > 0.0 do
			Shaft03.MetalDoor.Transparency = Shaft03.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft04.MetalDoor.CanCollide == false then
		Shaft04.MetalDoor.CanCollide = true
		while Shaft04.MetalDoor.Transparency > 0.0 do
			Shaft04.MetalDoor.Transparency = Shaft04.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft05.MetalDoor.CanCollide == false then
		Shaft05.MetalDoor.CanCollide = true
		while Shaft05.MetalDoor.Transparency > 0.0 do
			Shaft05.MetalDoor.Transparency = Shaft05.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft06.MetalDoor.CanCollide == false then
		Shaft06.MetalDoor.CanCollide = true
		while Shaft06.MetalDoor.Transparency > 0.0 do
			Shaft06.MetalDoor.Transparency = Shaft06.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft07.MetalDoor.CanCollide == false then
		Shaft07.MetalDoor.CanCollide = true
		while Shaft07.MetalDoor.Transparency > 0.0 do
			Shaft07.MetalDoor.Transparency = Shaft07.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft08.MetalDoor.CanCollide == false then
		Shaft08.MetalDoor.CanCollide = true
		while Shaft08.MetalDoor.Transparency > 0.0 do
			Shaft08.MetalDoor.Transparency = Shaft08.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft09.MetalDoor.CanCollide == false then
		Shaft09.MetalDoor.CanCollide = true
		while Shaft09.MetalDoor.Transparency > 0.0 do
			Shaft09.MetalDoor.Transparency = Shaft09.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft10.MetalDoor.CanCollide == false then
		Shaft10.MetalDoor.CanCollide = true
		while Shaft10.MetalDoor.Transparency > 0.0 do
			Shaft10.MetalDoor.Transparency = Shaft10.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft11.MetalDoor.CanCollide == false then
		Shaft11.MetalDoor.CanCollide = true
		while Shaft11.MetalDoor.Transparency > 0.0 do
			Shaft11.MetalDoor.Transparency = Shaft11.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft12.MetalDoor.CanCollide == false then
		Shaft12.MetalDoor.CanCollide = true
		while Shaft12.MetalDoor.Transparency > 0.0 do
			Shaft12.MetalDoor.Transparency = Shaft12.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
	if Shaft13.MetalDoor.CanCollide == false then
		Shaft13.MetalDoor.CanCollide = true
		while Shaft13.MetalDoor.Transparency > 0.0 do
			Shaft13.MetalDoor.Transparency = Shaft13.MetalDoor.Transparency - 0.1
			wait(0.000001)
		end
	end
end

function onClicked()
	DoorClose()

	Car.BodyVelocity.velocity = Vector3.new(0, 20, 0) --Change 10 to change the speed.
end
script.Parent.MouseButton1Click:connect(onClicked)

script.Parent.MouseButton1Click:connect(function()
	if clicker == true then
		clicker = false
	else
		return
	end
end)

Car.Touched:connect(function(otherPart)
	if otherPart == Elevator.Floors.F14 then
		StopE()
		DoorOpen()
	end
end)

function StopE()
	Car.BodyVelocity.velocity = Vector3.new(0, 0, 0)
	Car.BodyPosition.position = Elevator.Floors.F14.Position
	clicker = true
end

function DoorOpen()
	while Shaft13.MetalDoor.Transparency < 1.0 do
		Shaft13.MetalDoor.Transparency = Shaft13.MetalDoor.Transparency + 0.1
		wait(0.000001)
	end
	Shaft13.MetalDoor.CanCollide = false
end
