Download Police Force (Williams 1989)_Bigus(MOD) 2.0

This table on VPX.... ThanXXXX....  I will play it later,,,,

Line 4 Const cGameName="polic_l4"

Line 6 Dim Controller    ' B2S
Line 7 Dim B2SScore    ' B2S Score Displayed

Line 17        'Set Controller=CreateObject("VPinMAME.Controller")
Line 18         Set Controller=CreateObject("B2S.server")

added/changed the following lines in the script so it works for me

Muchas gracias Bigus y Juan Pablo Salas. Gran mesa que por fin ya la tenemos en VPX.

Great job Bigus and thank you! Been waiting for a VPX of Police Force and this JP conversion is really exceptional!

Many thanks !!!

thanks Polly

I haven't b2s but with your script it's ok!!!! thx

 Line 10 in script change the controller from vpinmame.controller to B2S.server to get the backglass going. 

Finally. And it is Saturday and i can play all day. ;-)

b2s doesnt show up. I use the wildman 2.0 version of the b2s. 

Is there another b2s to use?

Line 4 Const cGameName="polic_l4"

Line 6 Dim Controller    ' B2S
Line 7 Dim B2SScore    ' B2S Score Displayed

 

Line 17        'Set Controller=CreateObject("VPinMAME.Controller")
Line 18         Set Controller=CreateObject("B2S.server")

 

added/changed the following lines in the script so it works for me

This didn't work for me, but this is a working setup for the first section of the script for me...

Option Explicit
Randomize
LoadVPM "00990300","S11.VBS",3

Const cGameName="Polic_L4"

Dim Controller    ' B2S
Dim B2SScore    ' B2S Score Displayed

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("VPinMAME.Controller")
		Set Controller=CreateObject("B2S.server")
		If Err Then MsgBox"Unable to load VPinMAME."&vbNewLine&Err.Description
		If VPMver>"" Then
			If Controller.Version<VPMver Or Err Then MsgBox"This table requires VPinMAME ver "&VPMver&" or higher."
		End If
		If VPinMAMEDriverVer<VBSver Or Err Then MsgBox"This table requires "&VBSFile&" ver "&VBSver&" or higher."
	On Error Goto 0
BlueCar.TransZ=0
if Police.showDT = False then ramp001.visible = False:ramp002.visible = False
End Sub

I thought about it, Bigus did it.

Thank you for this wonderful work.

Thanks for the conversion to Vpx
Just great