Give this script mod a try.
You need to replace lines from 1126 - 1156 (Joker Eyes and Mouth and Left Scoop) section
'Joker Eyes and Mouth
Sub Sw36_Hit: Me.DestroyBall : vpmTimer.PulseSwitch(36), 100, "Sw39bEyes '" :Sw39.enabled = 0: End Sub
Sub Sw37_Hit: Me.DestroyBall : vpmTimer.PulseSwitch(37), 100, "Sw39bEyes '" :Sw39.enabled = 0: End Sub
Sub Sw38_Hit: Me.DestroyBall : vpmTimer.PulseSwitch(38), 100, "Sw39bEyes '" :Sw39.enabled = 0: End Sub
Sub Sw39bEyes
Sw39.enabled = 0
Sw39b.createball
PlaySound "popper_ball"
bsLScoop.AddBall 0
End Sub
'Left Scoop
Sub Sw39_hit:vpmtimer.addtimer 5, "Sw39bVuk '" End Sub
Sub Sw39bVuk
Sw39.enabled = 0
PlaySound "popper_ball"
bsLScoop.AddBall 0
End Sub
Sub Sw39b_UnHit:vpmtimer.addtimer 100, "Sw39.enabled = 1 '" End Sub
with this new code
'Joker Eyes and Mouth
Sub Sw36_Hit: Me.DestroyBall: PlaySound "popper_ball": vpmTimer.PulseSwitch(36), 1000, "Sw39bEyes '" : End Sub
Sub Sw37_Hit: Me.DestroyBall: PlaySound "popper_ball": vpmTimer.PulseSwitch(37), 1000, "Sw39bEyes '" : End Sub
Sub Sw38_Hit: Me.DestroyBall: PlaySound "popper_ball": vpmTimer.PulseSwitch(38), 1000, "Sw39bEyes '" : End Sub
Dim VukCount
Sub Sw39bEyes
VukCount = VukCount+1 'Track balls in subway to Vuk
If VukCount = 1 Then 'If no ball in subway, send it to Vuk
Sw39.enabled = 0
Sw39b.createball
bsLScoop.AddBall 0
End If
End Sub
'Left Scoop
Sub Sw39_hit
VukCount = VukCount+1 'Track balls in subway to Vuk
If VukCount = 1 Then 'If no ball in subway, send it to Vuk
Sw39.enabled = 0
vpmtimer.addtimer 5, "Sw39bVuk '"
End If
End Sub
Sub Sw39bVuk
PlaySound "popper_ball"
bsLScoop.AddBall 0
End Sub
Sub Sw39b_UnHit
VukCount = VukCount-1
If VukCount = 0 Then 'If subway empty, re-enable the VuK saucer
vpmtimer.addtimer 100, "Sw39.enabled = 1 '"
Else 'Else subway has balls, so send next ball to the Vuk
Sw39b.createball
bsLScoop.AddBall 0
End If
End Sub