nice work my friend
@ bolt: it's very easy to convert.
in the script change this
line 0 at 75
'****************************************
' CHARLIE'S ANGELS - by PINUCK
'****************************************
' thanks to: Destruk for previous version, some code, manual
' Rob046 - pics, plastic images
' JPSalas - various code and images, flippers, plunger
' JimmyFingers - flipper code
' Kruge99 and Grizz - testing, feedback
Option Explicit
'**************************************************
' SOUND EFFECTS - CHANGE THIS LINE TO TURN ON/OFF
'**************************************************
Const SFXon = True 'true/false
'****************************************
'
VPM
'****************************************
Randomize
LoadVPM"01150000","GTS1.VBS",3.10
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")
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
Const cGameName="charlies",UseSolenoids=1,UseLamps=1,UseGI=0
Const SSolenoidOn="solon",SSolenoidOff="soloff",SFlipperOn="flipperup",SFlipperOff="flipperdown",SCoin="coin3"
SolCallback(1)="bsTrough.SolOut"
SolCallback(2)="vpmSolSound""knocker"","
SolCallback(3)="vpmSolSound ""10_v2_4db"","
SolCallback(4)="vpmSolSound ""100_v2_4db"","
SolCallback(5)="vpmSolSound ""1000_v2_4db"","
SolCallback(7)="dtR.SolDropUp"
SolCallback(8)="dtL.SolDropUp" '****************************************
' TABLE INIT
'****************************************
Dim bsTrough,dtL,dtR,bump1,bump2
Sub Table1_Init
'setup bumpers
B1Ring1.IsDropped=1:B1Ring2.IsDropped=1:B1Ring3.IsDropped=1
B2Ring1.IsDropped=1:B2Ring2.IsDropped=1:B2Ring3.IsDropped=1
SetupSUTargets
SetupSlings
SetupRollovers
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine = "CHARLIE'S ANGELS" & vbNewLine & "
VP9 table by PINUCK"
.HandleKeyboard = 0
.ShowTitle = 0
.ShowDMDOnly = 1
.ShowFrame = 1
.HandleMechanics = 0
.Hidden = 0
On Error Resume Next
.Run GetPlayerHWnd
If Err Then MsgBox Err.Description
On Error Goto 0
End With
Edited by serpiko, 23 November 2012 - 11:33 AM.