85vett

Content Provider
  • Content count

    453
  • Joined

  • Last visited

  • Days Won

    97

85vett last won the day on August 28 2016

85vett had the most liked content!

2 Followers

About 85vett

  • Rank
    Advanced Member
  • Birthday 10/13/1978

Profile Information

  • Gender
    Male

Recent Profile Visitors

2,416 profile views

Single Status Update

See all updates by 85vett

  1.  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