-
Posts
484 -
Joined
-
Last visited
-
Days Won
97
-
Option Explicit
RandomizeConst 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 cBallDim VarHidden, UseVPMDMD
If table.ShowDT = true then
'UseVPMDMD = true
VarHidden = 0
lockdown.visible = true
else
'UseVPMDMD = false
VarHidden = 0
lockdown.visible = false
end ifOn Error Resume Next
ExecuteGlobal GetTextFile("controller.vbs")
If Err Then MsgBox "Can't open controller.vbs"
On Error Goto 0LoadVPM "01560000", "sam.VBS", 3.10
Set cBall = ckicker.createball
ckicker.Kick 0, 0Sub 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 WithOn 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
