I am still trying to figure out how to make adjustments to the scripts.. I am getting a controller error in line 58 and 207. I looked through the script and not sure what to insert or what I'm doing wrong. The line in red is the line 58. Hope I'm allowed to post code??
Const cController = 3 'Choose Controller: 1-VPM, 2-UVP, 3-B2S
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")
Leds.Enabled = 1
Case 3:
Set Controller = CreateObject("B2S.Server")
End Select
On Error Goto 0
End Sub
'Dims
Dim bsTrough, dtLBank, dtRBank, dtTBank, bsLKicker, bsRKicker, mhole, mhole1
Dim plungerIM, RefreshARlight
RefreshARLight = false
Const cGameName = "carhop"
Const UseSolenoids = 1
Const UseLamps = 0
Const UseGI = 0
Const UseSync = 0
Const HandleMechs = 0
'Standard Sounds
Const SSolenoidOn="solon"
Const SSolenoidOff="soloff"
Const SFlipperOn="FlipperUp"
Const SFlipperOff="FlipperDown"
Const sCoin="coin3"
'Table Init****************************************************************************************************************************************************************
Sub Table_Init
vpmInit me
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine="Car Hop Gottlieb/Premier 1990" & vbNewLine & "VP Table by Bodydump"
.HandleKeyboard=0
.ShowTitle=0
.ShowDMDOnly=1
.ShowFrame=0
.HandleMechanics=0
.Hidden=1
On Error Resume Next
.Run GetPlayerHWnd
If Err Then MsgBox Err.Description
On Error Goto 0