Sub ResetNewBallLights() 'turn on or off the needed lights before a new ball is released
        TurnOffPlayfieldLights()
        SetLightColor pool, purple, -1
        SetLightColor pool1, purple, -1
        SetLightColor compass, purple, -1
        SetLightColor compass1, purple, -1
        SetLightColor radio, purple, -1
        SetLightColor radio1, purple, -1
        SetLightColor levitate, purple, -1
        SetLightColor levitate1, purple, -1
        CloseGates
        gate8.open = false
        lbolt1.state = 2
        lbolt7.state = 2
        lbolt2.state = 2
        lbolt8.state = 2
        lbolt3.state = 2
        lbolt10.state = 2
        lbolt4.state = 2
        lbolt9.state = 2
        lbolt5.state = 2
        lbolt11.state = 2
        lbolt6.state = 2
        lbolt12.state = 2
        batteryred.state = 0
        batteryred1.state = 0
        batteryorange.state = 0
        batteryorange1.state = 0
        batteryyellow.state = 0
        batteryyellow1.state = 0
        batterygreen.state = 0
        batterygreen1.state = 0
        avclubready.state = 0
        avclubready1.state = 0
        energy = 0
        kbon.opacity = 0
        kboff.opacity = 0
        If escapegateopen(currentplayer) = 1 Then
            gate8.open = True
        End If
        If barb1on(CurrentPlayer) = 1 Then
            lb1.State = 1
            lb6.State = 1
        End If
        If barb2on(CurrentPlayer) = 1 Then
            lb2.State = 1
            lb5.State = 1
        End If
        If barb3on(CurrentPlayer) = 1 Then
            lb3.State = 1
            lb8.State = 1
        End If
        If barb4on(CurrentPlayer) = 1 Then
            lb4.State = 1
            lb7.State = 1
        End If
        If mysteryready(CurrentPlayer) = 1 Then
            mysterylight.state = 2
            mysterylight1.state = 2
        End If
        If run1on(CurrentPlayer) = 1 Then
            lr1.state = 1
            lr8.state = 1
        End If
        If run2on(CurrentPlayer) = 1 Then
            lr2.state = 1
            lr9.state = 1
        End If
        If run3on(CurrentPlayer) = 1 Then
            lr3.state = 1
            lr12.state = 1
        End If
        If run4on(CurrentPlayer) = 1 Then
            lr4.state = 1
            lr11.state = 1
        End If
        If run5on(CurrentPlayer) = 1 Then
            lr5.state = 1
            lr10.state = 1
        End If
        If run6on(CurrentPlayer) = 1 Then
            lr6.state = 1
            lr7.state = 1
        End If
        If levitatedone(CurrentPlayer) = 1 Then
            SetLightColor levitate, amber, -1
            levitate.state = 1
            SetLightColor levitate1, amber, -1
            levitate1.state = 1
        End If
        If radiodone(CurrentPlayer) = 1 Then
            SetLightColor radio, amber, -1
            radio.state = 1
            SetLightColor radio1, amber, -1
            radio1.state = 1
        End If
        If compassdone(CurrentPlayer) = 1 Then
            SetLightColor compass, amber, -1
            compass.state = 1
            SetLightColor compass1, amber, -1
            compass1.state = 1
        End If
        If pooldone(CurrentPlayer) = 1 Then
            SetLightColor pool, amber, -1
            pool.state = 1
            SetLightColor pool1, amber, -1
            pool1.state = 1
        End If
        If avclubreadyon(CurrentPlayer) = 1 Then
            avclubready.state = 2
            avclubready1.state = 2
        End If
        If barbcompleted(CurrentPlayer) = 1 Then
            lm1.state = 1
            lm9.state = 1
        End If
        If badmensuper(CurrentPlayer) = 1 Then
            lm2.state = 1
            lm8.state = 1
        End If
        If lucason(CurrentPlayer) = 1 Then
            lucas.state = 1
        End If
        If jonathanon(CurrentPlayer) = 1 Then
            jonathan.state = 1
        End If
        If nancyon(CurrentPlayer) = 1 Then
            nancy.state = 1
        End If
        If joyceon(CurrentPlayer) = 1 Then
            joyce.state = 1
        End If
        If willon(CurrentPlayer) = 1 Then
            will.state = 1
        End If
        If elevencrewon(CurrentPlayer) = 1 Then
            elevencrew.state = 1
        End If
        If mikeyon(CurrentPlayer) = 1 Then
            mikey.state = 1
        End If
        If hopperon(CurrentPlayer) = 1 Then
            hopper.state = 1
        End If
        If dustinon(CurrentPlayer) = 1 Then
            dustin.state = 1
        End If
        If partydone(CurrentPlayer) = 1 Then
            lm5.state = 1
            lm10.state = 1
        End If
        If upsidedownlights(CurrentPlayer) = 1 Then
            upsidedownarrow.state = 2
            upsidedowncircle.state = 2
        End If
        If willcompleted(CurrentPlayer) = 1 Then
            lm3.State = 1
            lm7.State = 1
        End If
        If le1on(CurrentPlayer) = 1 Then
            le1.State = 1
            le17.State = 1
        End If
        If le2on(CurrentPlayer) = 1 Then
            le2.State = 1
            le16.State = 1
        End If
        If le3on(CurrentPlayer) = 1 Then
            le3.State = 1
            le18.State = 1
        End If
        If le4on(CurrentPlayer) = 1 Then
            le4.State = 1
            le19.State = 1
        End If
        If le5on(CurrentPlayer) = 1 Then
            le5.State = 1
            le20.State = 1
        End If
        If le6on(CurrentPlayer) = 1 Then
            le6.State = 1
            le21.State = 1
        End If
        If le7on(CurrentPlayer) = 1 Then
            le7.State = 2
            le23.State = 2
        End If
        If le8on(CurrentPlayer) = 1 Then
            le8.State = 2
            le22.State = 2
        End If
        If le9on(CurrentPlayer) = 1 Then
            le9.State = 2
            le24.State = 2
        End If
        If le10on(CurrentPlayer) = 1 Then
            le10.State = 1
            le26.State = 1
        End If
        If le11on(CurrentPlayer) = 1 Then
            le11.State = 1
            le25.State = 1
        End If
        If le12on(CurrentPlayer) = 1 Then
            le12.State = 1
            le27.State = 1
        End If
        If le13on(CurrentPlayer) = 1 Then
            le13.State = 1
            le28.State = 1
        End If
        If le14on(CurrentPlayer) = 1 Then
            le14.State = 1
            le30.State = 1
        End If
        If le15on(CurrentPlayer) = 1 Then
            le15.State = 1
            le29.State = 1
        End If
        If walllon(CurrentPlayer) = 1 Then
            wallll.state = 1
            wallll1.state = 1
        End If
        If wallmon(CurrentPlayer) = 1 Then
            wallml.state = 1
            wallml1.state = 1
        End If
        If wallron(CurrentPlayer) = 1 Then
            wallrl.state = 1
            wallrl1.state = 1
        End If
        If extraballready(CurrentPlayer) = 1 Then
            extraball.state = 2
            extraball1.state = 2
        End If
        If batt1on(CurrentPlayer) = 1 Then
            batteryred.state = 1
            batteryred1.state = 1
            energy = 1
        End If
        If batt2on(CurrentPlayer) = 1 Then
            batteryorange.state = 1
            batteryorange1.state = 1
            energy = 2
        End If
        If batt3on(CurrentPlayer) = 1 Then
            batteryyellow.state = 1
            batteryyellow1.state = 1
            energy = 3
        End If
        If batteryon(CurrentPlayer) = 1 Then
            batteryorange.state = 2
            batteryorange1.state = 2
            batterygreen.state = 2
            batterygreen1.state = 2
            batteryred.state = 2
            batteryred1.state = 2
            batteryyellow.state = 2
            batteryyellow1.state = 2
            energy = 4
        End If
        If PlayersPlayingGame > 1 Then
            resetawall
        End If

        If kickbackon(CurrentPlayer) = 1 Then
            kickbacklight.state = 1
            kickbacklight1.state = 1
            kickbackgate.open = True
            kbon.opacity = 1000
            kboff.opacity = 0
        End If
        If partyready(CurrentPlayer) = 1 Then
            partylock.state = 2
            partylock1.state = 2
        End if

        movemodes
        currentplayerbackglass
        CheckBARBTargets
        CheckRunTargets
        udtarget.TransZ = -22
        udtargetdown(CurrentPlayer) = 0
        udtarget.Collidable = True
        udtargettime.Enabled = False
    End Sub