You may want to update the scoring in the upper 10 kicker cups so it is possible to get more than the minimum score before the rotating spinner contacts the ball:
According to the manual:
TOP POCKETS:
This feature spots cards in the lited suit and scores according to the length of time the ball sits in the hole with minimum score being 200 or 2,000 if all the cards are spotted in the diamond suit.
The way the script is written, you are only pulsing the switch inside the kicker cups. Those switches need to be held down for the entire length of time the ball is in the cup. Currently you are only scoring the minimum, regardless of how long the ball is in the cup before being kicked out.
The script can be changed to accomplish this:
(changes alter changes made to reverse spinner direction in last post)
Change:
Sub Kicker1_Hit:bsSaucer.AddBall 0:BallPos=11:End Sub
Sub Kicker2_Hit:vpmTimer.PulseSw(36):BallPos=9:End Sub
Sub Kicker3_Hit:vpmTimer.PulseSw(39):BallPos=8:End Sub
Sub Kicker4_Hit:vpmTimer.PulseSw(37):BallPos=7:End Sub
Sub Kicker5_Hit:vpmTimer.PulseSw(40):BallPos=6:End Sub
Sub Kicker6_Hit:vpmTimer.PulseSw(39):BallPos=5:End Sub
Sub Kicker7_Hit:vpmTimer.PulseSw(36):BallPos=4:End Sub
Sub Kicker8_Hit:vpmTimer.PulseSw(39):BallPos=3:End Sub
Sub Kicker9_Hit:vpmTimer.PulseSw(37):BallPos=2:End Sub
Sub Kicker10_Hit:vpmTimer.PulseSw(40):BallPos=1:End Sub
Sub Kicker11_Hit:vpmTimer.PulseSw(39):BallPos=10:End Sub
To:
Sub Kicker1_Hit:bsSaucer.AddBall 0:BallPos=11:End Sub
Sub Kicker2_Hit:controller.switch(36)=1:BallPos=9:End Sub
Sub Kicker3_Hit:controller.switch(39)=1:BallPos=8:End Sub
Sub Kicker4_Hit:controller.switch(37)=1:BallPos=7:End Sub
Sub Kicker5_Hit:controller.switch(40)=1:BallPos=6:End Sub
Sub Kicker6_Hit:controller.switch(39)=1:BallPos=5:End Sub
Sub Kicker7_Hit:controller.switch(36)=1:BallPos=4:End Sub
Sub Kicker8_Hit:controller.switch(39)=1:BallPos=3:End Sub
Sub Kicker9_Hit:controller.switch(37)=1:BallPos=2:End Sub
Sub Kicker10_Hit:controller.switch(40)=1:BallPos=1:End Sub
Sub Kicker11_Hit:controller.switch(39)=1:BallPos=10:End Sub
Change:
Sub TF_Timer
LastFlipPos=FlipPos
TopFlip(LastFlipPos).Visible=0
FlipPos=FlipPos+1
If FlipPos>10 Then FlipPos=1
TopFlip(FlipPos).Visible=1
If BallPos=FlipPos Then
CurrentPos(BallPos).Kick Int(Rnd*360),Int(Rnd*5)+2
BallPos=0
End If
TopFlip(FlipPos).RotateToStart
TopFlip(LastFlipPos).RotateToEnd
End Sub
To:
Sub TF_Timer
LastFlipPos=FlipPos
TopFlip(LastFlipPos).Visible=0
FlipPos=FlipPos+1
If FlipPos>10 Then FlipPos=1
TopFlip(FlipPos).Visible=1
If BallPos=FlipPos Then
controller.switch(36)=0
controller.switch(39)=0
controller.switch(37)=0
controller.switch(40)=0
controller.switch(39)=0
controller.switch(36)=0
controller.switch(39)=0
controller.switch(37)=0
controller.switch(40)=0
controller.switch(39)=0
CurrentPos(BallPos).Kick Int(Rnd*360),Int(Rnd*5)+2
BallPos=0
End If
TopFlip(FlipPos).RotateToStart
TopFlip(LastFlipPos).RotateToEnd
End Sub




Top













are all trademarks of VPFORUMS.