If a ball is on a flipper and the other flipper is pressed, the ball gets a little nudge. This is for example used to slow down the ball, when coming from the inlane.
This is the current code, that is used by @rothbauerw and VPW folks for this
Sub FlipperNudge(Flipper1, Endangle1, EOSNudge1, Flipper2, EndAngle2)
Dim b, BOT
BOT = GetBalls
If Flipper1.currentangle = Endangle1 and EOSNudge1 <> 1 Then
EOSNudge1 = 1
'debug.print Flipper1.currentangle &" = "& Endangle1 &"--"& Flipper2.currentangle &" = "& EndAngle2
If Flipper2.currentangle = EndAngle2 Then
For b = 0 to Ubound(BOT)
If FlipperTrigger(BOT(b).x, BOT(b).y, Flipper1) Then
'Debug.Print "ball in flip1. exit"
exit Sub
end If
Next
For b = 0 to Ubound(BOT)
If FlipperTrigger(BOT(b).x, BOT(b).y, Flipper2) Then
BOT(b).velx = BOT(b).velx / 1.3
BOT(b).vely = BOT(b).vely - 0.5
end If
Next
End If
Else
If Abs(Flipper1.currentangle) > Abs(EndAngle1) + 30 then
EOSNudge1 = 0
end if
End If
End Sub
If a ball is on a flipper and the other flipper is pressed, the ball gets a little nudge. This is for example used to slow down the ball, when coming from the inlane.
This is the current code, that is used by @rothbauerw and VPW folks for this