Bad Cats Gear Motor?

[Les73gtx]

This has been happening for a while now and I would like to try and fix it. I looked at a few things but nothing is jumping out at me.

The gear motor will continue to run after the seafood table stops spinning sometimes. This is random and does not happen every game. Sometimes it will happen at startup of the table during the tests and sometimes it will go a few games before it happens ... the F3 will reset it fine but then the music is gone from the table. So only a complete exit and restart will fix it for a few games then it will happen again. Here is a link to the table I am using. I have also posted in the help topic here. http://vpforums.org/index.php?/topic/14190-Bad-Cats-VP9.15-FS-%5BVP-9.x-Cabinet-FS%5D

The config tool shows S13, S15, S16 but all I see in the script is S16 related to the seafood table.

If someone could look this over my wife and I would be very appreciative.

Thank you

[arngrim]

fixed

 

replace or add with the bold script

 

at the beginning : 

 

'Bad Cats / IPD No. 127 / November, 1989 / 4 Players

'http://www.ipdb.org/machine.cgi?id=127

' VP9 version 1.1.0 by JPSalas

' April 2013

 

Option Explicit

Randomize

 

Const BallSize = 52

 

LoadVPM "01560000", "S11.VBS", 3.37 'it needs new scripts for the ball size to work, so update!

 

'**********************TABLE OPTIONS****************************************

Const cController = 4 '1=VPinMAME, 2=UVP, 3=B2S, 4=B2S + disable mech sounds

'***************************************************************************

 

 

Sub LoadVPM(VPMver, VBSfile, VBSver)

  On Error Resume Next

  If ScriptEngineMajorVersion < 5 Then MsgBox "VB Script Engine 5.0 or higher required"

  ExecuteGlobal GetTextFile(VBSfile)

  If Err Then MsgBox "Unable to open " & VBSfile & ". Ensure that it is in the same folder as this table. " & vbNewLine & Err.Description

  Select Case cController

  Case 1

    Set Controller = CreateObject("VPinMAME.Controller")

If Err Then MsgBox "Can't Load VPinMAME." & vbNewLine & Err.Description

If VPMver>"" Then If Controller.Version < VPMver Or Err Then MsgBox "VPinMAME ver " & VPMver & " required."

If VPinMAMEDriverVer < VBSver Or Err Then MsgBox VBSFile & " ver " & VBSver & " or higher required."

  Case 2

Set Controller = CreateObject("UltraVP.BackglassServ")

  Case else

    Set Controller = CreateObject("B2S.Server")  

  End Select

  On Error Goto 0

End Sub

 

Const cGameName = "bcats_l5"

Const UseSolenoids = 1

Const UseLamps = 0

Const UseSync = 0 'change it to 1 if the table runs too fast

 

Dim PlungerIM, x, bsTrough, bsRalfie, bsBin, dtL, dtR, Frame, bump1, bump2, bump3

 

' Standard Sounds

Const SSolenoidOn = "fx_Solenoidon"   'Solenoid activates

Const SSolenoidOff = "fx_Solenoidoff" 'Solenoid deactivates

Const SCoin = "fx_Coin"               'Coin inserted

 

'*DOF method for rom controller tables by Arngrim********************

'*******Use DOF 1**, 1 to activate a ledwiz output*******************

'*******Use DOF 1**, 0 to deactivate a ledwiz output*****************

'*******Use DOF 1**, 2 to pulse a ledwiz output**********************

Sub DOF(dofevent, dofstate)

If cController>2 Then

If dofstate = 2 Then

Controller.B2SSetData dofevent, 1:Controller.B2SSetData dofevent, 0

Else

Controller.B2SSetData dofevent, dofstate

End If

End If

End Sub

'********************************************************************

'************

' Table init.

'************

 

and then

 

Sub SpinWheel(aNewPos, aSpeed, aLastPos)

    ' 360/200= 1.8

DOF 101, 2

    If aNewPos <> aLastPos then

        FishWheel.RotAndTra2 = aNewPos * 1.8

    End If

End Sub

 

and on configtool, here is the new gear line for Bad Cats

 

S13/E101 100

 

hope lw will mod it so i will revisit it and in the script disable the mech sounds

[Les73gtx]

Thank you oh Master of the Config Tool ... you are the man!

Will try this out tonight

Thanks for the fast work!

[arngrim]

thx

that was an error to do that that way, scared stiff, diner has the same i did it the fix way, long time ago