Cactus Canyon (Bally 1998) TTNZ v2.0.vbs

':.:.:.:.:.:.:.:.:., : ,.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.,.:.:.:.:.:.:.:.:.: , :.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:., ;;,.:.:.:.:.:.:.:.:.:.:.:.
'.:.:.: , , . . , , , : , , , , ,.:.:., , , , . . , , , . , , , , , , , , . . . ,.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: , , : , , .XS :.:.:.:.:.:.:.:.:.:.:.:
':.:., . ..i:;,i .,a7272.i:i.::; : , , ,.;,, XrX;i,i :,i;aX; i,i:;.:,i:rii,;XS78.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.;2;.:., ,.ii7r, :.:.:.:.:.:.:.:.:.:.:.
'.:., .;Mrr7a0MZSir:07i7:XaXXX7X: . ,;7i2XX;rXi7S7SXX7SX2X:rSXSXaXX7S7Zi2SSXXXXX; :.:.:.:.:.:.:.,.:.:.:.:.:.:.:.: 7S7ir;ri8ai,2:, : ,.:.:.:.:.:.:.:.:.:
': . :@M,;aM@2XS@M78B7.M;irM@MriX. SZXiZ@SrM@B,X@MZM@MWM@2,8@M@7.2WMBZ:.:0WM@Mra.,.:.:.:.: , , . . ,.:.:.:.:.:.:., Za2rX;XSZ;;i7,i.: , ,.:.:.:.:.:.:.:.
'.. r@B r@M;i788;,M@Mi.@M.:WM@@.7rM@.rM@;;0,0WirM i@M0X SZ:SM@Z .;@@M7.:M@B.ia7X: :.:., . ... . ::i :.:.:.:.:.: , .;Mr7i7i;i7;7i7irrSZZ.:.:.:.:.:.:.:.:
', r@r S@M;:X:.a@X a@X M@.rW7MWX M@.rM@r:M@8 a ii..M0Mr..S.8BMX: 70W@2 X@Z,:r7rZ;. : . . irBZWZM@MX:.:.:.:.:., . :;XrX7X;7;i,;,7;222ir:,.:.:.:.:.:.:.:.
' .@M X@Mr:Z: . i@i Si.@;.M778MZ::i,@@2,X 0@8@M@W :8M07 ;:.rM22.,i0@Wi.rM@Sr222;Z . . :aM@MXr @@M7. :.:.:.:., ;rZW07XaZaXS2rXiriXX; . , :.:.:.:.:.:.:.:
'.2M :8MB:77 , . M@XX;rM X7r r8Mr, 70Mr:X, ..i:M@; 8@Wi.@M X@Mr: 72MBr r77iS@ar7X. . S@M@Z . M@M:. . . , : , :2ZSB@M@MX772XaSaXX;: . . . ,.:.:.:.:.:.:.
' M@.;W@X.Z ,.: .,2XXSM;.Z2rS.a@0i.i8@0.X..:, .,Mi:7MZ7 M@.787Z.,iSWW;::7i.;a0SiS ,@M@MBr .iM@M,. , ::, . . , . . . .@MS7;X7X7XrX:i7Z:;:i.:.:.:.:.:.:.:
'7@Z SWX;;S. : , . . M@.;Mr77rr@@2.;XMZr,M@XrS;X@S,X7S;.@M ;7X7r r7S77;2XX XrS7i,2@M@a . . :i7;2@M0::M@; ,:0@7 ..XZ. :@M.,iXar@X ;@M@M@M7i : : : : : :.
':MB.XMXX,8 , ..;.. r@X aSX;7;XXZXS.SXXr:2a.XrX r7:7X;X M@M iiX;r;7;Xri7XrXrXi; M@M@; . . :iX7S,M@i 2@M,S@M@M,.,M@2 X@M7i0S,,iMiX@M2M@Z . . . . . , i.:
',@M XWM7,a, .aMiaXXXS XX7,M@M 7rX77 7XXri,XrX i@r:7r7;:iM@Mr;:i:;:;:;::i;i7ii 8@M@, . . :iM@S.M@i 7@M@M@X@M.:;M@0ZM@M B@M ;@M:M@S M@:.iiX;SXaXZS0BZ7X.
' Z@..XX2;rX. Ma,X27S ;7S,ai:@M Xi7r; ;;7;7i;:S@,.;:r;XS7:X0M@M@M@M@M@M@M@B.;i8@M7. . . i@Mr. ;@X r@M@7.r@M iiS@M@M@X ,;M@M@X:MZi M@M@M@M@M802Z77ir., ,
'. M@.:Xr2;r;M@,;S7Si:XXi77. :@.i;:i;Si2S8aZZB@M@M@M@02Z;: . ..ri7;r;r.:.7rr@M@Mi. . .:2@M@,7@@S :@MW. r@M,:,X:i B@7:8SSXX;7:r:i;;::,i,:.. . . . , , :.
' .;M@..7rXr;ii:X;Si,;X;ri2,iZ:i@BM@MB,.irSr; ..: , . . . , . . . . . . . :@M@M.. . . ,;M@M;;;Xir;X7riXrr:Z8aZX.i@M 7;;,: . . . . . . . . , , : ,.:.:.:
': .;M@i i;Xrr;X;X,.ir:rXaSZ@MWZSS;;.. , . . , . . . , :.:.:.:.: : : , ,.7@M@M.. ,,i:X;X;r;27ZBMSX,:,7rSX2;:.:;X@M.. . , , : ,.,.,., : ,.:.:.:.:.:.:.:.
'., . M@M;:.r;7ii 7;SWM@0X, . . . . . :.:.,.:.:.:.:.:.:.:.:.:.:.:.:.:.: :0M@M@M@M@MW@@M@M@MWZXr :iXXZSaaZr, ..2@M.. :.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:
':., . ,ZM@B:i.;XM@M0S:. . , , , : ,.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: i7B@M@M@MZM@2BS;;,i . . ;i;., , , : :;ZX. ,.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
'.:.: . . :WM@00X . . . , ,.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:., i:. . . ,:, . . . , : : , , , :.:., . . :.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:


' Cactus Canyon - IPDB No. 4445
' © Bally/Midway 1998
' © Eric Priepke 2012 (P-ROC Project)
' VPX recreation by ninuzzu/Tom Tower

' Thalamus 2018-07-23
' This table already has its own 7.1 "Positional Sound Playback Functions" routine
' Changed UseSolenoids=1 to 2
' No special SSF tweaks yet.

 Option Explicit
 Randomize

'optReset = 1  'Uncomment to reset to default options in case of error or keep all changes temporary. When done recomment again!

Const PROC = 0

Const BallSize = 50
Const BallMass = 1.7

 On Error Resume Next
 ExecuteGlobal GetTextFile("controller.vbs")
 If Err Then MsgBox "You need the controller.vbs in order to run this table, available in the vp10 package"
 On Error Goto 0

Dim DesktopMode:DesktopMode = Table1.ShowDT
Dim UseVPMDMD:UseVPMDMD = DesktopMode

Const cGameName = "cc_13"
Const B2ScGameName = "Proc_CC"
Const UseVPMModSol = True

LoadVBSFiles "02800000", "WPC.VBS", 3.52

If PROC = 1 Then
	LoadController("PROC")
Else
	LoadController("VPM")
End If

' Standard Options
Const UseSolenoids = 2
Const UseLamps     = 1
Const UseSync      = 0
Const HandleMech   = 0
Const UseGI = 0

' Standard Sounds
Const SSolenoidOn = "fx_solon"
Const SSolenoidOff = ""
Const SCoin = "fx_coin"

'**************************************************************
'************   Table Init   **********************************
'**************************************************************
Dim TrainMech, MineMech

Sub Table1_Init
	vpmInit Me
	On Error Resume Next
	With Controller
		.GameName = cGameName
		If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description : Exit Sub
		.SplashInfoLine = "Cactus Canyon - Midway/Williams 1998"
		.HandleKeyboard = 0
		.HandleMechanics = 0
		.ShowDMDOnly = 1
		.ShowFrame = 0
		.ShowTitle = 0
		If PROC = 0 Then .Hidden = Desktopmode
		On Error Resume Next
		.Run
		If Err Then MsgBox Err.Description
		.Switch(22) = 1 'close coin door
		.Switch(24) = 0 'always closed
	On Error Goto 0
	End With

'************  Main Timer init  ********************

	PinMAMETimer.Interval = PinMAMEInterval
	PinMAMETimer.Enabled = 1

'************   Nudging   **************************

	vpmNudge.TiltSwitch  = 14
	vpmNudge.Sensitivity = 5
	vpmNudge.TiltObj = Array(Bumper1, Bumper2, sw51, sw52, sw55)

'**************   Mine Mech  ********************

	If PROC = 0 Then 
	Set MineMech = New cvpmMech 
	With MineMech
		.Sol1 = 17
		.Length = 100
		.Steps = 49
		.MType = vpmMechOneSol + vpmMechReverse + vpmMechLinear
		.AddSw 77, 0, 1 'Home							'Shoopity - Changed the last variable from 48 to 0, it helps with moving the primitive
		.AddPulseSw 78, 8, 2
		.Start
	End With
	End If
 
'**************   Train Mech  ********************

	If PROC = 0 Then
	Set TrainMech = New cvpmMech
	With TrainMech
		.Sol1 = 38 'Forward
		.Sol2 = 37 'Reverse
		.Length = 570
		.Steps = 613
		.MType = vpmMechTwoDirSol + vpmMechStopEnd + vpmMechLinear
		.AddSw 72, 0, 0   ' Home 
		.AddPulseSw 71, 14, 3
		.Start
	End With
	End If

'************  Misc Stuff init  ********************

	block.isdropped=1
	Sw61.IsDropped  = 1: Sw62.IsDropped  = 1 :Sw63.IsDropped  = 1 :Sw64.IsDropped  = 1
	Sw61a.IsDropped  = 1: Sw62a.IsDropped  = 1 :Sw63a.IsDropped  = 1 :Sw64a.IsDropped  = 1 
	LPin.IsDropped  = 1: RPin.IsDropped  = 1
	UpdateGI 0,0: UpdateGI 1,0: UpdateGI 2,0
	InitToys:InitLamps:InitTrough

'************ P-ROC Stuff init  ********************

	If PROC = 1 then 
		Enc_Stop.enabled = 1
		UpdateGI 0,1: UpdateGI 1,1: UpdateGI 2,1
		Card1.image = "card1_CCC"
		Card2.image = "card2_CCC"
		Guns.material = "Guns"
	End If
 End Sub

'********************************************
'**********   Keys   ************************
'********************************************

Sub Table1_KeyDown(ByVal keycode)
    If keycode = LeftTiltKey Then Nudge 90, 3:PlaySoundAt SoundFX("fx_nudge", 0), Card1
    If keycode = RightTiltKey Then Nudge 270, 3:PlaySoundAt SoundFX("fx_nudge", 0), Card2
    If keycode = CenterTiltKey Then Nudge 0, 4:PlaySoundAt SoundFX("fx_nudge", 0), OutHole
    If KeyCode = PlungerKey Then Plunger.Pullback:PlaysoundAt "fx_plungerpull", Plunger
    If vpmKeyDown(KeyCode) Then Exit Sub
End Sub

Sub Table1_KeyUp(ByVal KeyCode)
    If KeyCode = PlungerKey Then Plunger.Fire : PlaysoundAt "fx_plunger", Plunger
    If vpmKeyUp(KeyCode) Then Exit Sub
End Sub

Sub Table1_Paused:Controller.Pause = 1:End Sub
Sub Table1_unPaused:Controller.Pause = 0:End Sub
Sub Table1_exit()
	Controller.Stop
	If B2SOn = True and PROC = 1 Then B2SController.Stop
	SaveValue TableName,"TrainPos",Train.TransX
End sub

'******************
' Solenoids
'******************

SolCallback(1) = "AutoPlunger"							' Autoplunger
SolCallback(2) = "Drop1"					        	' Left Drop Target
SolCallback(3) = "Drop2"								' Left Center Drop Target
SolCallback(4) = "Drop3"								' Right Center Drop Target
SolCallback(5) = "Drop4"					        	' Right Drop Target
SolCallback(6) = "SolMinePopper"	        			' Mine Popper
SolCallback(7) = "Knocker"								' Knocker
SolCallback(8) = "SolSaloonPopper"	        			' Saloon Popper
SolCallback(9) = "ReleaseBall"					    	' Ball Release
'SolCallback(10) = ""									' Left Slingshot
'SolCallback(11) = ""									' Right Slingshot
'SolCallback(12) = ""									' Left Jet Bumper
'SolCallback(13) = ""									' Right Jet Bumper
SolCallback(14) = "GunPostLeft"				        	' Left  Gunfight Post
SolCallback(15) = "GunPostRight"			        	' Right Gunfight Post
'SolCallback(16) = ""									' Bottom Jet Bumper
SolCallback(21) = "LGate" 	  		    				' Left  Loop Gate
SolCallback(22) = "RGate" 	  		    				' Right Loop Gate

SolCallback(sLRFlipper) = "SolRFlipper"					' Left Flipper
SolCallback(sLLFlipper) = "SolLFlipper"					' Right Flipper
SolCallback(33) = "MoveBart"	    					' Move Bart Toy
SolCallback(36) = "MoveHat" 	    				    ' Bart Toy Hat

If PROC = 1 then
	SolCallBack(17) = "MoveMine_PROC"					' Mine Motor-PROC
	SolCallback(18) = "Sol18" 	  		    			' Mine Flasher-PROC
	SolCallBack(19) = "Sol19"                           ' Front Left Flasher-PROC
	SolCallBack(20) = "Sol20"                           ' Front Right Flasher-PROC
	SolCallback(24) = "Sol24" 	  		    		    ' Beacon Flasher-PROC
	SolCallBack(25) = "Sol25"                           ' Middle Right Flasher-PROC
	SolCallBack(26) = "Sol26"                           ' Saloon Flasher-PROC
	SolCallback(27) = "Sol27" 	  		    		    ' Back Right Flasher-PROC
	SolCallback(28) = "Sol28" 	  		    			' Back Left Flasher-PROC
	SolCallback(37) = "TrainB_PROC"						' Train Reverse-PROC
	SolCallback(38) = "TrainF_PROC"						' Train forward-PROC
Else
	SolCallBack(17) = "MoveMine"						' Mine Motor-VPM
	SolModCallback(18) = "Sol18" 	  		    		' Mine Flasher-VPM
	SolModCallBack(19) = "Sol19"                   		' Front Left Flasher-VPM
	SolModCallBack(20) = "Sol20"                    	' Front Right Flasher-VPM
	SolModCallback(24) = "Sol24" 	  		    		' Beacon Flasher-VPM
	SolModCallBack(25) = "Sol25"                    	' Middle Right Flasher-VPM
	SolModCallBack(26) = "Sol26"                    	' Saloon Flasher-VPM
	SolModCallback(27) = "Sol27" 	  		    		' Back Right Flasher-VPM
	SolModCallback(28) = "Sol28" 	  		    	'	 Back Left Flasher-VPM
	SolCallback(37) = "TrainB"							' Train Reverse-VPM
	SolCallback(38) = "TrainF"							' Train forward-VPM
End If

'**************************************************
'***************  Autoplunger *********************
'**************************************************

Dim plungerIM
Const IMPowerSetting = 65
Const IMTime = 0.25
Set plungerIM = New cvpmImpulseP
With plungerIM
.InitImpulseP swPlunger, IMPowerSetting, IMTime
.InitExitSnd SoundFX("fx_Autoplunger",DOFContactors), SoundFX("fx_solon",DOFContactors)
.CreateEvents "plungerIM"
End With

Sub AutoPlunger(Enabled)
	If Enabled Then
		PlungerIM.AutoFire
		DOFALT 120, DOFPulse
	End If
End Sub

'**************************************************
'***************	Targets Bad Guys	***********
'**************************************************

Dim sw61Dir, sw62Dir, sw63Dir, sw64Dir
' Left Drop Target
 Sub Drop1(enabled)
	If enabled Then
		DOFALT 125, DOFPulse
		Sw61.IsDropped = 0 : Sw61a.IsDropped = 0 : Controller.Switch(61) = 0 : PlaySoundAt SoundFX("fx_DropTargetUp",DOFDropTargets),sw61p: sw61Dir = 1: sw61.TimerEnabled = 1 : light42.state=2 : light43.state = 2
	Else
		DOFALT 125, DOFPulse
		Sw61.IsDropped = 1 : Sw61a.IsDropped = 1 : Controller.Switch(61) = 1 : PlaySoundAt SoundFX("fx_DropTargetDown",DOFDropTargets),sw61p: sw61Dir = -1: sw61.TimerEnabled = 1: light42.state=0 : light43.state = 0
	End If
 End Sub
' Left Center Drop Target
 Sub Drop2(enabled)
	If enabled Then
		DOFALT 126, DOFPulse
		Sw62.IsDropped = 0 : Sw62a.IsDropped = 0 : Controller.Switch(62) = 0 : PlaySoundAt SoundFX("fx_DropTargetUp",DOFDropTargets),sw62p: sw62Dir = 1: sw62.TimerEnabled = 1: light25.state=2 : light26.state = 2
	Else
		DOFALT 126, DOFPulse
		Sw62.IsDropped = 1 : Sw62a.IsDropped = 1 : Controller.Switch(62) = 1 : PlaySoundAt SoundFX("fx_DropTargetDown",DOFDropTargets),sw62p: sw62Dir = -1: sw62.TimerEnabled = 1: light25.state=0 : light26.state = 0
	End If
 End Sub
' Right Center Drop Target
 Sub Drop3(enabled)
	If enabled Then
		DOFALT 127, DOFPulse
		Sw63.IsDropped = 0 : Sw63a.IsDropped = 0 : Controller.Switch(63) = 0 : PlaySoundAt SoundFX("fx_DropTargetUp",DOFDropTargets),sw63p: sw63Dir = 1: sw63.TimerEnabled = 1: light44.state=2 : light45.state = 2
	Else
		DOFALT 127, DOFPulse
		Sw63.IsDropped = 1 : Sw63a.IsDropped = 1 : Controller.Switch(63) = 1 : PlaySoundAt SoundFX("fx_DropTargetDown",DOFDropTargets),sw63p: sw63Dir = -1: sw63.TimerEnabled = 1: light44.state=0 : light45.state = 0
	End If
 End Sub
' Right Drop Target
 Sub Drop4(enabled)
	If enabled Then
		DOFALT 128, DOFPulse
		Sw64.IsDropped = 0 : Sw64a.IsDropped = 0 : Controller.Switch(64) = 0 : PlaySoundAt SoundFX("fx_DropTargetUp",DOFDropTargets),sw64p: sw64Dir = 1: sw64.TimerEnabled = 1: light50.state=2 : light51.state = 2
	Else
		DOFALT 128, DOFPulse
		Sw64.IsDropped = 1 : Sw64a.IsDropped = 1 : Controller.Switch(64) = 1 : PlaySoundAt SoundFX("fx_DropTargetDown",DOFDropTargets),sw64p: sw64Dir = -1: sw64.TimerEnabled = 1: light50.state=0 : light51.state = 0
	End If
 End Sub

Sub sw61_timer()
	sw61p.Z = sw61p.Z + (2 * sw61Dir)
	If sw61p.Z <= -39 Then Me.TimerEnabled = 0 : sw61p.Z = -39
	If sw61p.Z >= 39 Then Me.TimerEnabled = 0 : sw61p.Z = 39
End Sub

Sub sw62_timer()
	sw62p.Z = sw62p.Z + (2 * sw62Dir)
	If sw62p.Z <= -39 Then Me.TimerEnabled = 0 : sw62p.Z = -39
	If sw62p.Z >= 39 Then Me.TimerEnabled = 0 : sw62p.Z = 39
End Sub

Sub sw63_timer()
	sw63p.Z = sw63p.Z + (2 * sw63Dir)
	If sw63p.Z <= -39 Then Me.TimerEnabled = 0 : sw63p.Z = -39
	If sw63p.Z >= 39 Then Me.TimerEnabled = 0 : sw63p.Z = 39
End Sub

Sub sw64_timer()
	sw64p.Z = sw64p.Z + (2 * sw64Dir)
	If sw64p.Z <= -39 Then Me.TimerEnabled = 0 : sw64p.Z = -39
	If sw64p.Z >= 39 Then Me.TimerEnabled = 0 : sw64p.Z = 39
End Sub

'**************************************************
'***************  Mine Popper	 ******************
'**************************************************

 Sub SolMinePopper(enabled)
	If enabled Then
		DOFALT 132, DOFPulse
		MinePopper.kick 0, 45, 1.56
		If BIK = 0 Then
			PlaysoundAt SoundFX(SSolenoidOn,DOFContactors),MinePopper
		Else
			PlaysoundAt SoundFX("fx_mine_popper",DOFContactors),MinePopper
		End If
	End If
End Sub

'**************************************************
'***************  Knocker		 ******************
'**************************************************

Sub Knocker(enabled)
	If enabled Then
		PlaySoundAt SoundFX("fx_knocker",DOFKnocker),l84
		DOFALT 151,DOFPulse
	End If
End Sub

'************************************************
'***************  Saloon Popper	 ****************
'************************************************

 Sub SolSaloonPopper(enabled)
	If enabled Then
		DOFALT 133, DOFPulse
		BartPopper.kick 0, 45, 1.56
		SecretEntrance.enabled = 0
		vpmtimer.addtimer 1000 ,"SecretEntrance.enabled = 1'"
		If BIK = 0 Then
			PlaysoundAt SoundFX(SSolenoidOn,DOFContactors),BartPopper
		Else
			PlaysoundAt SoundFX("fx_saloon_popper",DOFContactors),BartPopper
		End If
	End If
End Sub

'******************************************************************
'*******	Trough based on nFozzy's 	***************************
'******************************************************************

'Load The Trough on Game Launch (order 35, 34, 33, 32)
Sub InitTrough()
'	If PROC = 0 then
'		Controller.Switch(35) = 1
'	Else
'		Controller.Switch(35) = 0
'	End If
	sw32.CreateSizedBallWithMass Ballsize/2, BallMass
	sw33.CreateSizedBallWithMass Ballsize/2, BallMass
	sw34.CreateSizedBallWithMass Ballsize/2, BallMass
	sw35.CreateSizedBallWithMass Ballsize/2, BallMass
	Controller.Switch(35) = 1
	Controller.Switch(34) = 1
	Controller.Switch(33) = 1
	Controller.Switch(32) = 1
End Sub

'Sub sw35_Hit():UpdateTrough: If PROC = 0 then Controller.Switch(35) = 1: End If: End Sub

Sub sw35_Hit():Controller.Switch(35) = 1:UpdateTrough:End Sub
Sub sw35_UnHit():Controller.Switch(35) = 0:UpdateTrough:End Sub

Sub sw34_Hit():Controller.Switch(34) = 1:End Sub
Sub sw34_UnHit():Controller.Switch(34) = 0:UpdateTrough:End Sub

Sub sw33_Hit():Controller.Switch(33) = 1:End Sub
Sub sw33_UnHit():Controller.Switch(33) = 0:UpdateTrough:End Sub

Sub sw32_Hit():Controller.Switch(32) = 1:End Sub
Sub sw32_UnHit():Controller.Switch(32) = 0:UpdateTrough:End Sub

Sub sw31_Hit():vpmTimer.PulseSw 31 : End Sub

Sub UpdateTrough()
	OutHole.TimerInterval = 300
	OutHole.TimerEnabled = 1
End Sub

Sub OutHole_Timer()
	If sw32.BallCntOver = 0 Then sw33.kick 58, 8
	If sw33.BallCntOver = 0 Then sw34.kick 58, 8
	If sw34.BallCntOver = 0 Then sw35.Kick 58, 8
	If sw35.BallCntOver = 0 Then OutHole.kick 58,8
	Me.TimerEnabled = 0
End Sub

'************************************************
'***************  Drain and Release *************
'************************************************

Dim BIP : BIP = 0

Sub OutHole_Hit()
	PlaySoundAtBall "fx_drain"
	UpdateTrough
	BIP = BIP - 1
	If PROC = 1 Then block.isdropped=0 : sw35.TimerEnabled = 1 : sw35.TimerInterval = 2000 ': Controller.Switch(35) = 1 : 
End Sub

Sub sw35_Timer()					'let's enable trough switch 35 for 2 seconds and add a dropping wall to prevent bugs
	'Controller.Switch(35)=0
	block.isdropped=1
	Me.TimerEnabled = 0
End Sub

Sub ReleaseBall(enabled)
	If enabled Then
		DOFALT 121, DOFPulse
		If sw35.BallCntOver = 0 Then
			PlaySoundAt SoundFX(SSolenoidOn,DOFContactors),sw32
		Else
			PlaySoundAt SoundFX("fx_ballrel",DOFContactors),sw32
		End If
		sw32.kick 58, 10
		UpdateTrough
		BIP = BIP + 1
	End If
End Sub

'************************************************
'**************		Slingshots 	*****************
'************************************************

Dim LStep, RStep, TStep

Sub sw51_Slingshot
	DOFALT 122, DOFPulse
	DOFALT 124, DOFPulse
	PlaySoundAtBall SoundFX("fx_slingshotL",DOFContactors)
	vpmTimer.PulseSw 51
    LSling.Visible = 0
    LSling1.Visible = 1
    sling2.TransZ = -20
    LStep = 0
    Me.TimerInterval=20:Me.TimerEnabled=1
End Sub

Sub sw51_Timer
    Select Case LStep
        Case 3:LSLing1.Visible = 0:LSLing2.Visible = 1:sling2.TransZ = -10
        Case 4:LSLing2.Visible = 0:LSLing.Visible = 1:sling2.TransZ = 0:Me.TimerEnabled = 0
    End Select
    LStep = LStep + 1
End Sub


Sub sw52_Slingshot
	DOFALT 123, DOFPulse
	DOFALT 126, DOFPulse
	PlaySoundAtBall SoundFX("fx_slingshotR",DOFContactors)
	vpmTimer.PulseSw 52
    RSling.Visible = 0
    RSling1.Visible = 1
    sling1.TransZ = -20
    RStep = 0
    Me.TimerInterval=20:Me.TimerEnabled=1
End Sub

Sub sw52_Timer
    Select Case RStep
        Case 3:RSLing1.Visible = 0:RSLing2.Visible = 1:sling1.TransZ = -10
        Case 4:RSLing2.Visible = 0:RSLing.Visible = 1:sling1.TransZ = 0:Me.TimerEnabled = 0
    End Select
    RStep = RStep + 1
End Sub


Sub sw55_Slingshot
	DOFALT 134, DOFPulse
	PlaySoundAtBall SoundFX("fx_slingshotL",DOFContactors)
	vpmTimer.PulseSw 55
    TSling.Visible = 0
    TSling1.Visible = 1
    sling3.TransZ = -20
    TStep = 0
    Me.TimerInterval=20:Me.TimerEnabled=1
End Sub

Sub sw55_Timer
    Select Case TStep
        Case 3:TSLing1.Visible = 0:TSLing2.Visible = 1:sling3.TransZ = -10
        Case 4:TSLing2.Visible = 0:TSLing.Visible = 1:sling3.TransZ = 0:Me.TimerEnabled = 0
    End Select
    TStep = TStep + 1
End Sub

'************************************************
'**************		Bumpers 	*****************
'************************************************

Dim dirRing1 : dirRing1 = -1
Dim dirRing2 : dirRing2 = -1

Sub Bumper1_Hit
	vpmTimer.PulseSw 53
	PlaySoundAtBall SoundFX("fx_BumperLeft",DOFContactors)
	Me.TimerInterval=10:Me.TimerEnabled=1
	DOFALT 130, DOFPulse
	DOFALT 135, DOFPulse
End Sub

Sub Bumper2_Hit
	vpmTimer.PulseSw 54
	PlaySoundAtBall SoundFX("fx_BumperRight",DOFContactors)
	Me.TimerInterval=10:Me.TimerEnabled=1
	DOFALT 131, DOFPulse
	DOFALT 136, DOFPulse
End Sub

Sub Bumper1_timer()
	BR1.Z = BR1.Z + (5 * dirRing1)
	If BR1.Z <= 0 Then dirRing1 = 1
	If BR1.Z >= 30 Then
		dirRing1 = -1
		BR1.Z = 30
		Me.TimerEnabled = 0
	End If
End Sub

Sub Bumper2_timer()
	BR2.Z = BR2.Z + (5 * dirRing2)
	If BR2.Z <= 0 Then dirRing2 = 1
	If BR2.Z >= 30 Then
		dirRing2 = -1
		BR2.Z = 30
		Me.TimerEnabled = 0
	End If
End Sub

'************************************************
'**************		Gun Posts 	*****************
'************************************************

Sub GunPostLeft(enabled)
	DOFALT 145, DOFPUlse
	If Enabled Then
		LPin.IsDropped = 0
		PlaySoundAt SoundFX("fx_PostUp",DOFContactors),LeftFlipper
		DOFALT 152, DOFOn
	Else
		LPin.IsDropped = 1
		PlaySoundAt SoundFX("fx_PostDown",0),LeftFlipper
		DOFALT 152, DOFOff
	End If
End Sub

Sub GunPostRight(enabled)
	DOFALT 146, DOFPulse
	If Enabled Then
		RPin.IsDropped = 0
		PlaySoundAt SoundFX("fx_PostUp",DOFContactors),RightFlipper
		DOFALT 152, DOFOn
	Else
		RPin.IsDropped = 1
		PlaySoundAt SoundFX("fx_PostDown",0),RightFlipper
		DOFALT 152, DOFOff
	End If
End Sub

'************************************************
'***************  Loop Gates	 ****************
'************************************************

 Sub LGate(enabled)
	If enabled Then
		PlaySoundAt "fx_gate",LLoopGate
		LLoopGate.Open = 1
		DOFALT 147,DOFPulse
	Else
		DOFALT 147,DOFPulse
		LLoopGate.Open = 0
	End If
 End Sub
 
 Sub RGate(enabled)
	If enabled Then
		PlaySoundAt "fx_gate",RLoopGate
		RLoopGate.Open = 1
		DOFALT 148,DOFPulse
	Else
		DOFALT 148,DOFPulse
		RLoopGate.Open = 0
	End If
 End Sub

'*************************************************
'******		Shoopity's Train Animation		******
'*************************************************

Dim TrainOn,TrainDir, TrainSpeed
TrainSpeed = 1

Sub TrainF(enabled)
	Train.TransX = -TrainMech.Position
	Train1.TransX = -TrainMech.Position
	TrainTimer.Enabled = 1
	TrainOn = enabled
End Sub

Sub TrainB(enabled)
	Train.TransX = -TrainMech.Position
	Train1.TransX = -TrainMech.Position
	TrainTimer.Enabled = 1
	TrainOn = enabled
End Sub

Sub TrainTimer_Timer()
	PlayLoopSoundAt SoundFX("fx_train_motor", DOFGear), Train
	If Train.TransX >= -TrainMech.Position Then
		TrainDir = -1
		Pgear1.RotY = Pgear1.RotY + 1
		Pgear2.RotY = Pgear2.RotY - 1
		Pgear3.RotY = Pgear3.RotY - 1
	Else
		TrainDir = 1
		Pgear1.RotY = Pgear1.RotY - 1
		Pgear2.RotY = Pgear2.RotY + 1
		Pgear3.RotY = Pgear3.RotY + 1
	End If
	Train.TransX = Train.TransX + TrainSpeed * TrainDir
	Train1.TransX = Train.TransX
	If ((Train.TransX >= -TrainMech.Position AND TrainDir = 1) OR (Train.TransX <= -TrainMech.Position AND TrainDir = -1)) Then Train.TransX = -TrainMech.Position
	If ((Train.TransX >= -TrainMech.Position AND TrainDir = 1) OR (Train.TransX <= -TrainMech.Position AND TrainDir = -1))  AND TrainOn = 0 Then
		Me.Enabled = 0
		StopSound "fx_train_motor"
	End If
	If Train.TransX = -611 Then StopSound "fx_train_motor"
End Sub

'***********************************************
'** New Train Mech to work with P-ROC (Dozer) **
'***********************************************

Dim TrainDirPROC

Sub TrainF_PROC(Enabled)
	If Enabled Then
		PlayLoopSoundAt SoundFX("fx_train_motor", DOFGear), Train
		DOFALT 140, DOFOn
		Polly.Enabled = 1
		sw71.enabled = 1
		TrainDirPROC = 1
	Else
		StopSound "fx_train_motor"
		DOFALT 140, DOFOff
		Polly.enabled = 0
		sw71.enabled = 0
	End If
End Sub

Sub TrainB_PROC(Enabled)
	If Enabled Then
		PlayLoopSoundAt SoundFX("fx_train_motor", DOFGear), Train
		DOFALT 140, DOFOn
		Polly.Enabled = 1
		sw71.enabled = 1
		TrainDirPROC = 2
	Else
		StopSound "fx_train_motor"
		DOFALT 140, DOFOff
		Polly.enabled = 0
		sw71.enabled = 0
	End If
End Sub

Sub Polly_Timer()
	Select Case TrainDirPROC
		Case 1:		Train.TransX = Train.TransX - 2
					Train1.TransX = Train.TransX
					Pgear1.RotY = Pgear1.RotY + 1
					Pgear2.RotY = Pgear2.RotY - 1
					Pgear3.RotY = Pgear3.RotY - 1
					If Train.TransX <= -5 Then Controller.Switch(72) = 0 
					If Train.TransX <= -611 Then Controller.Switch(71) = 1

		Case 2:		Train.TransX = Train.TransX + 4
					Train1.TransX = Train.TransX
					Pgear1.RotY = Pgear1.RotY - 1
					Pgear2.RotY = Pgear2.RotY + 1
					Pgear3.RotY = Pgear3.RotY + 1
					If Train.TransX => 0 Then Controller.Switch(72) = 1 : Controller.Switch(71) = 1
	End Select
End Sub

Sub sw71_Timer()					'Dozer - Encoder Pulse which runs with Train Mech.
vpmTimer.PulseSw 71
End Sub

Sub Enc_Stop_Timer()				'Dozer - will disable the pulse the first 5 seconds the table is run
sw71.enabled = 0
me.enabled = 0
End Sub

'*********************************************
'******		Shoopity's Mine Animation	******
'*********************************************

Dim MineOn, Minespeed, MineDir
MineSpeed = 0.25

Sub MoveMine(enabled)
	MineTimer.enabled = 1
	MineOn = enabled
End Sub

Sub MineTimer_Timer()
	If MineSign.Z > MineMech.Position Then
		MineDir = -1
	Else
		MineDir = 1
	End If
	PlayLoopSoundAt SoundFX("fx_mine_motor", DOFGear), Mine
	MineSign.Z = MineSign.Z + Minespeed * MineDir
	If ((MineSign.Z >= MineMech.Position AND MineDir = 1) OR (MineSign.Z <= MineMech.Position AND MineDir = -1)) AND Not(MineOn) Then		'Shoopity- If the primitive catches the mech AND the solenoid is off, then turn off the timer
		Me.Enabled = 0
		StopSound "fx_mine_motor"
	End If
	Mine.RotX = (MineSign.Z * 0.375) - 10
	If MineSign.Z < 24 Then												'Shoopity- I will drop the wall in the function that moves the sign
		sw15.IsDropped = 0
	else
		sw15.IsDropped = 1
	End If
End sub

'**********************************************
'** New Mine Mech to work with P-ROC (Dozer) **
'**********************************************

Dim MineDirPROC:MineDirPROC = 1

Sub MoveMine_PROC(Enabled)
	If Enabled then
		PlayLoopSoundAt SoundFX("fx_mine_motor", DOFGear), Mine
		DOFALT 141, DOFOn
		MineDirPROC=MineDirPROC
		sw15.Timerenabled = 1
		sw15b.Timerenabled = 1
	Else
		sw15.Timerenabled = 0
		sw15b.Timerenabled = 0
		StopSound "fx_mine_motor"
		DOFALT 141, DOFOff
	End If
End Sub

Sub Sw15_Timer()
	Select Case MineDirPROC
		Case 1:		MineSign.Z = MineSign.Z + Minespeed
					Mine.RotX = (MineSign.Z * 0.375) - 10
					If MineSign.Z => 0 Then Controller.Switch(77) = 0
					If MineSign.Z => 24 Then sw15.IsDropped = 1
					If MineSign.Z => 45 Then MineDirPROC = 2

		Case 2:		MineSign.Z = MineSign.Z - Minespeed
					Mine.RotX = (MineSign.Z * 0.375) - 10
					If MineSign.Z <= 0 Then Controller.Switch(77) = 1
					If MineSign.Z <= 24 Then sw15.IsDropped = 0
					If MineSign.Z <= 0 Then MineDirPROC = 1
	End Select
End sub

Sub sw15b_Timer()										'Dozer - Encoder Pulse which runs with Mine Mech.
vpmTimer.PulseSw 78
End Sub

'*********************************************
'******		Shoopity 's Bart Animation	******
'*********************************************
 
Dim bsmash : bsmash = 1
Dim blrnh:blrnh = 1
Dim blrnhud:blrnhud = 1
Dim BartSpeed:Bartspeed = 6
Dim BallHat

Sub InitToys
	Set BallHat = KiHat.CreateBall
	BartOrigX = Bart.X
	BartOrigY = Bart.Y
	Mine.RotX = (MineSign.Z * 0.375) - 10
	KiHat.Kick 0, 0, 0
	Dim TrainPosX:TrainPosX = LoadValue (TableName,"TrainPos")
	If TrainPosX = "" then Train.TransX = 0 Else Train.TransX = TrainPosX End If
End Sub

Sub MoveBart(Enabled)
	If Enabled Then
		DOFALT 149, DOFPulse
		blrnh = -1									'Start him moving left
		BartSwitched = 0							'Reset every time this kicks
		Bart1.Enabled = 1							'Shoopity- 	turn on the animation any time the bart toy is moving							
		PlaySoundAt SoundFX("fx_bart_hit", DOFContactors),Bart
		BallHat.VelX = RndNum (-10,10)
	end If
End Sub	

Sub MoveHat(Enabled)
	If Enabled Then
		DOFALT 150, DOFPulse
		PlaySoundAt SoundFX("fx_bart_move", DOFContactors),Bart
		Bart2.Enabled = 1			'Shoopity- Here, the hat obviously returns to the head, and we'll turn it off in the timer, like it was done prior to me coming here
	End If
End Sub

Sub BHit_Timer()
	Select Case bsmash
	Case 1:
		If Bart.TransY => 20 Then
			bsmash = 2
		End If
		Bart.TransY = Bart.TransY + 2
		Bart_Hat.TransY = Bart_Hat.TransY + 2
		bartsh.Y = bartsh.Y + 2
	Case 2:
		If Bart.TransY <= 0 Then
			me.enabled = 0
			Bart.TransZ= 0
			Bart_Hat.TransY = 70
			bartsh.Y = 224.25
		End If
		Bart.TransY = Bart.TransY - 2
		Bart_Hat.TransY = Bart_Hat.TransY - 2
		bartsh.Y = bartsh.Y - 2
	End Select
End Sub

Dim BartOrigX, BartOrigY, BartSwitched
Sub Bart1_Timer() ' - Left then right with no hat lift.					'Shoopity- I've changed it to just move back and forth as long as the solenoid is on
	Bart.X = Bart.X + BartSpeed * blrnh									'Shoopity- so we move it, but you can change the speed by changing BartSpeed if you want, and blrnh will be used as a direction
	Bart_Hat.X = Bart_Hat.X + BartSpeed * blrnh						'Shoopity- had to change it back since they're not longer in the same location
	bartsh.X = bartsh.X + BartSpeed * blrnh
	Bart_Hat.RotZ = KiHat.X - BallHat.X
	If Bart.X <= 592 Then blrnh = 1:BartSwitched = BartSwitched + 1
	If Bart.X >= 660 Then blrnh = -1:BartSwitched = BartSwitched + 1
	If Bart.X <= BartOrigX AND BartSwitched >=2 Then
		Bart.X = BartOrigX:bartsh.X=624.436
		Me.Enabled = 0
	End If
End Sub

Dim HatHeight, HatHi, HatAdjuster
HatAdjuster = 100
HatHeight = Bart_Hat.Z												'Shoopity- So if you ever change the height of the hat, it'll get remembered here properly
HatHi = HatHeight + 75												'Shoopity- The heighest point the hat will go, so if you want to change how hi the hat goes, change that here
Sub Bart2_Timer() ' - Left then right with no hat lift.				'Shoopity- I'm pretty sure this is supposed to say "Hat hit" or something like that
	Bart_Hat.Z = (dSin(blrnhud) * HatAdjuster) + HatHeight			'Shoopity- This is how I use physics, although it's not going to be variable height like the beer mug is
	blrnhud = blrnhud + SlowMo + 5
	If blrnhud > 180 Then
		blrnhud =1
		Me.Enabled = 0
	End If
End Sub

'********************************************************
' Shoopity's Beer Mug Animation
'********************************************************

Dim MugHit								'Shoopity- Variable to capture the Y velocity of the ball to know how high to kick it 
Sub Sw46_Hit()
	DOFALT 153, DOFPulse
	If BeerMugMod = 1 Then
		BeerMugL1.Duration 2, 1000, 0		'light starts to blink for 1000ms and then switches to OFF
		BeerMugL2.Duration 2, 1000, 0
		BeerMugL3.Duration 2, 1000, 0
	End If
	RandomSoundMetal()
	vpmTimer.PulseSwitch 46,0,0
	MugHit = ActiveBall.VelY
	Beer.Enabled = 1
End Sub

Dim mmmbeer, BeerMaxHeight, SlowMo, BeerAdjuster, mmmswitch
SlowMo = 3																'Shoopity- Just a fun variable if you want to see stuff move in slow motion
mmmbeer = 1
BeerAdjuster = 10														'Shoopity- Adjuster to translate the ball velocity into how high the mug goes
BeerMaxHeight = 150														'Shoopity- if you want to change how high the mug goes, just change this number
Sub Beer_Timer()
	BeerMug.Z = (dSin(mmmBeer) * (ABS(MugHit)*BeerAdjuster)) + 52
	sw46p.RotX = -(dSin(mmmBeer) * MugHit/30)
	If BeerMugMod = 1 Then
		BeerMugL1.BulbHaloHeight = BeerMug.Z
		BeerMugL2.BulbHaloHeight = BeerMug.Z + 56
		BeerMugL3.BulbHaloHeight = BeerMug.Z + 30
	End If
	mmmBeer = mmmBeer + SlowMo
	If BeerMug.Z > BeerMaxHeight Then									'Shoopity- If you hight the max height then...
		BeerMug.Z = BeerMaxHeight										' Hold it there for a bit
		sw46p.RotX = -BeerMaxHeight/3									' Hold it there for a bit
	End If
	If mmmBeer > 180 Then												'Shoopity- If it's traveled all the way up and down then...
		mmmBeer = 1														'Reset so next time it starts over
		Me.Enabled = 0													'Stop the animation
	End If
End Sub

'*********************************************
'**************	Flippers	***************
'*********************************************

Sub SolLFlipper(Enabled)
    If Enabled Then
        PlaySoundAt SoundFX("fx_flipperup",DOFFlippers), LeftFlipper
		DOFALT 101, DOFOn
        LeftFlipper.RotateToEnd
    Else
        PlaySoundAt SoundFX("fx_flipperdown",DOFFlippers), RightFlipper
		DOFALT 101, DOFOff
        LeftFlipper.RotateToStart
    End If
End Sub

Sub SolRFlipper(Enabled)
    If Enabled Then
        PlaySoundAt SoundFX("fx_flipperup",DOFFlippers), LeftFlipper
		DOFALT 102, DOFOn
        RightFlipper.RotateToEnd
    Else
        PlaySoundAt SoundFX("fx_flipperdown",DOFFlippers), RightFlipper
		DOFALT 102, DOFOff
        RightFlipper.RotateToStart
    End If
End Sub

'**************************************************************
'***********************	Switches   ************************
'**************************************************************

'***************  Gold Mine & Sign   *************

Sub sw15_Hit() : PlaySoundAtBall "fx_mine_hit" : vpmTimer.PulseSwitch 15,0,0 : DOFALT 149, DOFPulse : End Sub
Sub sw15b_Hit() : RandomSoundMetal() : vpmTimer.PulseSwitch 15,0,0 : End Sub

'***************  Bart Toy   *********************

Sub sw75_Hit() : RandomSoundMetal() : vpmTimer.PulseSwitch 75,0,0 : bsmash = 1 : Bhit.enabled = 1 : End Sub

'***************  Saloon   *********************

Sub sw73_Hit() : PlaySoundAtBall "fx_gate4" : vpmTimer.PulseSwitch 73,0,0 : End Sub

'***************  Opto Switches   *********************

Sub sw36_Hit() : vpmTimer.PulseSwitch 36,0,0 : End Sub
Sub sw37_Hit() : vpmTimer.PulseSwitch 37,0,0 : End Sub
Sub sw56_Hit() : vpmTimer.PulseSwitch 56,0,0 : End Sub
Sub sw66_Hit() : vpmTimer.PulseSwitch 66,0,0 : End Sub
Sub sw67_Hit() : vpmTimer.PulseSwitch 67,0,0 : End Sub

'***************  Rollover Switches   *************************

Sub sw16_Hit : Controller.Switch(16) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw16_UnHit : Controller.Switch(16) = 0 : End Sub
Sub sw17_Hit : Controller.Switch(17) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw17_UnHit : Controller.Switch(17) = 0 : End Sub
Sub sw18_Hit : Controller.Switch(18) = 1 : PlaySoundAtBall "fx_sensor"  : End Sub
Sub sw18_UnHit : Controller.Switch(18) = 0 : End Sub
Sub sw26_Hit : Controller.Switch(26) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw26_UnHit : Controller.Switch(26) = 0 : End Sub
Sub sw27_Hit : Controller.Switch(27) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw27_UnHit : Controller.Switch(27) = 0 : End Sub
Sub sw47_Hit : Controller.Switch(47) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw47_UnHit : Controller.Switch(47) = 0 : End Sub
Sub sw48_Hit : Controller.Switch(48) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw48_UnHit : Controller.Switch(48) = 0 : End Sub
Sub sw57_Hit : Controller.Switch(57) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw57_UnHit : Controller.Switch(57) = 0 : End Sub
Sub sw58_Hit : Controller.Switch(58) = 1 : PlaySoundAtBall "fx_sensor" : End Sub
Sub sw58_UnHit : Controller.Switch(58) = 0 : End Sub

'***************  Ramps Switches **********************

Sub sw82_Hit() : vpmTimer.PulseSwitch 82,0,0 : If ActiveBall.VelY < 0 Then PlaySoundAtBall "fx_center_ramp_enter": End If : End Sub
Sub sw82_UnHit(): If ActiveBall.VelY > 0 Then StopSound "fx_center_ramp_enter": End If : End Sub
Sub Sw65_Hit():Controller.Switch(65) = 1:sw65flip.rotatetoend: PlaySoundAtBall "fx_gate4": DOFALT 107, DOFPulse : End Sub
Sub Sw65_UnHit():Controller.Switch(65) = 0:sw65flip.rotatetostart: End Sub
Sub sw68_Hit():Controller.Switch(68) = 1:sw68flip.rotatetoend: PlaySoundAtBall "fx_gate4":End Sub
Sub Sw68_UnHit():Controller.Switch(68) = 0:sw68flip.rotatetostart: End Sub
Sub Sw83_Hit():Controller.Switch(83) = 1:sw83flip.rotatetoend: PlaySoundAtBall "fx_gate4": DOFALT 107, DOFPulse : End Sub
Sub Sw83_UnHit():controller.Switch(83) = 0:sw83flip.rotatetostart:End Sub
Sub sw84_Hit():Controller.Switch(84) = 1:sw84flip.rotatetoend: PlaySoundAtBall "fx_gate4": DOFALT 107, DOFPulse : End Sub
Sub Sw84_UnHit():controller.Switch(84) = 0:sw84flip.rotatetostart:End Sub
Sub sw85_Hit():Controller.Switch(85) = 1:sw85flip.rotatetoend: PlaySoundAtBall "fx_gate4":End Sub
Sub Sw85_UnHit():controller.Switch(85) = 0:sw85flip.rotatetostart:End Sub

'***************  Hit Targets **********************

Sub sw28_Hit() : PlaySoundAtBall SoundFX("fx_target",DOFTargets) : vpmTimer.PulseSwitch 28,0,0 : DOFALT 104, DOFPulse : End Sub
Sub sw44_Hit() : PlaySoundAtBall SoundFX("fx_target",DOFTargets) : vpmTimer.PulseSwitch 44,0,0 : DOFALT 104, DOFPulse : End Sub
Sub sw86_Hit() : PlaySoundAtBall SoundFX("fx_target",DOFTargets) : vpmTimer.PulseSwitch 86,0,0 : DOFALT 103, DOFPulse : End Sub
Sub sw87_Hit() : PlaySoundAtBall SoundFX("fx_target",DOFTargets) : vpmTimer.PulseSwitch 87,0,0 : DOFALT 103, DOFPulse : End Sub

'***************  Drop Targets **********************

Sub Sw61_Hit() : PlaySoundAtBall SoundFX("fx_target_drop",DOFDropTargets) : Controller.Switch(61) = 1 : sw61p.transY = -5 : DOFALT 125, DOFPulse : End Sub
Sub Sw61_UnHit() : sw61p.transY = 0 :End Sub
Sub Sw62_Hit() : PlaySoundAtBall SoundFX("fx_target_drop",DOFDropTargets) : Controller.Switch(62) = 1 : sw62p.transY = -5 : DOFALT 126, DOFPulse : End Sub
Sub Sw62_UnHit() : sw62p.transY = 0 :End Sub
Sub Sw63_Hit() : PlaySoundAtBall SoundFX("fx_target_drop",DOFDropTargets) : Controller.Switch(63) = 1 : sw63p.transY = -5 : DOFALT 127, DOFPulse : End Sub
Sub Sw63_UnHit() : sw63p.transY = 0 :End Sub
Sub Sw64_Hit() : PlaySoundAtBall SoundFX("fx_target_drop",DOFDropTargets) : Controller.Switch(64) = 1 : sw64p.transY = -5 : DOFALT 128, DOFPulse : End Sub
Sub Sw64_UnHit() : sw64p.transY = 0 :End Sub

'************************************************************
'**************		Saloon & Gold Mine Subway		*********
'************************************************************

Dim BIK:BIK=0

Sub SecretEntrance_Hit() : PlaySoundAtBall "fx_hole" : End Sub

Sub BartHole_Hit() : PlaySoundAtBall "fx_saloon_enter" :End Sub

Sub BartPopper_Hit
	PlaySoundAtBall "fx_kicker_catch"
	Controller.Switch (42) = 1
	BIK = BIK + 1
End Sub

Sub BartPopper_UnHit()
	Controller.Switch (42) = 0
	BIK = BIK - 1
End Sub

Sub MineHole_Hit() : PlaySoundAtBall "fx_mine_enter" :End Sub

Sub MinePopper_Hit
	PlaySoundAtBall "fx_kicker_catch"
	Controller.Switch (41) = 1
	BIK = BIK + 1
End Sub

Sub MinePopper_UnHit()
	Controller.Switch (41) = 0
	BIK = BIK - 1
End Sub

' *********************************************************************
'						Lighting
' *********************************************************************

Dim LampState(200)
Dim FlashSpeedUp(200), FlashSpeedDown(200), FlashLevel(200), FadingLevel(200)
Dim RedGis(50), GreenGis(50), BlueGis(50)

Sub InitLamps
	On Error Resume Next
	Dim i
	For i=0 To 127: Execute "Lights(" & i & ")  = Array (L" & i & ",L" & i & "a)": Next
	If BeerMugMod = 1 Then Lights(85) = Array (BeerMugL1,BeerMugL2,BeerMugL3)
    For i = 0 to 200
        LampState(i) = 0         ' current light state, independent of the fading level. 0 is off and 1 is on
        FlashSpeedUp(i) = 0.5    ' faster speed when turning on the flasher
        FlashSpeedDown(i) = 0.35 ' slower speed when turning off the flasher
        FlashLevel(i) = 0        ' the intensity of the flashers, usually from 0 to 1
		FadingLevel(i) = 0			 ' the modulation using VPM modulated solenoids, usually from 0 to 255
    Next
	LampTimer.Interval = 30:LampTimer.Enabled = 1
	For i=0 to (RedGI.count-1) : RedGis(i) = RedGI(i).intensity : Next			'map gi lamp intensities to an array
	For i=0 to (GreenGI.count-1): GreenGis(i) = GreenGI(i).intensity: Next		'map gi lamp intensities to an array
	For i=0 to (BlueGI.count-1): BlueGis(i) = BlueGI(i).intensity : Next		'map gi lamp intensities to an array
End Sub

Sub LampTimer_Timer()
	LampState(17) = L17.state
	LampState(18) = L18.state
	AddLamp 17, L17R
	AddLamp 18, L18R
	'Flashers
	If PROC = 0 Then
		AddCollMod 148, F18
		AddCollMod 149, F19
		AddCollMod 150, F20
		AddCollMod 154, F24
		AddCollMod 155, F25
		AddCollMod 156, F26
		AddCollMod 157, F27
		AddCollMod 158, F28
		AddLampMod 155, F25R
		AddLampMod 156, F26R
		AddLampMod 157, F27R
		AddLampMod 157, F27R1
		AddLampMod 157, F27R2
		AddLampMod 158, F28R
		AddLampMod 158, F28R1
		AddLampMod 158, F28R2
	Else
		AddColl 148, F18
		AddColl 149, F19
		AddColl 150, F20
		AddColl 154, F24
		AddColl 155, F25
		AddColl 156, F26
		AddColl 157, F27
		AddColl 158, F28
		AddLamp 155, F25R
		AddLamp 156, F26R
		AddLamp 157, F27R
		AddLamp 157, F27R1
		AddLamp 157, F27R2
		AddLamp 158, F28R
		AddLamp 158, F28R1
		AddLamp 158, F28R2
	End If
End Sub

Sub SetLamp(nr, enabled)
	LampState(nr) = ABS(CInt(enabled))
End Sub


Sub AddLamp(nr, object)
    Select Case LampState(nr)

        Case 0 'off
            FlashLevel(nr) = FlashLevel(nr) - FlashSpeedDown(nr)
            If FlashLevel(nr) < 0 Then FlashLevel(nr) = 0
			If TypeName(object) = "Light" Then
				Object.State = 0
			End If
			If TypeName(object) = "Flasher" Then
				Object.IntensityScale = FlashLevel(nr)
			End If
			If TypeName(object) = "Primitive" Then
				Object.DisableLighting = 0
			End If

        Case 1 ' on
            FlashLevel(nr) = FlashLevel(nr) + FlashSpeedUp(nr)
            If FlashLevel(nr) > 1 Then FlashLevel(nr) = 1
			If TypeName(object) = "Light" Then
				Object.State = 1
			End If
			If TypeName(object) = "Flasher" Then
				Object.IntensityScale = FlashLevel(nr)
			End If
			If TypeName(object) = "Primitive" Then
				Object.DisableLighting = 1
			End If

    End Select
End Sub

' Modulated Flasher and Lights objects

Sub SetLampMod(nr, value)
    If value > 0 Then
		LampState(nr) = 1
	Else
		LampState(nr) = 0
	End If
	FadingLevel(nr) = value
End Sub

Sub AddLampMod(nr, object)
	Object.IntensityScale = FadingLevel(nr)/128
	If TypeName(object) = "Light" Then
		Object.State = LampState(nr)
	End If
	If TypeName(object) = "Flasher" Then
		Object.visible = LampState(nr)
	End If
End Sub

Sub AddCollMod(nr, object)
	Dim i
	for each i in object:i.State = LampState(nr):i.IntensityScale = FadingLevel(nr)/128:next
End Sub

Sub AddColl(nr, object)
	Dim i
	for each i in object:i.State = LampState(nr):next
End Sub

'*********		FLASHERS	****************
Const OnOffDelay = 50					'PROC on-off is too fast, let's reduce it a bit. This is the delay (in milliseconds) between the on and off signals		

Sub Sol18(value)
	If PROC = 0 Then
		SetLampMod 148, value
		If value = 0 Then DOFALT 18, DOFOff Else DOFALT 18, DOFOn End If
		If value > 110 Then
			Mine.Image = "GoldMine_1"
		Else
			Mine.Image = "GoldMine_0"
		End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 18, DOFOn
			Mine.Image = "GoldMine_1"
			SetLamp 148, 1
		else
			F18a.TimerInterval=OnOffDelay:F18a.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub F18a_timer()
	Me.TimerEnabled=0
	DOFALT 18, DOFOff
	Mine.Image = "GoldMine_0"
	SetLamp 148, 0
End Sub

Sub Sol19(value)
	If PROC = 0 Then
		SetLampMod 149, value
		If value = 0 Then DOFALT 19, DOFOff Else DOFALT 19, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 19, DOFOn
			SetLamp 149, 1
		else
			light10.TimerInterval=OnOffDelay:light10.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub light10_timer()
	Me.TimerEnabled=0
	DOFALT 19, DOFOff
	SetLamp 149, 0
End Sub

Sub Sol20(value)
	If PROC = 0 Then
		SetLampMod 150, value
		If value = 0 Then DOFALT 20, DOFOff Else DOFALT 20, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 20, DOFOn
			SetLamp 150, 1
		else
			light11.TimerInterval=OnOffDelay:light11.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub light11_timer()
	Me.TimerEnabled=0
	DOFALT 20, DOFOff
	SetLamp 150, 0
End Sub

Sub Sol24(value)
	If PROC = 0 Then
		SetLampMod 154, value
		If value = 0 Then DOFALT 24, DOFOff Else DOFALT 24, DOFOn End If
	End If
	If PROC = 1 Then
		DOFALT 24, ABS(CInt(value))
		SetLamp 154, value
	End If
End Sub

Sub Sol25(value)
	If PROC = 0 Then
		SetLampMod 155, value
		If value = 0 Then DOFALT 25, DOFOff Else DOFALT 25, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 25, DOFOn
			SetLamp 155, 1
		else
			F25R.TimerInterval=OnOffDelay:F25R.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub F25R_timer()
	Me.TimerEnabled=0
	DOFALT 25, DOFOff
	SetLamp 155, 0
End Sub

Sub Sol26(value)
	If PROC = 0 Then
		SetLampMod 156, value
		If value = 0 Then DOFALT 26, DOFOff Else DOFALT 26, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 26, DOFOn
			SetLamp 156, 1
		else
			F26R.TimerInterval=OnOffDelay:F26R.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub F26R_timer()
	Me.TimerEnabled=0
	DOFALT 26, DOFOff
	SetLamp 156, 0
End Sub

Sub Sol27(value)
	If PROC = 0 Then
		SetLampMod 157, value
		If value = 0 Then DOFALT 27, DOFOff Else DOFALT 27, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 27, DOFOn
			SetLamp 157, 1
		else
			F27R.TimerInterval=OnOffDelay:F27R.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub F27R_timer()
	Me.TimerEnabled=0
	DOFALT 27, DOFOff
	SetLamp 157, 0
End Sub

Sub Sol28(value)
	If PROC = 0 Then
		SetLampMod 158, value
		If value = 0 Then DOFALT 28, DOFOff Else DOFALT 28, DOFOn End If
	End If
	If PROC = 1 Then
		If value Then
			DOFALT 28, DOFOn
			SetLamp 158, 1
		else
			F28R.TimerInterval=OnOffDelay:F28R.TimerEnabled=1	'PROC on-off is too fast, let's reduce it a bit
		End If
	End If
End Sub

Sub F28R_timer()
	Me.TimerEnabled=0
	DOFALT 28, DOFOff
	SetLamp 158, 0
End Sub

'**************		GI		*****************
Set GiCallback2 = GetRef("UpdateGI")

Sub UpdateGI(nr, step)
Dim xxx
	If PROC=0 Then
		Select Case nr
			Case 0
				If step=0 Then
					For each xxx in LeftGI:xxx.state=0:Next
				Else
					For each xxx in LeftGI:xxx.state=1:Next
				End If
				For each xxx in LeftGI:xxx.IntensityScale = 0.125 * step:next
			Case 1
				If step=0 Then
					For each xxx in RightGI:xxx.state=0:Next
				Else
					For each xxx in RightGI:xxx.state=1:Next
				End If
				For each xxx in RightGI:xxx.IntensityScale = 0.125 * step:next
			Case 2
				If step=0 Then
					For each xxx in TopGI:xxx.state=0:Next
				Else
					For each xxx in TopGI:xxx.state=1:Next
				End If
				For each xxx in TopGI:xxx.IntensityScale = 0.125 * step:next
				For each xxx in BWGI:xxx.IntensityScale = 0.125 * step:next
				If Step>=7 Then Table1.ColorGradeImage = "ColorGrade_8":Else Table1.ColorGradeImage = "ColorGrade_" & (step+1):End If
		End Select
	Else
		Select Case nr
			Case 0 For each xxx in LeftGI:xxx.state=step:Next
					If Step>0 Then Table1.ColorGradeImage = "ColorGrade_8":Else Table1.ColorGradeImage = "ColorGrade_1":End If
			Case 1 For each xxx in RightGI:xxx.state=step:Next
			Case 2 For each xxx in TopGI:xxx.state=step:Next:For each xxx in BWGI:xxx.visible = step:next
		End Select
	End If
End Sub

' *********************************************************************
' 			Left and Right Orbits Hack
' *********************************************************************
'slow down the ball when shooting at loops (orbis)
Sub LoopHelpL_Unhit():If ActiveBall.VelY > 20 Then ActiveBall.VelY = RndNum(18,20):End If:End Sub
Sub LoopHelpR_Unhit():If ActiveBall.VelY > 20 Then ActiveBall.VelY = RndNum(18,20):End If:End Sub

' *********************************************************************
'					Supporting Ball & Sound Functions
' *********************************************************************

Function Vol(ball) ' Calculates the Volume of the sound based on the ball speed
    Vol = Csng(BallVel(ball) ^2 / 800)
End Function

Function AudioPan(ball) ' Calculates the pan for a ball based on the X position on the table. "table1" is the name of the table
    Dim tmp
    tmp = ball.x * 2 / table1.width-1
    If tmp > 0 Then
        AudioPan = Csng(tmp ^10)
    Else
        AudioPan = Csng(-((- tmp) ^10) )
    End If
End Function

Function Pitch(ball) ' Calculates the pitch of the sound based on the ball speed
    Pitch = BallVel(ball) * 20
End Function

Function BallVel(ball) 'Calculates the ball speed
    BallVel = INT(SQR((ball.VelX ^2) + (ball.VelY ^2) ) )
End Function

Function AudioFade(ball)
    Dim tmp
    tmp = ball.y * 2 / Table1.height-1
    If tmp > 0 Then
        AudioFade = Csng(tmp ^10)
    Else
        AudioFade = Csng(-((- tmp) ^10) )
    End If
End Function

'*********************************************************************
'                 Positional Sound Playback Routines
'*********************************************************************

Sub PlaySoundXY(soundname, loopcount, volume, useexisting, tableobj)
	If Table1.VersionMinor > 3 OR Table1.VersionMajor > 10 Then
		PlaySound soundname, loopcount, volume, AudioPan(tableobj), 0, Pitch(tableobj), useexisting, 0, AudioFade(tableobj)
	Else
		PlaySound soundname, loopcount, volume, AudioPan(tableobj), 0, Pitch(tableobj), useexisting, 0
	End If
End Sub

Sub PlaySoundAt(soundname, tableobj)
	If Table1.VersionMinor > 3 OR Table1.VersionMajor > 10 Then
		PlaySound soundname, 1, 1, AudioPan(tableobj), 0, 0, 0, 1, AudioFade(tableobj)
	Else
		PlaySound soundname, 1, 1, AudioPan(tableobj)
	End If
End Sub

Sub PlaySoundAtBall(soundname)
	If Table1.VersionMinor > 3 OR Table1.VersionMajor > 10 Then
		PlaySound soundname, 1, 1, AudioPan(ActiveBall), 0, 0, 0, 1, AudioFade(ActiveBall)
	Else
		PlaySound soundname, 1, 1, AudioPan(ActiveBall)
	End If
End Sub

Sub PlaySoundAtBallLouder(soundname)
	If Table1.VersionMinor > 3 OR Table1.VersionMajor > 10 Then
		PlaySound soundname, 0, 10*Vol(ActiveBall), AudioPan(ActiveBall), 0, Pitch(ActiveBall), 1, 0, AudioFade(ActiveBall)
	Else
		PlaySound soundname, 0, 10*Vol(ActiveBall), AudioPan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
	End If
End Sub

Sub PlayLoopSoundAt(soundname, tableobj)
	If Table1.VersionMinor > 3 OR Table1.VersionMajor > 10 Then
		PlaySound soundname, -1, 1, AudioPan(tableobj), 0, 0, 1, 0, AudioFade(tableobj)
	Else
		PlaySound soundname, -1, 1, AudioPan(tableobj), 0, 0, 1, 0
	End If
End Sub

'*****************
'* Maths
'*****************

Const Pi = 3.1415927

Function dSin(degrees)
	dsin = sin(degrees * Pi/180)
	if ABS(dSin) < 0.000001 Then dSin = 0
	if ABS(dSin) > 0.999999 Then dSin = 1' * sgn(dSin)
End Function

Function dCos(degrees)
	dcos = cos(degrees * Pi/180)
	if ABS(dCos) < 0.000001 Then dCos = 0
	if ABS(dCos) > 0.999999 Then dCos = 1' * sgn(dCos)
End Function

Function RndNum(min, max)
    RndNum = Int(Rnd() * (max-min + 1) ) + min ' Sets a random number between min and max
End Function

' *********************************************************************
'       RealTime Updates
' *********************************************************************
Set MotorCallback = GetRef("GameTimer")

Sub GameTimer
sw65p.rotx = sw65flip.currentangle
sw68p.rotx = sw68flip.currentangle
sw83p.rotx = sw83flip.currentangle
sw84p.rotx = sw84flip.currentangle
sw85p.rotx = sw85flip.currentangle
FlipperL.rotz=LeftFlipper.currentangle
FlipperR.rotz=RightFlipper.currentangle
FlipperLsh.rotz=LeftFlipper.currentangle
FlipperRsh.rotz=RightFlipper.currentangle
sw82p.rotx = BartRampG.currentangle
sw73p.rotx = SaloonG.currentangle
LLoopGateSw.roty = LLoopGate.currentangle
RLoopGateSw.roty = RLoopGate.currentangle
RollingSoundUpdate
BallShadowUpdate
End Sub

'*********** ROLLING SOUND *********************************
Const tnob = 5						' total number of balls : 4 (trough) + 1 (Fake Ball)
Const fakeballs = 1					' number of balls created on table start (rolling sound and ballshadow will be skipped)
ReDim rolling(tnob-fakeballs)

Sub InitRolling:Dim i:For i=0 to (tnob-fakeballs-1):rolling(i) = False:Next:End Sub

Sub RollingSoundUpdate()
    Dim BOT, b
    BOT = GetBalls
	' stop the sound of deleted balls
	If UBound(BOT)<(tnob - 1) Then
		For b = (UBound(BOT)-fakeballs + 2) to (tnob-fakeballs)
			rolling(b-1) = False
			StopSound("fx_ballrolling" & b)
		Next
	End If
	' exit the Sub if no balls on the table
    If UBound(BOT) = fakeballs-1 Then Exit Sub
	' play the rolling sound for each ball
    For b = fakeballs to UBound(BOT)
        If BallVel(BOT(b)) > 1 AND BOT(b).z < 30 Then
            rolling(b-fakeballs) = True
			PlaySoundXY "fx_ballrolling" & (b-fakeballs+1), -1, Vol(BOT(b))/4, 1, BOT(b)
        Else
            If rolling(b-fakeballs) = True Then
                StopSound("fx_ballrolling" & (b-fakeballs+1))
                rolling(b-fakeballs) = False
            End If
        End If
    Next
End Sub

'*********** BALL SHADOW *********************************
Dim BallShadow
BallShadow = Array (BallShadow1, BallShadow2, BallShadow3,Ballshadow4)

Sub BallShadowUpdate()
    Dim BOT, b
    BOT = GetBalls
	' hide shadow of deleted balls
	If UBound(BOT)<(tnob-1) Then
		For b = (UBound(BOT)-fakeballs + 2) to (tnob-fakeballs)
			BallShadow(b-1).visible = 0
		Next
	End If
	' exit the Sub if no balls on the table
    If UBound(BOT) = fakeballs-1 Then Exit Sub
	' render the shadow for each ball
    For b = fakeballs to UBound(BOT)
		If BOT(b).X < Table1.Width/2 Then
			BallShadow(b-fakeballs).X = ((BOT(b).X) - (Ballsize/6) + ((BOT(b).X - (Table1.Width/2))/10)) + 10
		Else
			BallShadow(b-fakeballs).X = ((BOT(b).X) + (Ballsize/6) + ((BOT(b).X - (Table1.Width/2))/10)) - 10
		End If
	    ballShadow(b-fakeballs).Y = BOT(b).Y + 15
		If BOT(b).Z > 20 Then
			BallShadow(b-fakeballs).visible = 1
		Else
			BallShadow(b-fakeballs).visible = 0
		End If
	Next
End Sub

'**********************
' Balldrop & Ramp Sound
'**********************

Sub Balldrop1_Hit() : StopSound "fx_leftramp_exit" : Me.TimerInterval= 200: Me.TimerEnabled=1: End Sub
Sub Balldrop1_Timer(): Me.TimerEnabled=0: PlaySoundAt "fx_balldrop", Balldrop1: End Sub

Sub Balldrop2_Hit() : StopSound "fx_leftramp_exit" : Me.TimerInterval= 150: Me.TimerEnabled=1: End Sub
Sub Balldrop2_Timer(): Me.TimerEnabled=0: PlaySoundAt "fx_balldrop", Balldrop2: End Sub

Sub LREnter_Hit(): If ActiveBall.VelY < 0 Then PlaySoundAtBall "fx_leftramp_enter": End If: End Sub
Sub LREnter_UnHit(): If ActiveBall.VelY > 0 Then StopSound "fx_leftramp_enter": End If: End Sub

Sub RREnter_Hit(): If ActiveBall.VelY < 0 Then PlaySoundAtBall "fx_leftramp_enter": End If: End Sub
Sub RREnter_UnHit(): If ActiveBall.VelY > 0 Then StopSound "fx_leftramp_enter": End If: End Sub

Sub LREnter1_Hit() : PlaySoundAtBall "fx_leftramp_exit" : End Sub

Sub RPin_Hit() : RandomSoundMetal() : End Sub
Sub LPin_Hit() : RandomSoundMetal() : End Sub
Sub Trigger1_Hit() : StopSound "fx_launch" : PlaySoundAtBall "fx_turn_SSRamp" :End Sub
Sub Trigger2_Hit() : StopSound "fx_launch" : PlaySoundAtBall "fx_balldrop_SSRamp" : End Sub
Sub Trigger3_Hit() : PlaySoundAtBall "fx_wireramp" : End Sub
Sub Trigger4_Hit() : StopSound "fx_wireramp" : End Sub
Sub Trigger5_Hit() : PlaySoundAtBall "fx_wireramp" : End Sub
Sub Trigger6_Hit() : StopSound "fx_wireramp" : Me.TimerInterval= 200: Me.TimerEnabled=1: End Sub
Sub Trigger6_Timer() : Me.TimerEnabled=0: PlaySoundAt "fx_balldrop_station", Trigger6: End Sub
Sub Trigger7_Hit() : If BIP > 0 And ActiveBall.VelY < 0 Then PlaySoundAtBall "fx_launch" : Else StopSound "fx_launch" : End If : End Sub

' *********************************************************************
' 						Other Sound FX
' *********************************************************************

'Ball Collision
Sub OnBallBallCollision(ball1, ball2, velocity)
	PlaySoundXY "fx_collide", 0, Csng(velocity) ^2 / 500, 0, ball1
End Sub

'Gates Collision
Sub LLoopGate_Hit() : RandomSoundMetal() : End Sub
Sub RLoopGate_Hit() : RandomSoundMetal() :End Sub

'Flippers Collision
Sub LeftFlipper_Collide(parm):RandomSoundFlipper:End Sub
Sub Rightflipper_Collide(parm):RandomSoundFlipper:End Sub

'Rubber Posts Collision
Sub Posts_Hit()
 	dim finalspeed
  	finalspeed=SQR((activeball.velx ^2) + (activeball.vely ^2))
 	If finalspeed > 20 then 
		PlaySoundAtBallLouder "fx_rubber"
	End if
	If finalspeed >= 6 AND finalspeed <= 16 then
 		RandomSoundRubber()
 	End If
End Sub

'Rubber Collision
Sub Rubbers_Hit(idx)
 	dim finalspeed
  	finalspeed=SQR((activeball.velx ^2) + (activeball.vely ^2))
 	If finalspeed > 20 then 
		PlaySoundAtBallLouder "fx_rubber"
	End if
	If finalspeed >= 6 AND finalspeed <= 20 then
 		RandomSoundRubber()
 	End If
End Sub

Sub RandomSoundRubber()
	Select Case RndNum(1,3)
		Case 1 : PlaySoundAtBallLouder "fx_rubber_hit_1"
		Case 2 : PlaySoundAtBallLouder "fx_rubber_hit_2"
		Case 3 : PlaySoundAtBallLouder "fx_rubber_hit_3"
	End Select
End Sub

Sub RandomSoundFlipper()
	Select Case RndNum(1,3)
		Case 1 : PlaySoundAtBallLouder "fx_flip_hit_1"
		Case 2 : PlaySoundAtBallLouder "fx_flip_hit_2"
		Case 3 : PlaySoundAtBallLouder "fx_flip_hit_3"
	End Select
End Sub

Sub RandomSoundMetal()
	Select Case RndNum(1,3)
		Case 1 : PlaySoundAtBallLouder "fx_metal_hit_1"
		Case 2 : PlaySoundAtBallLouder "fx_metal_hit_2"
		Case 3 : PlaySoundAtBallLouder "fx_metal_hit_3"
	End Select
End Sub

'******************************************************************************************
'* TABLE OPTIONS **************************************************************************
'******************************************************************************************

'**** New Options Selection through F6 menu ***

Dim FlipperType, ScoopLight, ColorMod, BadGuysMod, BeerMugMod

'REGISTRY LOCATIONS ***************************************************************************************************************************************
 
 Const optOpenAtStart	= &H00001
 Const optBeerMug	= &H00010
 Const optFlip		= &H00020
 Const optScoop		= &H00080
 Const optGIMod		= &H00100
 Const optBadGuys	= &H00200

'OPTIONS MENU *********************************************************************************************************************************************

Dim TableOptions, TableName, optReset
Private vpmShowDips1, vpmDips1

 Sub InitializeOptions
	'Replace with your descriptive table name, it will be used to save settings in VPReg.stg file
	If PROC = 1 Then
		TableName="CCC_TTNZ"
	Else
		TableName="CC_TTNZ"
	End If
	Set vpmShowDips1 = vpmShowDips								'Reassigns vpmShowDips to vpmShowDips1 to allow usage of default dips menu
	Set vpmShowDips = GetRef("TableShowDips")					'Assigns new sub to vmpShowDips
 	TableOptions = LoadValue(TableName,"Options")				'Load saved table options
	Set Controller = CreateObject("VPinMAME.Controller")		'Load vpm controller temporarily so options menu can be loaded if needed
	If TableOptions = "" Or optReset Then						'If no existing options, reset to default through optReset, then open Options menu
		TableOptions = optOpenAtStart + 2*optFlip				'clear any existing settings and set table options to default options
		TableShowOptions
	ElseIf (TableOptions And optOpenAtStart) Then				'If Enable Next Start was selected then
		TableOptions = TableOptions - optOpenAtStart			'clear setting to avoid future executions
		TableShowOptions
	Else
		TableSetOptions
	End If
	Set Controller = Nothing									'Unload vpm controller so selected controller can be loaded
 End Sub

Private Sub TableShowDips
	vpmShowDips1												'Show original Dips menu
	TableShowOptions											'Show new options menu
End Sub

 Private Sub TableShowOptions					'New options menu, additional menus can be added as well, just follow similar format and add call to TableShowDips
   Dim oldOptions : oldOptions = TableOptions
	If Not IsObject(vpmDips1) Then				'If creating an additional menus, need to declare additional vpmDips variables above (ex. vpmDips2 and TableOptions2, etc.)
		Set vpmDips1 = New cvpmDips
		With vpmDips1
			.AddForm 630, 250, "TABLE OPTIONS MENU (Press " & vpmKeyName(keyShowDips) & " to open this menu)"
			.AddFrameExtra 0,0,155,"Beer Mug Mod",optBeerMug, Array("No", 0*optBeerMug, "Yes", 1*optBeerMug)
			.AddFrameExtra 0,50,155,"Flippers Type",3*optFlip, Array("White", 0*optFlip, "Yellow", 1*optFlip, "Random", 2*optFlip)
			.Addlabel 0,125,125,41,"TIP: To Reset to defaults,open table script and uncomment line 31"
			.AddChkExtra 0,180,155,Array("Enable Menu Next Start", optOpenAtStart)
			.AddFrameExtra 175,0,155,"Red Light under the scoop",optScoop, Array("No", 0*optScoop, "Yes", 1*optScoop)
			.AddFrameExtra 175,50,155,"G.I Mod",optGIMod, Array("No", 0*optGIMod, "Yes", 1*optGIMod)
			.AddFrameExtra 175,100,155,"Bad Guys Flashing lights", optBadGuys, Array("No", 0*optBadGuys, "Yes", 1*optBadGuys)
		End With
	End If
	TableOptions = vpmDips1.ViewDipsExtra(TableOptions)
	SaveValue TableName,"Options",TableOptions
	TableSetOptions
 End Sub

'MENU ENTRYS *********************************************************************************************************************************************

 Sub TableSetOptions		'defines required settings before table is run
	BeerMugMod = (TableOptions And optBeerMug)\optBeerMug
	FlipperType = (TableOptions And 3*optFlip)\optFlip
	ScoopLight = (TableOptions And optScoop)\optScoop
	ColorMod = (TableOptions And optGIMod)\optGIMod
	BadGuysMod = (TableOptions And optBadGuys)\optBadGuys
	SaveValue TableName,"Options",TableOptions
	GetOptions
 End Sub

Sub GetOptions
	Dim xx
	ScoopL.visible = ScoopLight
	CabRail.visible = DesktopMode
	light58.visible = DesktopMode
	light59.visible = NOT DesktopMode

	If FlipperType = 2 then FlipperType = RndNum(0, 1)

	Select Case FlipperType
		Case 0:	FlipperL.image = "flippers white"
				FlipperR.image = "flippers white"
		Case 1:	FlipperL.image = "flippers"
				FlipperR.image = "flippers"
	End Select

	For Each xx in BadGuysLights : xx.visible = BadGuysMod : Next

	Select Case ColorMod
		Case 0:	For xx=0 to (RedGI.count-1) : RedGI(xx).color = RGB (255, 200, 128) : RedGI(xx).intensity = RedGis(xx) : Next
				For Each xx in GreenGI : xx.color = RGB (255, 200, 128) : Next
				For xx=0 to (BlueGI.count-1) : BlueGI(xx).color = RGB (255, 200, 128) : BlueGI(xx).intensity = BlueGis(xx): Next

		Case 1:	For Each xx in RedGI : xx.color = RGB (255, 0, 0) : xx.intensity = 65 : Next
				For Each xx in GreenGI : xx.color = RGB (0, 255, 0) : Next
				For Each xx in BlueGI : xx.color = RGB (0, 0, 255) : xx.intensity = 65: Next
	End Select

End Sub