85vett

 Option Explicit
    Randomize

     Const cGameName = "mtl_164" 
     Const UseSolenoids = 1
     Const UseLamps = 0
     Const UseSync = 1
     Const HandleMech = 0 
     Const SSolenoidOn = "Solenoid"
     Const SSolenoidOff = ""
     Const SCoin = "CoinIn"
 
    Dim xx
    Dim Bump1, Bump2, Bump3, Mech3bank,bsTrough,bsLHole, bsRHole,dtl,cbRight,turntable,cbCaptive,cbCaptive2
    Dim PlungerIM,LMag,RMag
    Dim cBall

    Dim VarHidden, UseVPMDMD
If table.ShowDT = true then
    'UseVPMDMD = true
    VarHidden = 0
    lockdown.visible = true
else
    'UseVPMDMD = false
    VarHidden = 0
    lockdown.visible = false
end if

On Error Resume Next
ExecuteGlobal GetTextFile("controller.vbs")
If Err Then MsgBox "Can't open controller.vbs"
On Error Goto 0

  LoadVPM "01560000", "sam.VBS", 3.10

    Set cBall = ckicker.createball
    ckicker.Kick 0, 0

  Sub table_Init

    UpPost.Isdropped=true
    With Controller
        .GameName = cGameName
        If Err Then MsgBox "Can't start Game " & cGameName & vbNewLine & Err.Description:Exit Sub
        .SplashInfoLine = "Metallica (Stern 2013)"
        .HandleKeyboard = 0
        .ShowTitle = 0
        .ShowDMDOnly = 1
        .ShowFrame = 0
        .HandleMechanics = 1
        .Hidden = VarHidden
        On Error Resume Next
        .Run GetPlayerHWnd
        If Err Then MsgBox Err.Description
    End With

    On Error Goto 0

'Trough
    Set bsTrough = New cvpmBallStack
    bsTrough.InitSw 0, 21, 20, 19, 18, 0, 0, 0
    bsTrough.InitKick BallRelease, 90, 8
    bsTrough.InitExitSnd SoundFX("ballrelease",DOFContactors), "Solenoid"
    bsTrough.Balls = 4

'Hole bsRHole - right eject
      Set bsRHole = New cvpmBallStack