VP9 table question

[roccodimarco]

Yea yea, I know it’s vp9 and its out dated and stop messing around with it lol BUT, I have a buddy, no matter how many times he comes over, he always asks me about Slugest.  Don’t ask me why, but he LOVE slugfest.  Unfortunately, the only slugfest is an old vp9 desktop version.  I have been slowly rotating it, and I finally have it to where I’m happy enough to put it on the cabinet, except I cant get a backglass to work with it!  This is driving me crazy. I dont want any lights flashing or anything, I have just a static picture ready to put the dmd on top of and call it day.  However; when I add the backglass code in, I immediaily get an error, ” Object doesn’t support this property of method”.  I can’t figure it out.  Before with any table I rotated I never had a problem with.  This is what I’m adding, Set Controller = CreateObject(“B2S.Server”).  The backglass will load, the table will load, I will then get the error and no balls will dispense.

Can someone load up their old vp9 and take a look?  I’m out of ideas, and I have tried a lot!

You need to login in order to like this post: click here

[randr]

Set Controller = CreateObject(“B2S.Server”) should work. as long as file names match for table and backglass.

maybe paste that part of script here you might just need to choose an option 0,1,2,3 to set b2s in some vp9 tables.

if no answer before i get home tonight i will take a look

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

You need to login in order to like this post: click here

[roccodimarco]

Option Explicit
Randomize
LoadVPM “01530000”,”WPC.VBS”,3.1

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:Err.Clear
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.”:Err.Clear
If VPinMAMEDriverVer<VBSver Or Err Then MsgBox VBSFile&” ver “&VBSver&” or higher required.”
On Error Goto 0
End Sub

You need to login in order to like this post: click here

[randr]

Option Explicit
Randomize
LoadVPM “01530000”,”WPC.VBS”,3.1

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:Err.Clear
Set Controller=CreateObject(“B2s.server”)
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.”:Err.Clear
If VPinMAMEDriverVer<VBSver Or Err Then MsgBox VBSFile&” ver “&VBSver&” or higher required.”
On Error Goto 0
End Sub

that should be all thats needed

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

You need to login in order to like this post: click here

[randr]

I know i have vp9 game in cab so will look tonight

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

You need to login in order to like this post: click here

[roccodimarco]

That’s what I thought, but adding that gets an error everytime.  I can’t figure this out!

You need to login in order to like this post: click here

[roccodimarco]

randr wrote:

I know i have vp9 game in cab so will look tonight

You need to login in order to like this post: click here

[randr]

@roccodimarco

Comment out lines 202 and 205

‘If Controller.Version<=”01500000″ Then

‘ forget it, version is to old

Exit Sub

‘End If

see if that works :)

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

You need to login in order to like this post: click here

[roccodimarco]

randr wrote:

Comment out lines 202 and 205

‘If Controller.Version<=”01500000″ Then

‘ forget it, version is to old

Exit Sub

‘End If

see if that works :)

That did it! Thanks a ton!

You need to login in order to like this post: click here

[Thalamus]

controller.vbs has been updated so this should really be simplified it seems. I recommend anyone that are about to write/change code to have a read through of the great info provided inside. Thank you @arngrim

'Table script usage:
'
'This needs to be added on top of the script on both SS and EM tables:
'
'  On Error Resume Next
'  ExecuteGlobal GetTextFile("Controller.vbs")
'  If Err Then MsgBox "Unable to open Controller.vbs. Ensure that it is in the same folder as this table."
'  On Error Goto 0
'
'In addition the name of the rom (or the fake rom name for EM tables) is needed, because we need it for B2S (and loading VPM):
'
'  cGameName = "rom_name"
'
'For SS tables, the traditional LoadVPM method must be -removed- from the script
'as it is fully integrated into this script (leave the actual call in the script, of course),
'so search for something like this in the table script and -comment out or delete-:
'
'  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
'
'    Set Controller = CreateObject("B2S.Server")
'    '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."
'    On Error Goto 0
'  End Sub
'
'For SS tables with bad/outdated support by B2S Server (unsupported solenoids, lamps) one can call:
'
'  LoadVPMALT
'

You need to login in order to like this post: click here

[Tom]

I am getting ready to start pennant fever.  I have not played that or slugfest.  I wonder how they compare.   Pf has 4buttons on the lock bar so it shouldn’t be too hard to incorporate in a regular vp machine but slugfest has a lot more it looks like, but again I don’t know what they do.

You need to login in order to like this post: click here

[Author]

Posts