'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'  UTILITY - Light Runs
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X

    dim arcbld:arcbld=1
    dim arcblu:arcblu=2
    dim arcbrd:arcbrd=3
    dim arcbru:arcbru=4
    dim arctld:arctld=5
    dim arctlu:arctlu=6
    dim arctrd:arctrd=7
    dim arctru:arctru=8
    dim circlein:circlein=9
    dim circleout:circleout=10
    dim clockleft:clockleft=11
    dim clockright:clockright=12
    dim diagdl:diagdl=13
    dim diagdr:diagdr=14
    dim diagul:diagul=15
    dim diagur:diagur=16
    dim down:down=17

    'lightrun red,arcbld
    Sub lightrun(colorduring,direction)
        On Error Resume Next

        ' color setting
        dim a
        for each a in aLights
            SetLightColor a, colorduring, -1
        next

        ' set
        dim time:time=1500
        LightSeqAttract.UpdateInterval = 1
        select case direction
            Case arcbld
                LightSeqAttract.Play SeqArcBottomLeftDownOn, 90,0,1
                LightSeqAttract.Play SeqArcBottomLeftDownOff, 90,0,1
            Case arcblu
                time = 1600
                LightSeqAttract.Play SeqArcBottomLeftUpOn, 90,0,1
                LightSeqAttract.Play SeqArcBottomLeftUpOff, 90,0,1
            Case arcbrd
                LightSeqAttract.Play SeqArcBottomRightDownOn, 90,0,1
                LightSeqAttract.Play SeqArcBottomRightDownOff, 90,0,1
            Case arcbru
                LightSeqAttract.Play SeqArcBottomRightUpOn, 90,0,1
                LightSeqAttract.Play SeqArcBottomRightUpOff, 90,0,1
            Case arctld
                LightSeqAttract.Play SeqArcTopLeftDownOn, 90
                LightSeqAttract.Play SeqArcTopLeftDownOff, 90
            Case arctlu
                LightSeqAttract.Play SeqArcTopLeftUpOn, 90
                LightSeqAttract.Play SeqArcTopLeftUpOff, 90
            Case arctrd
                LightSeqAttract.Play SeqArcTopRightDownOn, 90
                LightSeqAttract.Play SeqArcTopRightDownOff, 90
            Case arctru
                LightSeqAttract.Play SeqArcTopRightUpOn, 90
                LightSeqAttract.Play SeqArcTopRightUpOff, 90
            Case circlein
                time = 1400
                LightSeqAttract.Play SeqCircleInOn,50
                LightSeqAttract.Play SeqCircleInOff,50
            Case circleout
                time = 1400
                LightSeqAttract.Play SeqCircleOutOn,50
                LightSeqAttract.Play SeqCircleOutOff,50
            Case clockleft
                time = 3500
                LightSeqAttract.UpdateInterval = 2
                LightSeqAttract.Play SeqClockLeftOn, 45
                LightSeqAttract.Play SeqClockLeftOff, 45
            Case clockright
                time = 3500
                LightSeqAttract.Play SeqClockRightOn,45
                LightSeqAttract.Play SeqClockRightOff,45
            Case diagdl
                LightSeqAttract.Play SeqDiagDownLeftOn, 25
                LightSeqAttract.Play SeqDiagDownLeftOff, 25
            Case diagdr
                LightSeqAttract.Play SeqDiagDownRightOn, 25
                LightSeqAttract.Play SeqDiagDownRightOff, 25
            Case diagul
                LightSeqAttract.Play SeqDiagUpLeftOn, 25
                LightSeqAttract.Play SeqDiagUpLeftOff, 25
            Case diagur
                LightSeqAttract.Play SeqDiagUpRightOn, 25
                LightSeqAttract.Play SeqDiagUpRightOff, 25
            Case down
                LightSeqAttract.Play SeqDownOn, 15, 1
                LightSeqAttract.Play SeqDownOff, 15, 1
            Case "LeftDown"
                LightSeqAttract.Play SeqFanLeftDownOn, 30
            Case "LeftDown"
                LightSeqAttract.Play SeqFanLeftUpOn, 30
            Case "LeftDown"
                LightSeqAttract.Play SeqFanRightDownOn, 30
            Case "LeftDown"
                LightSeqAttract.Play SeqFanRightUpOn, 30
            Case "LeftDown"
                LightSeqAttract.Play SeqHatch1HorizOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqHatch1VertOn, 75
            Case "LeftDown"
                LightSeqAttract.Play SeqHatch2HorizOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqHatch2VertOn, 75
            Case "LeftDown"
                LightSeqAttract.Play SeqLeftOn, 50, 1
            Case "LeftDown"
                LightSeqAttract.Play SeqMiddleInHorizOn, 50
            Case "LeftDown"
                LightSeqAttract.Play SeqMiddleInVertOn, 50
            Case "LeftDown"
                LightSeqAttract.Play SeqMiddleOutHorizOn, 50
            Case "LeftDown"
                LightSeqAttract.Play SeqMiddleOutVertOn, 50
            Case "LeftDown"
                LightSeqAttract.Play SeqRadarLeftOn, 45
            Case "LeftDown"
                LightSeqAttract.Play SeqRadarRightOn, 45
            Case "LeftDown"
                LightSeqAttract.Play SeqRandom,40,,4000
            Case "LeftDown"
                LightSeqAttract.Play SeqRightOn, 50, 1
            Case "LeftDown"
                LightSeqAttract.Play SeqScrewLeftOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqScrewRightOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqStripe1HorizOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqStripe1VertOn, 50,2
            Case "LeftDown"
                LightSeqAttract.Play SeqStripe2HorizOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqStripe2VertOn, 25
            Case "LeftDown"
                LightSeqAttract.Play SeqUpOn, 15, 1
            Case "LeftDown"
                LightSeqAttract.Play SeqWiperLeftOn, 45
            Case "LeftDown"
                LightSeqAttract.Play SeqWiperRightOn, 45
        end Select

        If bMultiBallMode = 1 Then
            colorqueue = colorafter
        end If

        runninglights = 1
        dim tafter:tafter = time
        vpmtimer.addtimer tafter, "nolongerrun '"

    end Sub

    Sub nolongerrun
        runninglights = 0
        LightSeqAttract.StopPlay
        if bMultiBallMode = 0 Then
            relighttable
        end if
    end Sub