This topic contains 10 replies, has 4 voices, and was last updated by  Tom 6 months ago.

Currently, there are 0 users and 1 guest visiting this topic.
Viewing 11 posts - 1 through 11 (of 11 total)
  • Author
    Posts
  • #122815
     roccodimarco 
    Participant
    Member

    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!

    #122816
     randr 
    Keymaster
    ModeratorMember

    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!?
    *******************************************************

    #122821
     roccodimarco 
    Participant
    Member

    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

    #122822
     randr 
    Keymaster
    ModeratorMember

    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!?
    *******************************************************

    #122824
     randr 
    Keymaster
    ModeratorMember

    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!?
    *******************************************************

    #122825
     roccodimarco 
    Participant
    Member

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

    #122826
     roccodimarco 
    Participant
    Member

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

    tenor

    #122829
     randr 
    Keymaster
    ModeratorMember

    @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!?
    *******************************************************

    #122831
     roccodimarco 
    Participant
    Member

    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!

    #122857
     Thalamus 
    Moderator
    ContributorMemberModerator

    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
    '
    #125313
     Tom 
    Participant
    MemberContributor

    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.

Viewing 11 posts - 1 through 11 (of 11 total)

You must be logged in to reply to this topic.

©2019 VPinBall.com

WP2Social Auto Publish Powered By : XYZScripts.com
Vpinball.com

Log in with your credentials

or    

Forgot your details?

Create Account