12 replies to this topic

[slashbot]

Anyone knows how to add B2S.Server on old tables (buck rogers,Cheeta,...)?

 

I added following lines to the script but backglass does not come up.

 

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")
    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

 

 

Thanks in advance

Slashbot

[Slydog43]

did you create a directb2s backglass file with the same name as the table (vpt)?

[zany]

Comment away this line, like this:

'Set Controller = CreateObject("VPinMAME.Controller")

and add or replace it with this:
Set Controller = CreateObject("B2S.Server")

then compile and save it.

And as Slydog43 says...name the table and the directb2s backglass file the samem, except the extension of course.

 

Edited by zany, 24 November 2013 - 03:59 PM.

[slashbot]

the problem is 'Set Controller = CreateObject("VPinMAME.Controller") is not available in the script of some old pinball tables, i think its because they dont use roms.

 

so i added Set Controller = CreateObject("B2S.Server") and saved table.

Backglass has the same name as table

All my other tables work.

I got this problem with Buck Roger,Cheetah and some other old vp fullscreen tables.

When i add Set Controller = CreateObject("B2S.Server") to the Buck rogers script i get error 'Variable is undefined: 'Controller'

[koadic]

I am not sure of everything you need to add, but here is an example taken from the Scarface table:

Dim Controller
Set Controller = CreateObject("B2S.Server")
Controller.B2SName = "Scarface"
Controller.Run

[slashbot]

Cheetah is running now with backglass.

 

Buck rogers , the hulk gives script error line 0

Another strange thin if i change Controller.B2SName = "Scarface" to name of the backglass the backglass is not showing.

tried with vp915 and vp916.680

 

script error line 0 (also deleted ' the hulk line then gives error Dim renudge

 

SCRIPT

' The Hulk
Dim Renudge
 Dim roll
 Dim ball
 Dim RBonus
 Dim RBonusQueue
 Dim LBonus,TBonus
 Dim LBonusQueue
 Dim GameSeq
 Dim MaxPlayers
 Dim ActivePlayer
 Dim Round
 Dim BallInPlay
 Dim Coins
 Dim Tilt
 Dim FreePlayNum
 Dim HULK, H1,H2,H3,H4,ko,rs
 Dim BumperOn
 Dim Spell4
 Dim Spell10
 Dim mhole

 ExecuteGlobal GetTextFile("core.vbs")
 ExecuteGlobal GetTextFile("b2s.vbs")

Dim Controller
Set Controller = CreateObject("B2S.Server")
Controller.B2SName = "Scarface"
Controller.Run

[zany]

I guess you're not using the vpm version of BR.
I have BR running with the B2S if you want it.

[dboyrecords]

You have a working rom'ed Buck Rogers?!?! I Want, I WANT!!!!

[zany]

dboyrecords...yes i have. It's not the best version though but works.
Do you want the FS or DT version?
If FS...B2S or not?

[saecrow]

I'd be interested in FS B2S Buck Rogers if possible. . . thanks!

[zany]

Actually there is a 4:3 version here at VPF, and thats the version i moded to FS.

Here it is:
http://www.vpforums....s&showfile=2125

Edited by zany, 24 November 2013 - 06:23 PM.

[zany]

For those of you guys that want Buck Rogers...PM me and i'll give you a dropbox link to it.

[dboyrecords]

I've stayed away from all vp8 tables thinking they wouldn't work with 9 and not wanting to install 8.

Just when I thought my noob was turning into novice...

I've got a lot of tables to go look for!