Pinball Hall of Famer
Thanks ! I actually love playing it .Oh wow, I totally missed the dancers in sync! That's some hilarious and brilliant stuff.
Dang Bob, what a legendary project this has turned out to be. Let me take a look at the latest one and see if I can help get the word out a bit more.
Not really . I posted a youtube vid and mentionned the video at vpforums yesterday.(btw, is there anywhere else you're currently sharing it?)
If you want to increase the power of the cue you can go to line 2673 and for instance increase the Strength factor from 30 to say 100. (r = Strength * 100) .
I tried that last pm and it takes more touch to control the cue strength and is maybe more realistic ?
Sub Shootball() If GameOver = True then exit sub If MPs(ObjectBall).TrackedBallExist = True then Dim ball Set ball = MPs(ObjectBall).TrackedBall Dim r Dim a r = Strength * 30 'AddDebugText "SpinFactor = " & SpinFactor 'AddDebugText "r = " & r a = MiniPlayField_10.Rotation.Z * DegToRad ball.SetVelocity r*sin(a),- r*cos(a), 0 ShotSound() Move = 0 CameraAdjust.Set True, 2000 CueVanish.Set True , 500 AllBallsStopped = False CheckAllBallSpeeds.Set true, 50 CheckIfBallSunk.Set True, 100 End if End Sub