2 Price Is Right doors need to be combined?

I have two doors, each with 8 panels. The first door opens halfway, for host entry. The second door opens fully, to present a prize. Each door has 4 separate scripts, controlling 2 panels.

Here is what I have so far:

Door 1, Panel set 1 (This is repeated to the other panel sets with different timings and different names):

DoorParts=script.Parent.DoorParts1
open=0
function onClick()
    if open==0 then
    open= 1

        for i=1,30 do
        wait(.02)
        DoorParts.B1.CFrame=DoorParts.B1.CFrame*CFrame.new(.15,0,0)
        DoorParts.B2.CFrame=DoorParts.B2.CFrame*CFrame.new(-.15,0,0)


        end
    --Gate is turned off

    open=1
    elseif open==1 then
    open=3

    --Gate is turned on

        for i=1,30 do
        wait(.08)
        DoorParts.B1.CFrame=DoorParts.B1.CFrame*CFrame.new(-.15,0,0)
        DoorParts.B2.CFrame=DoorParts.B2.CFrame*CFrame.new(.15,0,0)

        end



    open=0
    end
end

script.Parent.Button.ClickDetector.MouseClick:connect(onClick)

Door 2:

DoorParts=script.Parent.DoorParts1
open=0
function onClick()
    if open==0 then
    open= 0

        for i=1,30 do
        wait(.02)
        DoorParts.B1.CFrame=DoorParts.B1.CFrame*CFrame.new(.4,0,0)
        DoorParts.B2.CFrame=DoorParts.B2.CFrame*CFrame.new(-.4,0,0)


        end
    --Gate is turned off

    open=1
    elseif open==1 then
    open=3

    --Gate is turned on

        for i=1,30 do
        wait(.08)
        DoorParts.B1.CFrame=DoorParts.B1.CFrame*CFrame.new(-.4,0,0)
        DoorParts.B2.CFrame=DoorParts.B2.CFrame*CFrame.new(.4,0,0)

        end



    open=0
    end
end

script.Parent.Button.ClickDetector.MouseClick:connect(onClick)

I need help fusing these two together, so I can have two buttons on one door, one opening halfway, and one opening fully.