I see the animation of the bumper rings is wrong. And before someone says that it is because the rings (which are made with walls) have their Top Height lower than their Bottom Height, that's right. That's how we made a wall "non collidable" in those days 
Now the ring animation is longer than needed. It starts by showing the lowest ring, move up and then down again (!?). So this part of the script (starting at line 273):
Sub Bumper1_Hit:vpmTimer.PulseSw 24:playsound "bumperg2":Bump1 = 0:Bumper1.TimerEnabled = 1:Bumper1_Timer:End Sub
Sub Bumper1_Timer
Select Case Bump1
Case 0:Ring1a.IsDropped = 0:Ring1b.IsDropped = 1:Ring1c.IsDropped = 1
Case 1:Ring1a.IsDropped = 1:Ring1b.IsDropped = 0
Case 2:Ring1b.IsDropped = 1:Ring1c.IsDropped = 0
Case 3:Ring1c.IsDropped = 1:Ring1b.IsDropped = 0
Case 4:Ring1b.IsDropped = 1:Ring1a.IsDropped = 0
Case 5:Ring1a.IsDropped = 1:Bumper1.TimerEnabled = 0
End Select
Bump1 = Bump1 + 1
End Sub
Sub Bumper2_Hit:vpmTimer.PulseSw 24:playsound "bumperg2":Bump2 = 0:Bumper2.TimerEnabled = 1:Bumper2_Timer:End Sub
Sub Bumper2_Timer
Select Case Bump2
Case 0:Ring2a.IsDropped = 0:Ring2b.IsDropped = 1:Ring2c.IsDropped = 1
Case 1:Ring2a.IsDropped = 1:Ring2b.IsDropped = 0
Case 2:Ring2b.IsDropped = 1:Ring2c.IsDropped = 0
Case 3:Ring2c.IsDropped = 1:Ring2b.IsDropped = 0
Case 4:Ring2b.IsDropped = 1:Ring2a.IsDropped = 0
Case 5:Ring2a.IsDropped = 1:Bumper2.TimerEnabled = 0
End Select
Bump2 = Bump2 + 1
End Sub
Could be replaced with my original script for animating those rings:
Sub Bumper1_Hit:vpmTimer.PulseSw 24:PlaySound "bumper":bump1=1:Me.TimerEnabled=1:End Sub
Sub Bumper1_Timer()
Select Case bump1
Case 1:Ring1a.IsDropped=0:bump1=2
Case 2:Ring1b.IsDropped=0:Ring1a.IsDropped=1:bump1=3
Case 3:Ring1c.IsDropped=0:Ring1b.IsDropped=1:bump1=4
Case 4:Ring1c.IsDropped=1:Me.TimerEnabled=0
End Select
End Sub
Sub Bumper2_Hit:vpmTimer.PulseSw 24:PlaySound "bumper":bump2=1:Me.TimerEnabled=1:End Sub
Sub Bumper2_Timer()
Select Case bump2
Case 1:Ring2a.IsDropped=0:bump2=2
Case 2:Ring2b.IsDropped=0:Ring2a.IsDropped=1:bump2=3
Case 3:Ring2c.IsDropped=0:Ring2b.IsDropped=1:bump2=4
Case 4:Ring2c.IsDropped=1:Me.TimerEnabled=0
End Select
End Sub
Nice work on the desktop wallpaper 
Greetings
JP