Tee'd Off Trough

Sub ReleaseBall(enabled)
	If enabled = True Then
		PlaySound SoundFX("fx_ballrel",DOFContactors), 0, 0.25 * volumedial
		TroughTipBack
	else
		Slot1.Kick 60, 9
		UpdateTrough
		BIP = BIP + 1
	End If
End Sub

Sub TroughTipBack
	if Slot2.BallCntOver = 1 then
		controller.Switch(14) = 1
	end if
End Sub

Sub Slot3_Hit():Controller.Switch(14) = 1:UpdateTrough:End Sub
Sub Slot3_UnHit():Controller.Switch(14) = 0:UpdateTrough:End Sub

Sub Slot2_UnHit():UpdateTrough:End Sub
Sub Slot1_UnHit():UpdateTrough:End Sub

Sub UpdateTrough()
	UpdateTroughTimer.Interval = 100
	UpdateTroughTimer.Enabled = 1
End Sub

Sub UpdateTroughTimer_Timer()
	If Slot1.BallCntOver = 0 Then Slot2.kick 60, 9
	If Slot2.BallCntOver = 0 Then Slot3.kick 60, 9
	If Slot3.BallCntOver = 0 Then Controller.Switch(14) = 0 'tip back
	Me.Enabled = 0
End Sub