the code to call the rom and the controller can be enhanced, here it is:
option explicit
dim cgamename
LoadVPM "01000100", "s7.vbs", 2.2
set lampcallback= getref ("updlamps")
cGameName = "jngld_l2" ' PinMAME short name
.
.
.
.
.
.
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
and for the table exit, it the ini is called, jlord, the exit must have the same name or it doesn't have any effect
Sub jlord_exit()
Controller.Pause = False
Controller.Stop
End Sub
Edited by arngrim, 24 January 2015 - 03:50 PM.