JP you have wrong switches assigned for the bumpers, i already deleted the old version but i'm sure that one was correct, anyway here is the correction
' Bally Bumper thumpers
Sub Bumper1_Hit:vpmTimer.PulseSw 43:PlaySound "bumper1":bump1 = 1:Bumper1.TimerEnabled = 1:End Sub
Sub Bumper1_Timer():UpdateBumper1:End Sub
Sub UpdateBumper1()
Select Case bump1
Case 0
If bumpLamp1 = 0 Then
B1s1.IsDropped = 0:B1s1t.IsDropped = 0:B1s1on.IsDropped = 1:B1s1ton.IsDropped = 1
Else
B1s1on.IsDropped = 0:B1s1ton.IsDropped = 0:B1s1.IsDropped = 1:B1s1t.IsDropped = 1
End If
Case 1:B1s1.IsDropped = 1:B1s1t.IsDropped = 1:B1s1on.IsDropped = 1:B1s1ton.IsDropped = 1:B1s3on.IsDropped = 0:B1s3ton.IsDropped = 0:bump1 = 2
Case 2:B1s3on.IsDropped = 1:B1s3ton.IsDropped = 1:B1s2on.IsDropped = 0:B1s2ton.IsDropped = 0:bump1 = 3
Case 3:B1s2on.IsDropped = 1:B1s2ton.IsDropped = 1:Bumper1.TimerEnabled = 0:bump1=0:UpdateBumper1
End Select
End Sub
Sub Bumper2_Hit:vpmTimer.PulseSw 44:PlaySound "bumper2":bump2 = 1:Bumper2.TimerEnabled = 1:End Sub
Sub Bumper2_Timer():UpdateBumper2:End Sub
Sub UpdateBumper2()
Select Case bump2
Case 0
If bumpLamp2 = 0 Then
B2s1.IsDropped = 0:B2s1t.IsDropped = 0:B2s1on.IsDropped = 1:B2s1ton.IsDropped = 1
Else
B2s1on.IsDropped = 0:B2s1ton.IsDropped = 0:B2s1.IsDropped = 1:B2s1t.IsDropped = 1
End If
Case 1:B2s1.IsDropped = 1:B2s1t.IsDropped = 1:B2s1on.IsDropped = 1:B2s1ton.IsDropped = 1:B2s3on.IsDropped = 0:B2s3ton.IsDropped = 0:bump2 = 2
Case 2:B2s3on.IsDropped = 1:B2s3ton.IsDropped = 1:B2s2on.IsDropped = 0:B2s2ton.IsDropped = 0:bump2 = 3
Case 3:B2s2on.IsDropped = 1:B2s2ton.IsDropped = 1:Bumper2.TimerEnabled = 0:bump2=0:UpdateBumper2
End Select
End Sub
Sub Bumper3_Hit:vpmTimer.PulseSw 45:PlaySound "bumper3":bump3 = 1:Bumper3.TimerEnabled = 1:End Sub
Sub Bumper3_Timer():UpdateBumper3:End Sub
Sub UpdateBumper3()
Select Case bump3
Case 0
If bumpLamp3 = 0 Then
B3s1.IsDropped = 0:B3s1t.IsDropped = 0:B3s1on.IsDropped = 1:B3s1ton.IsDropped = 1
Else
B3s1on.IsDropped = 0:B3s1ton.IsDropped = 0:B3s1.IsDropped = 1:B3s1t.IsDropped = 1
End If
Case 1:B3s1.IsDropped = 1:B3s1t.IsDropped = 1:B3s1on.IsDropped = 1:B3s1ton.IsDropped = 1:B3s3on.IsDropped = 0:B3s3ton.IsDropped = 0:bump3 = 2
Case 2:B3s3on.IsDropped = 1:B3s3ton.IsDropped = 1:B3s2on.IsDropped = 0:B3s2ton.IsDropped = 0:bump3 = 3
Case 3:B3s2on.IsDropped = 1:B3s2ton.IsDropped = 1:Bumper3.TimerEnabled = 0:bump3=0:UpdateBumper3
End Select
End Sub