How do I add smoke in this slide door script?

I made a slide door script where when you click it, it opens by sliding to the right (which you know). But I want the smoke with it to. Like movies, when they open something, smoke comes out and door opens. This is the script:

door = script.Parent.Parent.Door

function onClicked()
    for i = 1, 70 do
        door.CFrame = door.CFrame*CFrame.new(0.1, 0, 0)
        wait()
    end
    wait(3)
    for i = 1, 70 do
        door.CFrame = door.CFrame*CFrame.new(-0.1, 0, 0)
        wait()
    end
end

script.Parent.ClickDetector.MouseClick:connect(onClicked)