Jump to content

cimi

Supporting Member
  • Content count

    5
  • Joined

  • Last visited

About cimi

  • Rank
    Newbie

Recent Profile Visitors

230 profile views
  1. Star Trek Pro (Stern 2013)

    thank you so much for your response Scott ... I solved the problem I had to change the script[emoji106][emoji106] Inviato dal mio iPhone utilizzando Tapatalk
  2. Xmen_150 Rom

    thank you
  3. Metallica Pro

    hi the music is too low!!!
  4. No music in some tables

    Hi all On Table Metallica Pro Stern how to put music??
  5. Star Trek Pro (Stern 2013)

    B2S Backglasse dont start maybe I'm missing something!!!
  6.  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

×