Problema tavolo medieval tutorial
Inviato: 26/03/2016, 14:37
Ciao a tutti sto seguendo questa guida per il mio flipper virtuale.
https://www.youtube.com/watch?v=4YP01ri ... e=youtu.be
quando avvio il tavolo pero ho errore alla linea 11 e linea 71
SCRIPT ERROr LINE 11 NULL
perche?allego il codice dello script grazie
Medieval Madness - Williams 1997
' VP91x v2.3.2 by JPSalas, 2011
' Thanks to Randy for the VP program
' and thanks to all the authors who made this table before:
' Pinball Ken, Jamin, Macho, Joker, PacDude
Option Explicit
ExecuteGlobal GetTextFile("b2s.vbs") LINEA 11
ResetB2SData 0,49,0 'Initialise the b2s data area
'***********************************************************************
' Choose where to display the THING lights
LaunchBackGlass "Medieval-Madness_FS_B2S", FALSE 'True=Launch bg , False=Don't launch bg.
'***********************************************************************
Randomize
LoadVPM "01550000", "wpc.vbs", 3.26
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
'********************
'Standard definitions
'********************
dim bsTrough, bsCat, bsMe, bsMo, bsDa, DaLock, x, bump1, bump2, bump3, plungerIM
Const cGameName = "mm_10" 'Williams official rom
'Const cGameName = "mm_109" 'free play only
'Const cGameName="mm_109b" 'unofficial
'Const cGameName="mm_109c" 'unofficial profanity rom
Const UseSolenoids = 1
Const UseLamps = 0
Const UseGI = 1
Const UseSync = 1
Const HandleMech = 1
' Standard Sounds
Const SSolenoidOn = "Solenoid"
Const SSolenoidOff = ""
Const SFlipperOn = "FlipperUp"
Const SFlipperOff = "FlipperDown"
Const SCoin = "Coin"
Set GiCallback = GetRef("UpdateGI")
Set MotorCallback = GetRef("UpdateBridge")
'************
' Table init.
'************
Sub Table1_Init
vpmInit Me LINEA 71
With Controller
https://www.youtube.com/watch?v=4YP01ri ... e=youtu.be
quando avvio il tavolo pero ho errore alla linea 11 e linea 71
SCRIPT ERROr LINE 11 NULL
perche?allego il codice dello script grazie
Medieval Madness - Williams 1997
' VP91x v2.3.2 by JPSalas, 2011
' Thanks to Randy for the VP program
' and thanks to all the authors who made this table before:
' Pinball Ken, Jamin, Macho, Joker, PacDude
Option Explicit
ExecuteGlobal GetTextFile("b2s.vbs") LINEA 11
ResetB2SData 0,49,0 'Initialise the b2s data area
'***********************************************************************
' Choose where to display the THING lights
LaunchBackGlass "Medieval-Madness_FS_B2S", FALSE 'True=Launch bg , False=Don't launch bg.
'***********************************************************************
Randomize
LoadVPM "01550000", "wpc.vbs", 3.26
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
'********************
'Standard definitions
'********************
dim bsTrough, bsCat, bsMe, bsMo, bsDa, DaLock, x, bump1, bump2, bump3, plungerIM
Const cGameName = "mm_10" 'Williams official rom
'Const cGameName = "mm_109" 'free play only
'Const cGameName="mm_109b" 'unofficial
'Const cGameName="mm_109c" 'unofficial profanity rom
Const UseSolenoids = 1
Const UseLamps = 0
Const UseGI = 1
Const UseSync = 1
Const HandleMech = 1
' Standard Sounds
Const SSolenoidOn = "Solenoid"
Const SSolenoidOff = ""
Const SFlipperOn = "FlipperUp"
Const SFlipperOff = "FlipperDown"
Const SCoin = "Coin"
Set GiCallback = GetRef("UpdateGI")
Set MotorCallback = GetRef("UpdateBridge")
'************
' Table init.
'************
Sub Table1_Init
vpmInit Me LINEA 71
With Controller