je vais essayer de te repondre au mieux.
alors j'ai installé visual pinball jusque la tout va bien, je tel les rom tout va bien aussi.
j'ouvre visual pinball depuis mon bureau avec le raccourcis je lance la rom attack from mars ( que j'adore en flipper...),et voila les messages :
' Attack from Mars / IPD No. 3781 / December, 1995 / 4 Players
' VP9 2.3 by JPSalas 2009
Option Explicit
Randomize
LoadVPM "01560000", "WPC.VBS", 3.26
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
'********************
'Standard definitions
'********************
Const UseSolenoids = 1
Const UseLamps = 0
Const UseSync = 0
Const HandleMech = 0
' Standard Sounds
Const SSolenoidOn = "Solenoid"
Const SSolenoidOff = ""
Const SFlipperOn = "FlipperUp"
Const SFlipperOff = "FlipperDown"
Const SCoin = "Coin"
Set GiCallback = GetRef("UpdateGI")
Dim bsTrough, bsL, bsR, dtDrop, x, bump1, bump2, bump3, BallFrame, Mech3bank, plungerIM, DiverterDir, DiverterPos
'************
' Table init.
'************
Const cGameName = "afm_113b" 'arcade rom - with credits
'Const cGameName = "afm_113" 'home rom - free play
Sub Table1_Init
vpmInit Me
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game " & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine = "Attack from Mars - Bally/Midway 1995" & vbNewLine & "VP9 table by JPSalas v2.3"
'DMD position and size for 1400x1050
'.Games(cGameName).Settings.Value("dmd_pos_x")=500
'.Games(cGameName).Settings.Value("dmd_pos_y")=2
'.Games(cGameName).Settings.Value("dmd_width")=400
'.Games(cGameName).Settings.Value("dmd_height")=92
.Games(cGameName).Settings.Value("rol") = 0
.HandleKeyboard = 0
.ShowTitle = 0
.ShowDMDOnly = 1
.ShowFrame = 0
.HandleMechanics = 0
.Hidden = 0
On Error Resume Next
.Run GetPlayerHWnd
If Err Then MsgBox Err.Description
On Error Goto 0
.Switch(22) = 1 'close coin door
.Switch(24) = 1 'and keep it close
End With
' Nudging
vpmNudge.TiltSwitch = 14
vpmNudge.Sensitivity = 1
vpmNudge.TiltObj = Array(lbumper, bbumper, rbumper, LeftSlingshot, RightSlingshot)
' Trough
Set bsTrough = New cvpmBallStack
With bsTrough
.InitSw 0, 32, 33, 34, 35, 0, 0, 0
.InitKick BallRelease, 90, 4
.InitEntrySnd "Solenoid", "Solenoid"
.InitExitSnd "ballrel", "Solenoid"
.Balls = 4
End With
' Droptarget
Set dtDrop = New cvpmDropTarget
With dtDrop
.InitDrop sw77, 77
.initsnd "droptarget", "resetdrop"
End With
' Left hole
Set bsL = New cvpmBallStack
With bsL
.InitSw 0, 36, 0, 0, 0, 0, 0, 0
.InitKick sw36, 0, 2
.InitExitSnd "popper", "Solenoid"
.KickForceVar = 3
End With
' Right hole
Set bsR = New cvpmBallStack
With bsR
.InitSw 0, 37, 0, 0, 0, 0, 0, 0
.InitKick sw37, 202, 24
.KickZ = 0.4
.InitExitSnd "popper", "Solenoid"
.KickForceVar = 2
End With
'3 Targets Bank
Set Mech3Bank = new cvpmMech
With Mech3Bank
.Sol1 = 24
.Mtype = vpmMechLinear + vpmMechReverse + vpmMechOneSol
.Length = 60
.Steps = 8
.AddSw 67, 0, 0
.AddSw 66, 8, 8
.Callback = GetRef("Update3Bank")
.Start
End With
' Impulse Plunger
Const IMPowerSetting = 42 'Plunger Power
Const IMTime = 0.6 ' Time in seconds for Full Plunge
Set plungerIM = New cvpmImpulseP
With plungerIM
.InitImpulseP swplunger, IMPowerSetting, IMTime
.Random 0.3
.switch 18
.InitExitSnd "plunger2", "plunger"
.CreateEvents "plungerIM"
End With
' Main Timer init
PinMAMETimer.Interval = PinMAMEInterval
PinMAMETimer.Enabled = 1
StartShake
' Init Bumper Rings and targets
Ring1a.IsDropped = 1:Ring2a.IsDropped = 1:Ring3a.IsDropped = 1
Ring1b.IsDropped = 1:Ring2b.IsDropped = 1:Ring3b.IsDropped = 1
Ring1c.IsDropped = 1:Ring2c.IsDropped = 1:Ring3c.IsDropped = 1
sw56a.IsDropped = 1:sw57a.IsDropped = 1:sw58a.IsDropped = 1
sw44a.IsDropped = 1:sw75a.IsDropped = 1:sw76a.IsDropped = 1
sw41a.IsDropped = 1:sw42a.IsDropped = 1:sw43a.IsDropped = 1
sw45a.IsDropped = 1:sw46a.IsDropped = 1:sw47a.IsDropped = 1
' Init other dropwalls - animations
UpdateGI 0, 0:UpdateGI 1, 0:UpdateGI 2, 0
Diverter2.IsDropped = 1:Diverter3.IsDropped = 1:Diverter4.IsDropped = 1:Diverter5.IsDropped = 1:Diverter6.IsDropped = 1
DiverterPos = 0
Init3Bank
InitFlashers
LEDSpeedSlow
InitBigUfo
UfoLed.Enabled = 1
a5a.isdropped = 1:a6a.isdropped = 1:a8a.isdropped = 1:a14a.isdropped = 1
Llogo2.IsDropped = 1:Rlogo2.IsDropped = 1
LeftSLing.IsDropped = 1:LeftSLing2.IsDropped = 1:LeftSLing3.IsDropped = 1
RightSLing.IsDropped = 1:RightSLing2.IsDropped = 1:RightSLing3.IsDropped = 1
RuleWindow = 0
End Sub
Sub table1_Paused:Controller.Pause = 1:End Sub
Sub table1_unPaused:Controller.Pause = 0:End Sub
'**********
' Keys
'**********
Sub table1_KeyDown(ByVal Keycode)
If keycode = PlungerKey Then Controller.Switch(11) = 1
If keycode = LeftTiltKey Then LeftNudge 80, 1.2, 20:PlaySound "nudge_left"
If keycode = RightTiltKey Then RightNudge 280, 1.2, 20:PlaySound "nudge_right"
If keycode = CenterTiltKey Then CenterNudge 0, 1.6, 25:PlaySound "nudge_forward"
If keycode = 45 Then LeftNudge 80, 2, 30:PlaySound "nudge_left"
If keycode = 52 Then RightNudge 280, 2, 30:PlaySound "nudge_right"
If keycode = KeyRules Then Rules
If vpmKeyDown(keycode) Then Exit Sub
End Sub
Sub table1_KeyUp(ByVal Keycode)
If keycode = PlungerKey Then Controller.Switch(11) = 0
If vpmKeyUp(keycode) Then Exit Sub
End Sub
'*************************************
' Nudge System
' based on Noah's nudgetest table
'*************************************
Dim LeftNudgeEffect, RightNudgeEffect, NudgeEffect
Sub LeftNudge(angle, strength, delay)
vpmNudge.DoNudge angle, (strength * (delay-LeftNudgeEffect) / delay) + RightNudgeEffect / delay
LeftNudgeEffect = delay
RightNudgeEffect = 0
RightNudgeTimer.Enabled = 0
LeftNudgeTimer.Interval = delay
LeftNudgeTimer.Enabled = 1
End Sub
Sub RightNudge(angle, strength, delay)
vpmNudge.DoNudge angle, (strength * (delay-RightNudgeEffect) / delay) + LeftNudgeEffect / delay
RightNudgeEffect = delay
LeftNudgeEffect = 0
LeftNudgeTimer.Enabled = 0
RightNudgeTimer.Interval = delay
RightNudgeTimer.Enabled = 1
End Sub
Sub CenterNudge(angle, strength, delay)
vpmNudge.DoNudge angle, strength * (delay-NudgeEffect) / delay
NudgeEffect = delay
NudgeTimer.Interval = delay
NudgeTimer.Enabled = 1
End Sub
Sub LeftNudgeTimer_Timer()
LeftNudgeEffect = LeftNudgeEffect-1
If LeftNudgeEffect = 0 then LeftNudgeTimer.Enabled = False
End Sub
Sub RightNudgeTimer_Timer()
RightNudgeEffect = RightNudgeEffect-1
If RightNudgeEffect = 0 then RightNudgeTimer.Enabled = False
End Sub
Sub NudgeTimer_Timer()
NudgeEffect = NudgeEffect-1
If NudgeEffect = 0 then NudgeTimer.Enabled = False
End Sub
'*********
' Switches
'*********
' Slings & div switches
Dim LStep, RStep
Sub LeftSlingShot_Slingshot:LeftSling.IsDropped = 0:PlaySound "slingshot":vpmTimer.PulseSw 51:LStep = 0:Me.TimerEnabled = 1:End Sub
Sub LeftSlingShot_Timer
Select Case LStep
Case 0:LeftSLing.IsDropped = 0
Case 1: 'pause
Case 2:LeftSLing.IsDropped = 1:LeftSLing2.IsDropped = 0
Case 3:LeftSLing2.IsDropped = 1:LeftSLing3.IsDropped = 0
Case 4:LeftSLing3.IsDropped = 1:Me.TimerEnabled = 0
End Select
LStep = LStep + 1
End Sub
Sub RightSlingShot_Slingshot:RightSling.IsDropped = 0:PlaySound "slingshot":vpmTimer.PulseSw 52:RStep = 0:Me.TimerEnabled = 1:End Sub
Sub RightSlingShot_Timer
Select Case RStep
Case 0:RightSLing.IsDropped = 0
Case 1: 'pause
Case 2:RightSLing.IsDropped = 1:RightSLing2.IsDropped = 0
Case 3:RightSLing2.IsDropped = 1:RightSLing3.IsDropped = 0
Case 4:RightSLing3.IsDropped = 1:Me.TimerEnabled = 0
End Select
RStep = RStep + 1
End Sub
' Bumpers
Sub LBumper_Hit:vpmTimer.PulseSw 53:PlaySound "bumper1":bump1 = 1:Me.TimerEnabled = 1:End Sub
Sub LBumper_Timer()
Select Case bump1
Case 1:Ring1a.IsDropped = 0:bump1 = 2
Case 2:Ring1b.IsDropped = 0:Ring1a.IsDropped = 1:bump1 = 3
Case 3:Ring1c.IsDropped = 0:Ring1b.IsDropped = 1:bump1 = 4
Case 4:Ring1c.IsDropped = 1:Me.TimerEnabled = 0
End Select
End Sub
Sub BBumper_Hit:vpmTimer.PulseSw 54:PlaySound "bumper2":bump2 = 1:Me.TimerEnabled = 1:End Sub
Sub BBumper_Timer()
Select Case bump2
Case 1:Ring2a.IsDropped = 0:bump2 = 2
Case 2:Ring2b.IsDropped = 0:Ring2a.IsDropped = 1:bump2 = 3
Case 3:Ring2c.IsDropped = 0:Ring2b.IsDropped = 1:bump2 = 4
Case 4:Ring2c.IsDropped = 1:Me.TimerEnabled = 0
End Select
End Sub
Sub RBumper_Hit:vpmTimer.PulseSw 55:PlaySound "bumper3":bump3 = 1:Me.TimerEnabled = 1:End Sub
Sub RBumper_Timer()
Select Case bump3
Case 1:Ring3a.IsDropped = 0:bump3 = 2
Case 2:Ring3b.IsDropped = 0:Ring3a.IsDropped = 1:bump3 = 3
Case 3:Ring3c.IsDropped = 0:Ring3b.IsDropped = 1:bump3 = 4
Case 4:Ring3c.IsDropped = 1:Me.TimerEnabled = 0
End Select
End Sub
' Drain holes, vuks & saucers
Sub Drain_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub Drain1_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub Drain2_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub Drain3_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub Drain4_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub Drain5_Hit:Playsound "drain":bsTrough.AddBall Me:End Sub
Sub sw36a_Hit:PlaySound "kicker_enter":bsL.AddBall Me:End Sub
Sub sw37a_Hit:PlaySound "kicker_enter":bsR.AddBall Me:End Sub
' Holes with animation
Dim aBall, aZpos
Dim bBall, bZpos
Sub sw78_Hit
Me.Enabled=0
Set aBall = ActiveBall
PlaySound "ballhit"
aZpos = 35
Me.TimerInterval = 2
Me.TimerEnabled = 1
End Sub
Sub sw78_Timer
aBall.Z = aZpos
aZpos = aZpos-4
If aZpos <-30 Then
Me.TimerEnabled = 0
Me.DestroyBall
vpmTimer.PulseSwitch(78), 150, "bsl.addball 0 '"
Me.Enabled=1
End If
End Sub
Sub sw37_Hit
Me.Enabled=0
Set bBall = ActiveBall
PlaySound "ballhit"
bZpos = 35
Me.TimerInterval = 2
Me.TimerEnabled = 1
End Sub
Sub sw37_Timer
bBall.Z = bZpos
bZpos = bZpos-4
If bZpos <-30 Then
Me.TimerEnabled = 0
Me.DestroyBall
bsR.AddBall Me
Me.Enabled=1
End If
End Sub
' Rollovers & Ramp Switches
Sub sw16_Hit:la1.IsDropped = 1:Controller.Switch(16) = 1:PlaySound "sensor":End Sub
Sub sw16_UnHit:la1.IsDropped = 0:Controller.Switch(16) = 0:End Sub
Sub sw26_Hit:la3.IsDropped = 1:Controller.Switch(26) = 1:PlaySound "sensor":End Sub
Sub sw26_UnHit:la3.IsDropped = 0:Controller.Switch(26) = 0:End Sub
Sub sw17_Hit:la5.IsDropped = 1:Controller.Switch(17) = 1:PlaySound "sensor":End Sub
Sub sw17_UnHit:la5.IsDropped = 0:Controller.Switch(17) = 0:End Sub
Sub sw27_Hit:la7.IsDropped = 1:Controller.Switch(27) = 1:PlaySound "sensor":End Sub
Sub sw27_UnHit:la7.IsDropped = 0:Controller.Switch(27) = 0:End Sub
Sub sw38_Hit:Controller.Switch(38) = 1:PlaySound "sensor":End Sub
Sub sw38_Unhit:Controller.Switch(38) = 0:End Sub
Sub sw48_Hit:Controller.Switch(48) = 1:PlaySound "sensor":End Sub
Sub sw48_Unhit:Controller.Switch(48) = 0:End Sub
Sub sw71_Hit:la11.IsDropped = 1:Controller.Switch(71) = 1:PlaySound "sensor":End Sub
Sub sw71_UnHit:la11.IsDropped = 0:Controller.Switch(71) = 0:End Sub
Sub sw72_Hit:la9.IsDropped = 1:Controller.Switch(72) = 1:PlaySound "sensor":End Sub
Sub sw72_Unhit:la9.IsDropped = 0:Controller.Switch(72) = 0:End Sub
Sub sw73_Hit:Controller.Switch(73) = 1:PlaySound "sensor":End Sub
Sub sw73_Unhit:Controller.Switch(73) = 0:End Sub
Sub sw74_Hit:la19.IsDropped = 1:Controller.Switch(74) = 1:PlaySound "sensor":End Sub
Sub sw74_Unhit:la19.IsDropped = 0:Controller.Switch(74) = 0:End Sub
Sub sw61_Hit
Controller.Switch(61) = 1
If ActiveBall.VelY <-20 Then ActiveBall.VelY = -20
End Sub
Sub sw61_Unhit:Controller.Switch(61) = 0:End Sub
Sub sw62_Hit
Controller.Switch(62) = 1
If ActiveBall.VelX> 20 Then ActiveBall.VelX = 20
End Sub
Sub sw62_Unhit:Controller.Switch(62) = 0:End Sub
Sub sw63_Hit
Controller.Switch(63) = 1
If ActiveBall.VelY <-20 Then ActiveBall.VelY = -20
End Sub
Sub sw63_Unhit:Controller.Switch(63) = 0:End Sub
Sub sw64_Hit:Controller.Switch(64) = 1:End Sub
Sub sw64_Unhit:Controller.Switch(64) = 0:End Sub
Sub sw65_Hit:Controller.Switch(65) = 1:PlaySound"metalrolling":End Sub
Sub sw65_Unhit:Controller.Switch(65) = 0:End Sub
' Targets
Sub sw56_Hit:vpmTimer.PulseSw 56:sw56.IsDropped = 1:sw56a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw56_Timer:sw56.IsDropped = 0:sw56a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw57_Hit:vpmTimer.PulseSw 57:sw57.IsDropped = 1:sw57a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw57_Timer:sw57.IsDropped = 0:sw57a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw58_Hit:vpmTimer.PulseSw 58:sw58.IsDropped = 1:sw58a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw58_Timer:sw58.IsDropped = 0:sw58a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw41_Hit:vpmTimer.PulseSw 41:sw41.IsDropped = 1:sw41a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw41_Timer:sw41.IsDropped = 0:sw41a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw42_Hit:vpmTimer.PulseSw 42:sw42.IsDropped = 1:sw42a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw42_Timer:sw42.IsDropped = 0:sw42a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw43_Hit:vpmTimer.PulseSw 43:sw43.IsDropped = 1:sw43a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw43_Timer:sw43.IsDropped = 0:sw43a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw44_Hit:vpmTimer.PulseSw 44:sw44.IsDropped = 1:sw44a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw44_Timer:sw44.IsDropped = 0:sw44a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw75_Hit:vpmTimer.PulseSw 75:sw75.IsDropped = 1:sw75a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw75_Timer:sw75.IsDropped = 0:sw75a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw76_Hit:vpmTimer.PulseSw 76:sw76.IsDropped = 1:sw76a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw76_Timer:sw76.IsDropped = 0:sw76a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw45_Hit:vpmTimer.PulseSw 45:sw45.IsDropped = 1:sw45a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw45_Timer:sw45.IsDropped = 0:sw45a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw46_Hit:vpmTimer.PulseSw 46:sw46.IsDropped = 1:sw46a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw46_Timer:sw46.IsDropped = 0:sw46a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
Sub sw47_Hit:vpmTimer.PulseSw 47:sw47.IsDropped = 1:sw47a.IsDropped = 0:Me.TimerEnabled = 1:PlaySound "target":End Sub
Sub sw47_Timer:sw47.IsDropped = 0:sw47a.IsDropped = 1:Me.TimerEnabled = 0:End Sub
' Droptarget
Sub sw77_Hit:dtDrop.Hit 1:LEDSpeedFast:End Sub
' Gates
Sub RGate_Hit():PlaySound "gate":End Sub
Sub LGate_Hit():PlaySound "gate":End Sub
' Ramps helpers
Sub RHelp1_Hit()
ActiveBall.VelZ = -2
ActiveBall.VelY = 0
ActiveBall.VelX = 0
StopSound "metalrolling"
PlaySound "ballhit"
End Sub
Sub RHelp2_Hit()
ActiveBall.VelZ = -2
ActiveBall.VelY = 0
ActiveBall.VelX = 0
StopSound "metalrolling"
PlaySound "ballhit"
End Sub
'*********
'Solenoids
'*********
SolCallback(1) = "Auto_Plunger"
SolCallback(2) = "SolRelease"
SolCallback(3) = "bsL.SolOut"
SolCallback(4) = "bsR.SolOut"
SolCallback(5) = "SolAlien5"
SolCallback(6) = "SolAlien6"
SolCallback(7) = "vpmSolSound ""Knocker"","
SolCallback(
= "SolAlien8"
SolCallback(14) = "SolAlien14"
SolCallBack(15) = "SolUfoShake"
SolCallback(16) = "dtDrop.SolDropUp"
SolCallback(17) = "SetLamp 117,"
SolCallback(18) = "SetLamp 118,"
SolCallback(19) = "SetLamp 119,"
SolCallBack(20) = "SolFlash20"
SolCallback(21) = "SetLamp 121,"
SolCallback(22) = "SetLamp 122,"
SolCallback(23) = "SolUfoFlash"
SolCallback(25) = "SetLamp 125,"
SolCallback(26) = "SetLamp 126,"
SolCallback(27) = "SetLamp 127,"
SolCallBack(28) = "SolFlash28"
SolCallback(33) = "vpmSolGate RGate,false,"
SolCallback(34) = "vpmSolGate LGate,false,"
SolCallback(36) = "SolDiv"
SolCallback(43) = "SolStrobe"
Sub Auto_Plunger(Enabled)
If Enabled Then
PlungerIM.AutoFire
End If
End Sub
'**************
' Flipper Subs
'**************
SolCallback(sLRFlipper) = "SolRFlipper"
SolCallback(sLLFlipper) = "SolLFlipper"
Sub SolLFlipper(Enabled)
If Enabled Then
PlaySound SFlipperOn:LeftFlipper.RotateToEnd
Llogo.IsDropped = 1:Llogo2.IsDropped = 0
Else
PlaySound SFlipperOff:LeftFlipper.RotateToStart
Llogo2.IsDropped = 1:Llogo.IsDropped = 0
End If
End Sub
Sub SolRFlipper(Enabled)
If Enabled Then
PlaySound SFlipperOn:RightFlipper.RotateToEnd
Rlogo.IsDropped = 1:Rlogo2.IsDropped = 0
Else
PlaySound SFlipperOff:RightFlipper.RotateToStart
Rlogo2.IsDropped = 1:Rlogo.IsDropped = 0
End If
End Sub
Sub LeftFlipper_Collide(parm)
PlaySound "rubber_flipper"
End Sub
Sub RightFlipper_Collide(parm)
PlaySound "rubber_flipper"
End Sub
'************************
' Diverter animation
'************************
Sub SolDiv(Enabled)
If Enabled Then
DiverterDir = 1
Else
DiverterDir = -1
End If
Diverter.Enabled = 0
If DiverterPos <1 Then DiverterPos = 1
If DiverterPos> 5 Then DiverterPos = 5
Diverter.Enabled = 1
End Sub
Sub Diverter_Timer()
Select Case DiverterPos
Case 0:Diverter1.IsDropped = 0:Diverter2.IsDropped = 1:Diverter.Enabled = 0
Case 1:Diverter2.IsDropped = 0:Diverter1.IsDropped = 1:Diverter3.IsDropped = 1
Case 2:Diverter3.IsDropped = 0:Diverter2.IsDropped = 1:Diverter4.IsDropped = 1
Case 3:Diverter4.IsDropped = 0:Diverter3.IsDropped = 1:Diverter5.IsDropped = 1
Case 4:Diverter5.IsDropped = 0:Diverter4.IsDropped = 1:Diverter6.IsDropped = 1
Case 5:Diverter6.IsDropped = 0:Diverter5.IsDropped = 1
Case 6:Diverter.Enabled = 0
End Select
DiverterPos = DiverterPos + DiverterDir
End Sub
Sub SolAlien5(Enabled):a5.isdropped = Enabled:a5a.Isdropped = Not Enabled:PlaySound "rubber":End Sub
Sub SolAlien6(Enabled):a6.isdropped = Enabled:a6a.Isdropped = Not Enabled:PlaySound "rubber":End Sub
Sub SolAlien8(Enabled):a8.isdropped = Enabled:a8a.Isdropped = Not Enabled:PlaySound "rubber":End Sub
Sub SolAlien14(Enabled):a14.isdropped = Enabled:a14a.Isdropped = Not Enabled:PlaySound "rubber":End Sub
Sub SolRelease(Enabled)
If Enabled And bsTrough.Balls> 0 Then
vpmTimer.PulseSw 31
bsTrough.ExitSol_On
End If
End Sub
Sub SolFlash20(Enabled):f20.IsDropped = NOT Enabled:End Sub
Sub SolFlash28(Enabled):f28.IsDropped = NOT Enabled:End Sub
Sub SolStrobe(Enabled)
Strobe.IsDropped = NOT Enabled
Strobe2.IsDropped = NOT Enabled
Strobe3.IsDropped = NOT Enabled
Strobe4.IsDropped = NOT Enabled
Strobe5.IsDropped = NOT Enabled
End Sub
'******************
' UFO Shake & Flash
'******************
Dim BigUfo, UfoAnimPos, UfoFlash, UfoStat, UfoLedPos, UfoPos
UfoAnimPos = 0:UfoStat = 0:UfoFlash = 0 'Ufoflash is 0 or 10 - UfoStat is 0 when the animation is off
UfoLedPos = 0
UfoPos = 0
BigUfo = Array(BigUfo0, BigUfo1, BigUfo2, BigUfo3, BigUfo4, BigUfo5, BigUfo6, BigUfo7, BigUfo8, BigUfo9, _
BigUfo10, BigUfo11, BigUfo12, BigUfo13, BigUfo14, BigUfo15, BigUfo16, BigUfo17, BigUfo18, BigUfo19)
Sub InitBigUfo
Dim i
For each i in BigUfo:i.IsDropped = 1:Next
BigUfo0.isDropped = 0
End Sub
Sub SolUfoShake(Enabled)
If Enabled Then
UfoAnimPos = 0
UfoShake.Interval = 20
UfoShake.Enabled = 1
End If
End Sub
Sub SolUfoFlash(Enabled)
If Enabled Then
UfoFlash = 10
Else
UfoFlash = 0
End If
End Sub
Sub UfoShake_Timer()
Select Case UfoAnimPos
Case 0:UfoLed.Enabled = 0:BigUfo(UfoPos).IsDropped = 1:UfoPos = 3 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 1:BigUfo(UfoPos).IsDropped = 1:UfoPos = 4 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 2:BigUfo(UfoPos).IsDropped = 1:UfoPos = 3 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 3:BigUfo(UfoPos).IsDropped = 1:UfoPos = 2 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 4:BigUfo(UfoPos).IsDropped = 1:UfoPos = 5 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 5:BigUfo(UfoPos).IsDropped = 1:UfoPos = 6 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 6:BigUfo(UfoPos).IsDropped = 1:UfoPos = 5 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 7:BigUfo(UfoPos).IsDropped = 1:UfoPos = 7 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 8:BigUfo(UfoPos).IsDropped = 1:UfoPos = 8 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 9:BigUfo(UfoPos).IsDropped = 1:UfoPos = 9 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 10:BigUfo(UfoPos).IsDropped = 1:UfoPos = 8 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 11:BigUfo(UfoPos).IsDropped = 1:UfoPos = 2 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 12:BigUfo(UfoPos).IsDropped = 1:UfoPos = 5 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 13:BigUfo(UfoPos).IsDropped = 1:UfoPos = 2 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 14:BigUfo(UfoPos).IsDropped = 1:UfoPos = 8 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 15:BigUfo(UfoPos).IsDropped = 1:UfoPos = 2 + UfoFlash:BigUfo(UfoPos).IsDropped = 0
Case 16:Me.Enabled = 0:UfoLed.Enabled = 1
End Select
UfoAnimPos = UfoAnimPos + 1
End Sub
Sub UFOLed_Timer()
Select Case UfoLedPos
Case 0:BigUfo(UfoPos).IsDropped = 1:UfoPos = 0 + UfoFlash:BigUfo(UfoPos).IsDropped = 0:UfoLedPos = 1
Case 1:BigUfo(UfoPos).IsDropped = 1:UfoPos = 1 + UfoFlash:BigUfo(UfoPos).IsDropped = 0:UfoLedPos = 2
Case 2:BigUfo(UfoPos).IsDropped = 1:UfoPos = 2 + UfoFlash:BigUfo(UfoPos).IsDropped = 0:UfoLedPos = 0
End Select
End Sub
'******************
'Motor Bank Up Down
'******************
Dim Bank, s45, s46, s47, Post1, Post2, Post3
Bank = Array(Bank0, Bank1, Bank2, Bank3, Bank4, Bank5, Bank6, Bank7, underpf, underpf, underpf)
s45 = Array(sw45, s451, s452, s453, s454, s455, s456, s457, underpf, underpf)
s46 = Array(sw46, s461, s462, s463, s464, s465, s466, s467, underpf, underpf)
s47 = Array(sw47, s471, s472, s473, s474, s475, s476, s477, underpf, underpf)
Post1 = Array(Post10, Post11, Post12, Post13, Post14, Post15, Post16, Post17, underpf, underpf)
Post2 = Array(Post20, Post21, Post22, Post23, Post24, Post25, Post26, Post27, underpf, underpf)
Post3 = Array(Post30, Post31, Post32, Post33, Post34, Post35, Post36, Post37, underpf, underpf)
Sub Init3Bank()
For x = 1 To 7
Bank(x).IsDropped = 1
s45(x).IsDropped = 1
s46(x).IsDropped = 1
s47(x).IsDropped = 1
Post1(x).IsDropped = 1
Post2(x).IsDropped = 1
Post3(x).IsDropped = 1
Next
End Sub
Sub Update3Bank(currpos, currspeed, lastpos)
If currpos <> lastpos Then
Bank(lastpos).IsDropped = 1
s45(lastpos).IsDropped = 1
s46(lastpos).IsDropped = 1
s47(lastpos).IsDropped = 1
Post1(lastpos).IsDropped = 1
Post2(lastpos).IsDropped = 1
Post3(lastpos).IsDropped = 1
Bank(currpos).IsDropped = 0
s45(currpos).IsDropped = 0
s46(currpos).IsDropped = 0
s47(currpos).IsDropped = 0
Post1(currpos).IsDropped = 0
Post2(currpos).IsDropped = 0
Post3(currpos).IsDropped = 0
End If
If currpos = 7 Then LEDSpeedMedium
If currpos = 0 Then LEDSpeedSlow
End Sub
'***********
' Update GI
'***********
Sub UpdateGI(no, Enabled)
Select Case no
Case 0
gi1.IsDropped = Not Enabled
gi2.IsDropped = Not Enabled
gi3.IsDropped = Not Enabled
gi3b.IsDropped = Not Enabled
gi3c.IsDropped = Not Enabled
gi3d.State = ABS(Enabled)
gi3e.State = ABS(Enabled)
gi3f.State = ABS(Enabled)
gi4.IsDropped = Not Enabled
gi4b.IsDropped = Not Enabled
gi4c.IsDropped = Not Enabled
gi4d.State = ABS(Enabled)
gi4e.State = ABS(Enabled)
gi4f.State = ABS(Enabled)
Case 1
gi5.IsDropped = Not Enabled
gi6.IsDropped = Not Enabled
Case 2
gi7.IsDropped = Not Enabled
gi8.IsDropped = Not Enabled
gi9.IsDropped = Not Enabled
gi10.IsDropped = Not Enabled
gi11.IsDropped = Not Enabled
Lbumper.State = ABS(Enabled)
BBumper.State = ABS(Enabled)
RBumper.State = ABS(Enabled)
End Select
End Sub
'**************
' Init Flashers
'**************
Sub InitFlashers()
f20.IsDropped = 1
f28.IsDropped = 1
Strobe.IsDropped = 1
Strobe2.IsDropped = 1
Strobe3.IsDropped = 1
Strobe4.IsDropped = 1
Strobe5.IsDropped = 1
End Sub
'******************************
' Small and Big UFOs LEDs Speed
'******************************
Sub LEDSpeedSlow()
Dim Obj
UfoLed.Interval = 400
f19.TimerInterval = 175
f17.TimerInterval = 175
f18.TimerInterval = 175
f26.TimerInterval = 175
f25.TimerInterval = 175
f27.TimerInterval = 175
End Sub
Sub LEDSpeedMedium()
Dim obj
UfoLed.Interval = 300
f19.TimerInterval = 125
f17.TimerInterval = 125
f18.TimerInterval = 125
f26.TimerInterval = 125
f25.TimerInterval = 125
f27.TimerInterval = 125
End Sub
Sub LEDSPeedFast()
Dim obj
UfoLed.Interval = 150
f19.TimerInterval = 75
f17.TimerInterval = 75
f18.TimerInterval = 75
f26.TimerInterval = 75
f25.TimerInterval = 75
f27.TimerInterval = 75
End Sub
'***********
' Small UFOS
'***********
Dim UFO19, UFO19Pos
Dim UFO17, UFO17Pos
Dim UFO18, UFO18Pos
Dim UFO26, UFO26Pos
Dim UFO25, UFO25Pos
Dim UFO27, UFO27Pos
UFO19 = Array(f190, f191, f192, f193, f194, f195, f196, f197, f198)
UFO17 = Array(f170, f171, f172, f173, f174, f175, f176, f177, f170)
UFO18 = Array(f180, f181, f182, f183, f184, f185, f186, f187, f180)
UFO26 = Array(f260, f261, f262, f263, f264, f265, f266, f267, f260)
UFO25 = Array(f250, f251, f252, f253, f254, f255, f256, f257, f258)
UFO27 = Array(f270, f271, f272, f273, f274, f275, f276, f277, f278)
UFO19Pos = 0
UFO17Pos = 0
UFO18Pos = 0
UFO26Pos = 0
UFO25Pos = 0
UFO26Pos = 0
vpmSolToggleObj UFO19, Nothing, False, True
vpmSolToggleObj UFO17, Nothing, False, True
vpmSolToggleObj UFO18, Nothing, False, True
vpmSolToggleObj UFO26, Nothing, False, True
vpmSolToggleObj UFO25, Nothing, False, True
vpmSolToggleObj UFO27, Nothing, False, True
Sub F19_Timer
UFO19(UFO19Pos).IsDropped = 1
UFO19Pos = UFO19Pos + 1
If UFO19Pos > 8 Then UFO19Pos = 0
UFO19(UFO19Pos).IsDropped = 0
End Sub
Sub F17_Timer
UFO17(UFO17Pos).IsDropped = 1
UFO17Pos = UFO17Pos + 1
If UFO17Pos > 8 Then UFO17Pos = 0
UFO17(UFO17Pos).IsDropped = 0
End Sub
Sub F18_Timer
UFO18(UFO18Pos).IsDropped = 1
UFO18Pos = UFO18Pos + 1
If UFO18Pos > 8 Then UFO18Pos = 0
UFO18(UFO18Pos).IsDropped = 0
End Sub
Sub F26_Timer
UFO26(UFO26Pos).IsDropped = 1
UFO26Pos = UFO26Pos + 1
If UFO26Pos > 8 Then UFO26Pos = 0
UFO26(UFO26Pos).IsDropped = 0
End Sub
Sub F25_Timer
UFO25(UFO25Pos).IsDropped = 1
UFO25Pos = UFO25Pos + 1
If UFO25Pos > 8 Then UFO25Pos = 0
UFO25(UFO25Pos).IsDropped = 0
End Sub
Sub F27_Timer
UFO27(UFO27Pos).IsDropped = 1
UFO27Pos = UFO27Pos + 1
If UFO27Pos > 8 Then UFO27Pos = 0
UFO27(UFO27Pos).IsDropped = 0
End Sub
'**************
' Extra sounds
'**************
Sub Rubbers_Hit(idx):PlaySound "Rubber":End Sub
Sub Metals_Hit(idx):PlaySound "metalhit":End Sub
Sub RSound1_Hit: PlaySound"metalrolling": End Sub
Sub RSound2_Hit: PlaySound"metalrolling": End Sub
'****************************************
' JP's Fading Lamps 3.6 VP9 Fading only
' Based on PD's Fading Lights
' SetLamp 0 is Off
' SetLamp 1 is On
' LampState(x) current state
'****************************************
Dim LampState(200)
AllLampsOff()
LampTimer.Interval = 35
LampTimer.Enabled = 1
Sub LampTimer_Timer()
Dim chgLamp, num, chg, ii
chgLamp = Controller.ChangedLamps
If Not IsEmpty(chgLamp) Then
For ii = 0 To UBound(chgLamp)
LampState(chgLamp(ii, 0) ) = chgLamp(ii, 1) + 4
Next
End If
UpdateLamps
End Sub
Sub UpdateLamps
FadeL 11, l11, l11a
FadeL 12, l12, l12a
FadeL 13, l13, l13a
FadeL 14, l14, l14a
FadeL 15, l15, l15a
FadeL 16, l16, l16a
FadeL 17, l17, l17a
FadeL 18, l18, l18a
FadeL 21, l21, l21a
FadeL 22, l22, l22a
FadeL 23, l23, l23a
FadeL 24, l24, l24a
FadeL 25, l25, l25a
FadeL 26, l26, l26a
FadeL 27, l27, l27a
FadeL 28, l28, l28a
FadeL 31, l31, l31a
FadeL 32, l32, l32a
FadeL 33, l33, l33a
FadeL 34, l34, l34a
FadeL 35, l35, l35a
FadeL 36, l36, l36a
FadeL 37, l37, l37a
FadeL 38, l38, l38a
FadeL 41, l41, l41a
FadeL 42, l42, l42a
FadeL 43, l43, l43a
FadeL 44, l44, l44a
FadeL 45, l45, l45a
FadeL 46, l46, l46a
FadeL 47, l47, l47a
FadeL 48, l48, l48a
FadeL 51, l51, l51a
FadeL 52, l52, l52a
FadeL 53, l53, l53a
FadeL 54, l54, l54a
FadeL 55, l55, l55a
FadeL 56, l56, l56a
FadeL 57, l57, l57a
FadeL 58, l58, l58a
FadeL 61, l61, l61a
FadeL 62, l62, l62a
FadeL 63, l63, l63a
FadeL 64, l64, l64a
FadeL 65, l65, l65a
FadeL 66, l66, l66a
FadeL 67, l67, l67a
FadeL 68, l68, l68a
FadeL 71, l71, l71a
FadeL 72, l72, l72a
FadeL 73, l73, l73a
FadeL 74, l74, l74a
FadeL 75, l75, l75a
FadeL 76, l76, l76a
FadeL 77, l77, l77a
FadeL 78, l78, l78a
FadeL 81, l81, l81a
FadeL 82, l82, l82a
FadeL 83, l83, l83a
FadeL 84, l84, l84a
FadeL 85, l85, l85a
NFadeL 86, l86
NFadeL 88, l88
'flashers
FadeL 121, f21, f21a
FadeL 122, f22, f22a
'Reflections
FadeWm 117, r17, r17a, r17b
FadeWm 118, r18, r18a, r18b
FadeWm 119, r19, r19a, r19b
FadeWm 125, r25, r25a, r25b
FadeWm 127, r27, r27a, r27b
'flashers
Ufo 117, f17, f17a, f17b, UFO17(UFO17Pos)
Ufo 118, f18, f18a, f18b, UFO18(UFO18Pos)
Ufo 119, f19, f19a, f19b, UFO19(UFO19Pos)
Ufo 125, f25, f25a, f25b, UFO25(UFO25Pos)
Ufo 126, f26, f26a, f26b, UFO26(UFO26Pos)
Ufo 127, f27, f27a, f27b, UFO27(UFO27Pos)
End Sub
Sub AllLampsOff():For x = 1 to 200:LampState(x) = 4:Next:UpdateLamps:UpdateLamps:Updatelamps:End Sub
Sub SetLamp(nr, value):LampState(nr) = abs(value) + 4:End Sub
Sub FadeW(nr, a, b, c)
Select Case LampState(nr)
Case 2:c.IsDropped = 1:LampState(nr) = 0 'Off
Case 3:b.IsDropped = 1:c.IsDropped = 0:LampState(nr) = 2 'fading...
Case 4:a.IsDropped = 1:b.IsDropped = 0:LampState(nr) = 3 'fading...
Case 5:c.IsDropped = 1:a.IsDropped = 0:LampState(nr) = 1 'ON
End Select
End Sub
Sub FadeWm(nr, a, b, c)
Select Case LampState(nr)
Case 2:c.IsDropped = 1
Case 3:b.IsDropped = 1:c.IsDropped = 0
Case 4:a.IsDropped = 1:b.IsDropped = 0
Case 5:c.IsDropped = 1:a.IsDropped = 0
End Select
End Sub
Sub NFadeW(nr, a)
Select Case LampState(nr)
Case 4:a.IsDropped = 1:LampState(nr) = 0
Case 5:a.IsDropped = 0:LampState(nr) = 1
End Select
End Sub
Sub NFadeWm(nr, a)
Select Case LampState(nr)
Case 4:a.IsDropped = 1
Case 5:a.IsDropped = 0
End Select
End Sub
Sub NFadeWi(nr, a)
Select Case LampState(nr)
Case 5:a.IsDropped = 1:LampState(nr) = 0
Case 4:a.IsDropped = 0:LampState(nr) = 1
End Select
End Sub
Sub FadeL(nr, a, b)
Select Case LampState(nr)
Case 2:b.state = 0:LampState(nr) = 0
Case 3:b.state = 1:LampState(nr) = 2
Case 4:a.state = 0:LampState(nr) = 3
Case 5:a.state = 1:LampState(nr) = 1
End Select
End Sub
Sub FadeLm(nr, a, b)
Select Case LampState(nr)
Case 2:b.state = 0
Case 3:b.state = 1
Case 4:a.state = 0
Case 5:a.state = 1
End Select
End Sub
Sub NFadeL(nr, a)
Select Case LampState(nr)
Case 4:a.state = 0:LampState(nr) = 0
Case 5:a.State = 1:LampState(nr) = 1
End Select
End Sub
Sub NFadeLm(nr, a)
Select Case LampState(nr)
Case 4:a.state = 0
Case 5:a.State = 1
End Select
End Sub
Sub FadeOldL(nr, a, b, c)
Select Case LampState(nr)
Case 2:c.state = 0:LampState(nr) = 0
Case 3:b.state = 0:c.state = 1:LampState(nr) = 2
Case 4:a.state = 0:b.state = 1:LampState(nr) = 3
Case 5:b.state = 0:c.state = 0:a.state = 1:LampState(nr) = 1
End Select
End Sub
Sub FadeOldLm(nr, a, b, c)
Select Case LampState(nr)
Case 2:c.state = 0
Case 3:b.state = 0:c.state = 1
Case 4:a.state = 0:b.state = 1
Case 5:b.state = 0:c.state = 0:a.state = 1
End Select
End Sub
Sub FadeR(nr, a)
Select Case LampState(nr)
Case 2:a.SetValue 3:LampState(nr) = 0
Case 3:a.SetValue 2:LampState(nr) = 2
Case 4:a.SetValue 1:LampState(nr) = 3
Case 5:a.SetValue 0:LampState(nr) = 1
End Select
End Sub
Sub FadeRm(nr, a)
Select Case LampState(nr)
Case 2:a.SetValue 3
Case 3:a.SetValue 2
Case 4:a.SetValue 1
Case 5:a.SetValue 0
End Select
End Sub
Sub NFadeT(nr, a, b)
Select Case LampState(nr)
Case 4:a.Text = "":LampState(nr) = 0
Case 5:a.Text = b:LampState(nr) = 1
End Select
End Sub
Sub NFadeTm(nr, a, b)
Select Case LampState(nr)
Case 4:a.Text = ""
Case 5:a.Text = b
End Select
End Sub
Sub NFadeWi(nr, a)
Select Case LampState(nr)
Case 4:a.IsDropped = 0:LampState(nr) = 0
Case 5:a.IsDropped = 1:LampState(nr) = 1
End Select
End Sub
Sub NFadeWim(nr, a)
Select Case LampState(nr)
Case 4:a.IsDropped = 0
Case 5:a.IsDropped = 1
End Select
End Sub
Sub FadeLCo(nr, a, b) 'fading collection of lights
Dim obj
Select Case LampState(nr)
Case 2:vpmSolToggleObj b, Nothing, 0, 0:LampState(nr) = 0
Case 3:vpmSolToggleObj b, Nothing, 0, 1:LampState(nr) = 2
Case 4:vpmSolToggleObj a, Nothing, 0, 0:LampState(nr) = 3
Case 5:vpmSolToggleObj a, Nothing, 0, 1:LampState(nr) = 1
End Select
End Sub
Sub FlashL(nr, a, b) ' simple light flash, not controlled by the rom
Select Case LampState(nr)
Case 2:b.state = 0:LampState(nr) = 0
Case 3:b.state = 1:LampState(nr) = 2
Case 4:a.state = 0:LampState(nr) = 3
Case 5:a.state = 1:LampState(nr) = 4
End Select
End Sub
Sub MFadeL(nr, a, b, c) 'Light acting as a flash. C is the light number to be restored
Select Case LampState(nr)
Case 2:b.state = 0:LampState(nr) = 0
If LampState(c) = 1 Then SetLamp c, 1
Case 3:b.state = 1:LampState(nr) = 2
Case 4:a.state = 0:LampState(nr) = 3
Case 5:a.state = 1:LampState(nr) = 1
End Select
End Sub
' Special for this table
Sub Ufo(nr, a, b, c, d) 'a is the ON state of the Flasher and it is the timer, b abd c are the inbetween fading states, d is the current led position to be turned off
Select Case LampState(nr)
Case 2:c.IsDropped = 1:LampState(nr) = 0:a.TimerEnabled = 1 'Off, and turn on the small leds again
Case 3:b.IsDropped = 1:c.IsDropped = 0:LampState(nr) = 2 'fading to off
Case 4:a.IsDropped = 1:b.IsDropped = 0:LampState(nr) = 3 'fading to off
Case 5:a.TimerEnabled = 0:d.IsDropped = 1:b.IsDropped = 1:c.IsDropped = 0:LampState(nr) = 6 'turning ON, and turn off the small leds
Case 6:c.IsDropped = 1:a.IsDropped = 0:LampState(nr) = 1 'ON
End Select
End Sub
'***************
' Rules
'***************
Dim RuleWindow
RuleWindow = 0
Sub Rules
If RuleWindow = 0 Then
Dim objShell:Set objShell = CreateObject("Wscript.Shell")
objShell.Run "AFM_JP_VP9.hta"
RuleWindow = 1
Controller.Pause = 1
Else
RuleWindow = 0
Controller.Pause = 0
End If
End Sub