Sorry for the long post.
After some investigation maybe I found the problem in KingPin ballrolling crash.
First thing first I enabled JP's Rolling Sounds again,so copy this code at the end of the script
(it's slightly different from the original, difference on line 1505)
'*****************************************
' JP's VP10 Rolling Sounds
'*****************************************
Const tnob = 5 ' total number of balls
ReDim rolling(tnob)
InitRolling
Sub InitRolling
Dim i
For i = 0 to tnob
rolling(i) = False
Next
End Sub
Sub RollingTimer_Timer()
Dim BOT, b
BOT = GetBalls
' stop the sound of deleted balls
For b = UBound(BOT) + 1 to tnob
rolling(b) = False
StopSound("fx_ballrolling" & b)
Next
' exit the sub if no balls on the table
If UBound(BOT) = -1 Then Exit Sub
' play the rolling sound for each ball
For b = 0 to UBound(BOT)
If BallVel(BOT(b) ) > 1 AND BOT(b).z < 30 Then
rolling(b) = True
PlaySound("fx_ballrolling" & b), -1, Vol(BOT(b) ), Pan(BOT(b) ), 0, Pitch(BOT(b) ), 1, 0
Else
If rolling(b) = True Then
StopSound("fx_ballrolling" & b)
rolling(b) = False
End If
End If
Next
End Sub
I was hearing some looping sound during game play so I disabled the game sound.
To do that just go ingame and press 7, then press 1 and , using the flippers, tune down the volume to zero and press 7 to exit.
Then the funny things start to happen: try to hit the Hotel Lex VUK multiple times and you get multiple looping rolling sounds;
the 4th time you hit it the game crashes with the error on line 1556
If you try to change tnob to 6 (line 1529) it will crash the 5th time you hit it , if you change to 7 the 6th time and so on....
A ramp could help you to get the vuk,like in this photo
http://oi62.tinypic.com/b87kpg.jpg
So I guess the problem could be in the script used to manage the vuk,since in the table I'm working on this doesn't happen.
It seems to be fixed in this way:
1) comment line 581 and 582 like this
'Sub sw51a_Hit:sw51.Enabled = 1:End Sub
'Sub sw51_Hit:bsVUK.AddBall Me:sw51.Enabled = 0:End Sub
2)copy this code at line 583
Dim aBall, aZpos
Sub sw51_Hit
Set aBall = ActiveBall
aZpos = 50
Me.TimerInterval = 2
Me.TimerEnabled = 1
End Sub
Sub sw51_Timer
aBall.Z = aZpos
aZpos = aZpos-2
If aZpos <40 Then
Me.TimerEnabled = 0
Me.DestroyBall
bsVUK.AddBall me
End If
End Sub
3) Now , at line 164, make this change
bsVUK.InitKick sw51,173,28
4) in the editor delete or move sw51b and sw51a out of the table
5) select sw51 kicker and, in state and physics, enable it and disable fall through; the same goes for sw44 kicker
6) finally, on line 1546 of the script, change tnob to 6.
I have tested this for hours, no crash; so it seems there's a problem with the method used to manage the VUK, or with VP itself.
With the old method it works. Hope this helps
Edited by ninuzzu, 03 June 2015 - 04:36 PM.