Guardians of the Galaxy Script

'------------------------ After Change  --  Outhere added---------------------------------------------------------------
Sub swPlungerRest_Hit()
    debug.print "ball in plunger lane"
    ' some sound according to the ball position
    PlaySoundAt "fx_sensor", swPlungerRest
    bBallInPlungerLane = True
    ' turn on Launch light is there is one
    'LaunchLight.State = 2
    ' kick the ball in play if the bAutoPlunger flag is on

	if bCreatedBall = False then	' If we didnt create a ball this must have gone up and back so kick it out automatically
		bAutoPlunger = True
	End if
	bCreatedBall = False

    If bAutoPlunger Then
        vpmtimer.addtimer 850, "FireTheBall '"     ' Add Timer To Delay Auto Plunger with Free Ball
        debug.print "autofire the ball"
    End If

	if (bPlayerModeSelect) Then
		if PlayerMode = -1 then SelectPlayerMode LeftFlipperKey
		UpdatePlayerMode()
		'PauseSong
		if PlayerState(CurrentPlayer).bFirstBall then
debug.print "Start  m_wait-2"
			'PlaySoundLoopVol "m_wait", VolDef
			playmedia "m_wait2.mp3", MusicDir, pAudio, "", -1, "", 1, 1
		End If
	End If

    ' remember last trigger hit by the ball.
    LastSwitchHit = "swPlungerRest"
End Sub

        Sub FireTheBall
        PlungerIM.AutoFire
        DOF 125, DOFPulse
		DOF 112, DOFPulse
        bAutoPlunger = False
		bAutoPlunged = True
End Sub

'-------------------------------------------------------------------------------------------------

'----------------------------------- Before  Change ------------------------------------------------
'Sub swPlungerRest_Hit()
'    debug.print "ball in plunger lane"
'    ' some sound according to the ball position
'    PlaySoundAt "fx_sensor", swPlungerRest
'    bBallInPlungerLane = True
'    ' turn on Launch light is there is one
'    'LaunchLight.State = 2
'    ' kick the ball in play if the bAutoPlunger flag is on
'
'	if bCreatedBall = False then	' If we didnt create a ball this must have gone up and back so kick it out automatically
'		bAutoPlunger = True
'	End if
'	bCreatedBall = False
'
'    If bAutoPlunger Then
'        debug.print "autofire the ball"
'        PlungerIM.AutoFire
'        DOF 125, DOFPulse
'		DOF 112, DOFPulse
'        bAutoPlunger = False
'		bAutoPlunged = True
'    End If
'
'	if (bPlayerModeSelect) Then
'		if PlayerMode = -1 then SelectPlayerMode LeftFlipperKey
'		UpdatePlayerMode()
'		'PauseSong
'		if PlayerState(CurrentPlayer).bFirstBall then
'debug.print "Start  m_wait-2"
'			'PlaySoundLoopVol "m_wait", VolDef
'			playmedia "m_wait2.mp3", MusicDir, pAudio, "", -1, "", 1, 1
'		End If
'	End If
'
'    ' remember last trigger hit by the ball.
'    LastSwitchHit = "swPlungerRest"
'End Sub
'-----------------------------------------------------------------------------------------------------------