Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

gigahertz77

Members
  • Content Count

    3
  • Joined

  • Last visited

About gigahertz77

  • Rank
    Newbie

Recent Profile Visitors

20 profile views
  1. ok I have added this into the table and now works '******************* Options ********************* ' DMD/Backglass Controller Setting Const cController = 3 '0=Use value defined in cController.txt, 1=VPinMAME, 2=UVP server, 3=B2S server, 4=B2S with DOF (disable VP mech sounds) '************************************************* Dim cNewController Sub LoadVPM(VPMver, VBSfile, VBSver) Dim FileObj, ControllerFile, TextStr 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 cNewController = 1 If cController = 0 then Set FileObj=CreateObject("Scripting.FileSystemObject") If Not FileObj.FolderExists(UserDirectory) then Msgbox "Visual Pinball\User directory does not exist. Defaulting to vPinMame" ElseIf Not FileObj.FileExists(UserDirectory & "cController.txt") then Set ControllerFile=FileObj.CreateTextFile(UserDirectory & "cController.txt",True) ControllerFile.WriteLine 1: ControllerFile.Close Else Set ControllerFile=FileObj.GetFile(UserDirectory & "cController.txt") Set TextStr=ControllerFile.OpenAsTextStream(1,0) If (TextStr.AtEndOfStream=True) then Set ControllerFile=FileObj.CreateTextFile(UserDirectory & "cController.txt",True) ControllerFile.WriteLine 1: ControllerFile.Close Else cNewController=Textstr.ReadLine: TextStr.Close End If End If Else cNewController = cController End If Select Case cNewController 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 3,4 Set Controller = CreateObject("B2S.Server") End Select On Error Goto 0 End Sub
  2. In my not working addams backglass, don't exist this value "Set Controller = CreateObject " into script table.
  3. Hello, I don't know why some tables doesn't work with DirectB2S , for example I have the addams family table and visual pinball 9.9.5 and not work, the backglass It does not appear. But Medieval Madness, same visual pinball 9.9.5 work perfectly..
×