ngg 1.01 dof

'No Good Gofers by Bodydump
'Models by Dark
Option Explicit
Randomize

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


Const BallSize = 50

Dim hideDMD

'***Apron Style***
' 0 = Standard apron
' 1 = Custom apron
apronstyle = 1

'**************************
'Desktop/Fullscreen Changes
'**************************

If Table.ShowDT = true then
	Ramp15.visible = True
	Ramp16.visible = True
	Ramp17.visible = True
	Light47.Intensity = 0
	hideDMD = 0
else
	Ramp15.visible = False
	Ramp16.visible = False
	Ramp17.visible = False
	hideDMD = 1
end if

Const UseVPMModSol = 1

   LoadVPM"01520000","WPC.VBS",3.1

'********************
'Standard definitions
'********************

    Dim xx, apronstyle
    Dim Bump1, Bump2, Bump3, RGoferIsUp, RightRampUp, LGoferIsUp, LeftRampUp
	Dim bsTrough, bsLeftEject, bsPuttOutPopper, bsJetPopper, bsUpperRightEject, mTT, cbCaptive
	LGoferIsUp = 0
	LeftRampUp = 0
	RGoferIsUp = 0
	RightRampUp = 0
	Const cGameName = "ngg_13"
	Const UseSolenoids = 1
	Const UseLamps = 0
	Const UseGI = 0
	Const UseSync = 0
	Const HandleMechs = 1

	Set GICallback = GetRef("UpdateGIon")
	Set GICallback2 = GetRef("UpdateGI")

	Const SSolenoidOn="fx_Solenoid"
	Const SSolenoidOff="fx_solenoidoff"
	Const sCoin="fx_Coin"

'***********
' Solenoids
' the commented solenoids are not in used in this script
'***********

		SolCallback(1)="vpmSolAutoPlunger Plunger1,3,"					'Autofire
		SolCallback(2)="vpmSolAutoPlunger KickBack,3,"					'KickBack
		SolCallback(3)="SolPuttOut"										'Clubhouse Kicker
		SolCallback(4)="SolLeftGoferUP"									'Left Gofer Up
		SolCallback(5)="SolRightGoferUP"								'Right Gofer Up
		SolCallback(6)="bsJetPopper.SolOut"								'Jet Popper
		SolCallback(7)="bsLeftEject.SolOut"								'Left Eject (Sand Trap)
		SolCallback(8)="bsUpperRightEject.SolOut"						'Upper Right Eject
		SolCallback(9)="SolBallRelease"									'Trough Eject
'		'SolCallback(10)="vpmSolSound ""Sling"","						'Left Slingshot
'		'SolCallback(11)="vpmSolSound ""Sling"","						'Right Slingshot
'		'SolCallback(12)="vpmSolSound ""Jet3"","						'Top Jet Bumper
'		'SolCallback(13)="vpmSolSound ""Jet3"","						'Middle Jet Bumper
'		'SolCallback(14)="vpmSolSound ""Jet3"","						'Bottom Jet Bumper
		SolCallback(15)="SolLeftGoferDown"								'Left Gofer Down
		SolCallback(16)="SolRightGoferDown"								'Right Gofer Down
		SolModCallback(17)="SetModLamp 170,"									'Jet Flasher
		SolModCallback(18)="SetModLamp 178,"									'Lower Left Flasher
		SolModCallback(19)="SetModLamp 180,"									'Left Spinner Flasher
		SolModCallback(20)="SetModLamp 122,"									'Right Spinner Flasher
		SolModCallback(21)="SetModLamp 179,"									'Lower Right Flasher
		SolCallback(24)="SolSubway"										'Underground Pass
		SolModCallback(25)="SetModLamp 131,"									'Sand Trap Flasher
		SolModCallback(26)="SetModLamp 190,"									'Wheel Flasher
		SolCallback(27)="SolLeftRampDown"								'Left Ramp Down
		SolCallback(28)="SolRightRampDown"								'Right Ramp Down
		SolCallback(35)="SolSlamRamp"									'Ball Launch Ramp
		SolModCallback(51)="SetModLamp 177,"									'Upper Right Flasher 1
		SolModCallback(52)="SetModLamp 175,"									'Upper Right Flasher 2
		SolModCallback(53)="SetModLamp 173,"									'Upper Right Flasher 3
		SolModCallback(58)="SetModLamp 176,"									'Upper Left Flasher 1
		SolModCallback(57)="SetModLamp 174,"									'Upper Left Flasher 2
		SolModCallback(56)="SetModLamp 172,"									'Upper Left Flasher 3
'		SolCallback(sLRFlipper)="vpmSolFlipper RightFlipper,Nothing,"
'		SolCallback(sLLFlipper)="vpmSolFlipper LeftFlipper,Nothing,"
'		SolCallback(sURFlipper)="vpmSolFlipper UpperFlipper,Nothing,"
		SolModCallback(54)="SetModLamp 145,"
		SolModCallback(55)="SetModLamp 146,"
'
	Sub SolBallRelease(Enabled)
			If Enabled Then
				If bsTrough.Balls Then
					vpmTimer.PulseSw 31
				End If
			bsTrough.ExitSol_On
			End If
	End Sub

	Sub SolPuttOut(Enabled)
		If Enabled Then
			If bsPuttOutPopper.Balls Then
				bsPuttOutPopper.InitKick sw44a,170,12
				PlaySound SoundFX("scoopexit",DOFContactors)
			End If
			bsPuttOutPopper.ExitSol_On
		End If
	End Sub
	Sub SolSubway(Enabled)
		If Enabled Then
			If bsPuttOutPopper.Balls Then
				bsPuttOutPopper.InitKick subwaystart,180,3
				bsPuttOutPopper.ExitSol_On
			End If
		End If
	End Sub

	Sub SolLeftGoferUP(Enabled)
		If Enabled Then
			LrampTimer.Enabled = 0
			If LGoferIsUp = 0 Then
				DOF 101, DOFPulse
				Controller.Switch(41)=0
				Controller.Switch(47)=0
				LGofer.IsDropped=0
				LGoferUp.Enabled = 1
				LGoferDown.Enabled = 0
				Lramp.collidable=0
				Lramp1.collidable=1
				LeftRampUp = 1
				PlaySound SoundFX("goofer_up",DOFContactors)
			Else
				DOF 102, DOFPulse
				Controller.Switch(41)=0
				Controller.Switch(47)=0
				LGoferUp.Enabled = 1
				LeftGoferBlock.collidable = 1
				LGPos = 6
			End If
		End If
	End Sub

	Sub SolRightGoferUP(Enabled)
		If Enabled Then
			RrampTimer.Enabled = 0
			If RGoferIsUp = 0 Then
				DOF 101, DOFPulse
				Controller.Switch(42)=0
				Controller.Switch(48)=0
				RGofer.IsDropped=0
				RGoferUp.Enabled = 1
				RGoferDown.Enabled = 0
				Rramp.collidable=0
				Rramp1.collidable=1
				RightRampUp = 1
				PlaySound SoundFX("goofer_up",DOFContactors)
			Else
				DOF 102, DOFPulse
				Controller.Switch(42)=0
				Controller.Switch(48)=0
				RGoferUp.Enabled = 1
				RGPos = 6
			End If
		End If
	End Sub

	Sub SolLeftGoferDown(Enabled)
		If Enabled Then
			DOF 101, DOFPulse
			Controller.Switch(41)=1
			LGoferDown.Enabled = 1
			LGoferUp.Enabled = 0
			LGofer.IsDropped=1
				PlaySound SoundFX("goofer_down",DOFContactors)
		End If
	End Sub

	Sub SolRightGoferDown(Enabled)
		If Enabled Then
			DOF 101, DOFPulse
			Controller.Switch(42)=1
			RGoferDown.Enabled = 1
			RGoferUp.Enabled = 0
			RGofer.IsDropped = 1
				PlaySound SoundFX("goofer_down",DOFContactors)
		End If
	End Sub

	Sub SolLeftRampDown(Enabled)
		If Enabled Then
			RightRampUp = 0
			LrampDir = 1
			Lramp.collidable=1
			Lramp1.collidable=0
			PlaySound "gate"
			LrampTimer.Enabled = 1

		Else

		End If
	End Sub

	Sub SolRightRampDown(Enabled)
		If Enabled Then
			RightRampUp = 0
			RrampDir = 1
			Rramp.collidable=1
			Rramp1.collidable=0
			PlaySound "gate"
			RrampTimer.Enabled = 1

		Else

		End If
	End Sub

	Sub SolSlamRamp(Enabled)
		If Enabled Then
			For each xx in aslamramp:xx.IsDropped=0:Next
			For each xx in aslamrampup:xx.IsDropped=1:Next
			jumpramptrigger.enabled = 1
			jumpramp.Collidable=1
			slamrampup.Collidable = 0
			Flipper1.RotateToEnd
			rampshadow.visible = 0
			SlamRampDownTimer.Enabled = 1
		Else

		End If
	End Sub

Sub SlamRampDownTimer_Timer()
		SlamRampUpTimer.Enabled = 1
		SlamRampDownTimer.Enabled = 0
End Sub
Sub SlamRampUpTimer_Timer()
		For each xx in aslamramp:xx.IsDropped=1:Next
		For each xx in aslamrampup:xx.IsDropped=9:Next
		jumpramp.Collidable=0
		slamrampup.Collidable = 1
		jumpramptrigger.enabled = 0
		Flipper1.RotateToStart
		rampshadow.visible = 1
		SlamRampUpTimer.Enabled = 0
End Sub

'************
' Table init.
'************

  Sub Table_Init
	vpmInit me
	With Controller
		.GameName = cGameName
		If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description:Exit Sub
		.SplashInfoLine="No Good Gofers" & vbNewLine & "VP Table by Bodydump"
		.HandleKeyboard=0
		.ShowTitle=0
		.ShowDMDOnly=1
		.ShowFrame=0
		.HandleMechanics=1
		.Hidden=0
		On Error Resume Next
		.Run GetPlayerHWnd
		If Err Then MsgBox Err.Description
		On Error Goto 0
	End With
	'Nudging
    	vpmNudge.TiltSwitch=14
    	vpmNudge.Sensitivity=1
    	vpmNudge.TiltObj=Array(Bumper1,Bumper2,Bumper3,LeftSlingshot,RightSlingshot)

	'Trough
		Set bsTrough=New cvpmTrough
    		With bsTrough
        	.size = 6
       		.initSwitches Array(32, 33, 34, 35,36,37)
       	 	.Initexit BallRelease, 105,5
        	.InitEntrySounds "fx_drain", "fx_Solenoid", "fx_Solenoid"
        	.InitExitSounds SoundFX("fx_Solenoid",DOFContactors), SoundFX("fx_ballrel",DOFContactors)
        	.Balls = 6
    	End With

	'Sand Trap Eject
		Set bsLeftEject = New cvpmSaucer
			With bsLeftEject
			.InitKicker LeftEject, 78, 78, 30, 0
			.InitSounds "fx_kicker_enter", SoundFX("fx_Solenoid",DOFContactors), SoundFX("fx_Popper",DOFContactors)
		End With

	'Putt Out Popper
		Set bsPuttOutPopper=New cvpmBallStack
		With bsPuttOutPopper
			.InitSw 0,44,0,0,0,0,0,0
			.InitKick sw44a,170,12
		End With

	'Jet Popper
		Set bsJetPopper=New cvpmBallStack
		With bsJetPopper
			.InitSw 0,38,25,0,0,0,0,0
			.InitKick JetPopper,180,10
			.InitExitSnd SoundFX("fx_Popper",DOFContactors), SoundFX("fx_Solenoid",DOFContactors)
		End With

	'Upper Right Eject
		Set bsUpperRightEject=New cvpmBallStack
		With bsUpperRightEject
			.InitSw 0,46,0,0,0,0,0,0
			.InitKick upperrightkicker,120,5
			.InitExitSnd SoundFX("fx_Popper",DOFContactors), SoundFX("fx_Solenoid",DOFContactors)
		End With

	'Turntable
		Set mTT=New cvpmTurnTable
		With mTT
			.InitTurnTable TurnTable,40
			.SpinUp=40
			.SpinDown=40
			.CreateEvents "mTT"
		End With
		Blur.Enabled = 0

	'Captive Ball
		Set cbCaptive=New cvpmCaptiveBall
		With cbCaptive
			.InitCaptive Captive,CWALL,Array(Captive1,Captive2),350
			.NailedBalls=1
			.Start
			.ForceTrans=0.9
			.MinForce=4
			.CreateEvents "cbCaptive"
		End With
		Captive1.CreateBall
	If apronstyle = 0 Then
		apron.IsDropped = 1
		apron1.IsDropped = 0
	Else
		apron.IsDropped = 0
		apron1.IsDropped = 1
	End If

	If nightday<5 then
	For each xx in extraambient:xx.intensityscale = 1:Next
	End If
	If nightday>5 then
	For each xx in extraambient:xx.intensity = xx.intensity*.9:Next
	End If
	If nightday>10 then
	For each xx in extraambient:xx.intensity = xx.intensity*.7:Next
	For each xx in GIleft:xx.intensity = xx.intensity*.9:Next
	For each xx in GIright:xx.intensity = xx.intensity*.9:Next
	End If
	If nightday>20 then
	For each xx in extraambient:xx.intensity = xx.intensity*.6:Next
	For each xx in GIleft:xx.intensity = xx.intensity*.8:Next
	For each xx in GIright:xx.intensity = xx.intensity*.8:Next
	End If
	If nightday>30 then
	For each xx in extraambient:xx.intensity = xx.intensity*.4:Next
	For each xx in GIleft:xx.intensity = xx.intensity*.7:Next
	For each xx in GIright:xx.intensity = xx.intensity*.7:Next
	End If



'      '**Main Timer init
           PinMAMETimer.Enabled = 1

	Plunger1.PullBack
	Kickback.PullBack
	Controller.Switch(22)=1 'close coin door
	Controller.Switch(24)=0 'always closed
	Controller.Switch(41)=1 'drop left gofer
	Controller.Switch(42)=1 'drop right gofer
	Controller.Switch(47)=1 'left ramp down
	Controller.Switch(48)=1 'right ramp down
	LGofer.IsDropped = 1
	RGofer.IsDropped = 1
	Rramp1.collidable=0
	Lramp1.collidable=0

End Sub

		Sub Table_Paused:Controller.Pause = 1:End Sub
		Sub Table_unPaused:Controller.Pause = 0:End Sub

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

		Sub table_KeyDown(ByVal Keycode)
			If keycode = PlungerKey Then Plunger.Pullback:PlaySound SoundFX("fx_plungerpull",DOFContactors)
			If keycode = LeftTiltKey Then vpmNudge.DoNudge 90, 3:PlaySound SoundFX("fx_nudge",0), 0, 1, -0.1, 0.25
			If keycode = RightTiltKey Then vpmNudge.DoNudge 270, 3:PlaySound SoundFX("fx_nudge",0), 0, 1, 0.1, 0.25
			If keycode = CenterTiltKey Then vpmNudge.DoNudge 0, 4:PlaySound SoundFX("fx_nudge",0), 0, 1, 0, 0.25
			If vpmKeyDown(keycode) Then Exit Sub
		End Sub

		Sub table_KeyUp(ByVal Keycode)
			If keycode = PlungerKey Then Plunger.Fire:PlaySound SoundFX("fx_plunger",DOFContactors)
			If vpmKeyUp(keycode) Then Exit Sub
		End Sub


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

		SolCallback(sLRFlipper) = "SolRFlipper"
		SolCallback(sLLFlipper) = "SolLFlipper"

		Sub SolLFlipper(Enabled)
			If Enabled Then
				PlaySound SoundFX("FlipperUpLeft",DOFFlippers), 0, 1, -0.1, 0.05
				LeftFlipper.RotateToEnd
			Else
				PlaySound SoundFX("fx_flipperdown",DOFFlippers), 0, 1, -0.1, 0.05
				LeftFlipper.RotateToStart
			End If
		End Sub

		Sub SolRFlipper(Enabled)
			If Enabled Then
				PlaySound SoundFX("FlipperUpRightBoth",DOFFlippers), 0, 1, 0.1, 0.05
				RightFlipper.RotateToEnd
				UpperFlipper.RotateToEnd
			Else
				PlaySound SoundFX("fx_flipperdown",DOFFlippers), 0, 1, 0.1, 0.05
				RightFlipper.RotateToStart
				UpperFlipper.RotateToStart
			End If
		End Sub

'****************************
' Drain holes, vuks & saucers
'****************************
		Sub Drain_Hit:PlaySound "fx_drain":bsTrough.AddBall Me:End Sub
		Sub LeftEject_Hit:PlaySound "fx_kicker_enter", 0, 1, -0.05, 0.05:bsLeftEject.AddBall 0:End Sub  												'Sand Trap Eject
'		Sub sw44a_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44b_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44c_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44d_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44e_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44f_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44g_Hit:PlaySound "Trough1", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44h_Hit:PlaySound "Trough2", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub sw44i_Hit:PlaySound "Trough2", 0, 1, 0.05, 0.05:bsPuttOutPopper.AddBall Me:End Sub			'Putt Out Popper
'		Sub behindleftgofer_Hit:PlaySound "BehindLeftGofer", 0, 1, -0.05, 0.05:Me.DestroyBall:vpmTimer.PulseSwitch(67),100,"HandlePuttOut":End Sub
'		Sub rightpopperjam_Hit:PlaySound "Right_Hit", 0, 1, 0.05, 0.05:Me.DestroyBall:vpmTimer.PulseSwitch(45),160,"HandleRightGofer":End Sub

Dim xball,yball
	Sub behindleftgofer_Hit
		PlaySound "BehindLeftGofer", 0, 1, -0.05, 0.05
		Set xball = ActiveBall
		Me.TimerEnabled = 1
		Me.TimerInterval = 10
		Me.Enabled = 0
	End Sub

	Sub behindleftgofer_Timer()
		Do While xball.Z > 0
			xball.Z = xball.Z -5
			Exit Sub
		Loop
		Me.DestroyBall
		Me.TimerEnabled = 0
		Me.Enabled = 1
		vpmTimer.PulseSwitch(67),100,"HandlePuttOut"
	End Sub

	Sub rightpopperjam_Hit
		PlaySound "Right_Hit", 0, 1, 0.05, 0.05
		Set yball = ActiveBall
		Me.TimerEnabled = 1
		Me.TimerInterval = 10
		Me.Enabled = 0
	End Sub

	Sub rightpopperjam_Timer()
		Do While yball.Z > 0
			yball.Z = yball.Z -5
			Exit Sub
		Loop
		Me.DestroyBall
		Me.TimerEnabled = 0
		Me.Enabled = 1
		vpmTimer.PulseSwitch(45),160,"HandleRightGofer"
	End Sub

		Sub subwayend_Hit:bsJetPopper.AddBall Me:End Sub								'Underground Pass
		Sub holeinone_Hit:PlaySound "holeinone", 0, 1, 0.05, 0.05:Me.DestroyBall:vpmTimer.PulseSwitch(68),160,"HandleTopHole":End Sub
		Sub HandleTopHole(swNo):vpmTimer.PulseSwitch(67),100,"HandlePuttOut":End Sub
		Sub HandlePuttOut(swNo):bsPuttOutPopper.AddBall 0:End Sub
		Sub HandleRightGofer(swNo):bsUpperRightEject.AddBall 0:End Sub

' Puttout Holes Animation
Dim hole1, hole2, hole3, hole4, hole5, hole6, hole7, hole8, hole9
Dim aBall, bBall, cBall, dBall, eBall, fBall, gBall, hBall, iBall
' sw44a
set hole1 = (New CHole)(sw44a, aBall)
Sub sw44a_Hit : hole1.Hit : End Sub
Sub sw44a_Timer : hole1.Timer : End Sub
' sw44b
set hole2 = (New CHole)(sw44b, bBall)
Sub sw44b_Hit : hole2.Hit : End Sub
Sub sw44b_Timer : hole2.Timer : End Sub
' sw44c
set hole3 = (New CHole)(sw44c, cBall)
Sub sw44c_Hit : hole3.Hit : End Sub
Sub sw44c_Timer : hole3.Timer : End Sub
' sw44d
set hole4 = (New CHole)(sw44d, dBall)
Sub sw44d_Hit : hole4.Hit : End Sub
Sub sw44d_Timer : hole4.Timer : End Sub
' sw44e
set hole5 = (New CHole)(sw44e, eBall)
Sub sw44e_Hit : hole5.Hit : End Sub
Sub sw44e_Timer : hole5.Timer : End Sub
' sw44f
set hole6 = (New CHole)(sw44f, fBall)
Sub sw44f_Hit : hole6.Hit : End Sub
Sub sw44f_Timer : hole6.Timer : End Sub
' sw44g
set hole7 = (New CHole)(sw44g, gBall)
Sub sw44g_Hit : hole7.Hit : End Sub
Sub sw44g_Timer : hole7.Timer : End Sub
' sw44h
set hole8 = (New CHole)(sw44h, hBall)
Sub sw44h_Hit : hole8.Hit : End Sub
Sub sw44h_Timer : hole8.Timer : End Sub
' sw441
set hole9 = (New CHole)(sw44i, iBall)
Sub sw44i_Hit : hole9.Hit : End Sub
Sub sw44i_Timer : hole9.Timer : End Sub

Class CHole
	Private m_hole		' kicker object that handles the physics
	Private m_ball      ' variabile used for animation

	Public Default Function Init(kickerObj, m_ball)
		set m_hole = kickerObj
		set Init = Me
	End Function

	Public Sub Hit()
		PlaySound "Trough1", 0, 1, pan(ActiveBall)
		Set m_ball = ActiveBall
		m_hole.TimerEnabled = 1
		m_hole.TimerInterval = 10
		vpmTimer.AddTimer 200, "bsPuttOutPopper.AddBall"
		m_hole.Enabled = 0
	End Sub

	Public Sub Timer()
		Do While m_ball.Z > 0
			m_ball.Z = m_ball.Z -5
			Exit Sub
		Loop
		m_hole.DestroyBall
		m_hole.TimerEnabled = 0
		m_hole.Enabled = 1
	End Sub
End Class

'***************
'  Slingshots
'***************
'**********Sling Shot Animations
' Rstep and Lstep  are the variables that increment the animation
'****************
		Dim RStep, Lstep

		Sub RightSlingShot_Slingshot
			PlaySound SoundFX("right_slingshot",DOFContactors), 0, 1, 0.05, 0.05
			vpmTimer.PulseSw 52
			RSling.Visible = 0
			RSling1.Visible = 1
			sling1.TransZ = -20
			RStep = 0
			RightSlingShot.TimerEnabled = 1
		End Sub

		Sub RightSlingShot_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:RightSlingShot.TimerEnabled = 0
			End Select
			RStep = RStep + 1
		End Sub

		Sub LeftSlingShot_Slingshot
			PlaySound SoundFX("left_slingshot",DOFContactors), 0, 1, -0.05, 0.05
			vpmTimer.PulseSw 51
			LSling.Visible = 0
			LSling1.Visible = 1
			sling2.TransZ = -20
			LStep = 0
			LeftSlingShot.TimerEnabled = 1
		End Sub

		Sub LeftSlingShot_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:LeftSlingShot.TimerEnabled = 0
			End Select
			LStep = LStep + 1
		End Sub

'***************
'   Bumpers
'***************
		Sub Bumper1_Hit:vpmTimer.PulseSw 54:PlaySound SoundFX("RightBumper_Hit",DOFContactors), 0, 1, -0.03, 0.05:End Sub
		Sub Bumper2_Hit:vpmTimer.PulseSw 53:PlaySound SoundFX("TopBumper_Hit",DOFContactors), 0, 1, -0.05, 0.05:End Sub
		Sub Bumper3_Hit:vpmTimer.PulseSw 55:PlaySound SoundFX("LeftBumper_Hit",DOFContactors), 0, 1, -0.05, 0.05:End Sub


'************
' Spinners
'************
		Sub Spinner1_Spin():vpmTimer.PulseSwitch(61),0,"":PlaySound "fx_spinner", 0, 1, -0.05, 0.05: End Sub
		Sub Spinner2_Spin():vpmTimer.PulseSwitch(62),0,"":PlaySound "fx_spinner", 0, 1, 0.05, 0.05: End Sub

'*********************
' Switches & Rollovers
'*********************
		Sub sw18_Hit:Controller.Switch(18)=1:PlaySound "fx_sensor":End Sub
		Sub sw18_UnHit:Controller.Switch(18)=0:End Sub
		Sub sw16_Hit:Controller.Switch(16)=1:PlaySound "fx_sensor":End Sub
		Sub sw16_UnHit:Controller.Switch(16)=0:End Sub
		Sub sw17_Hit:Controller.Switch(17)=1:PlaySound "fx_sensor":End Sub
		Sub sw17_UnHit:Controller.Switch(17)=0:End Sub
		Sub sw26_Hit:Controller.Switch(26)=1:PlaySound "fx_sensor":End Sub
		Sub sw26_UnHit:Controller.Switch(26)=0:End Sub
		Sub sw27_Hit:Controller.Switch(27)=1:PlaySound "fx_sensor":End Sub
		Sub sw27_UnHit:Controller.Switch(27)=0:End Sub
		Sub sw28_Hit:Controller.Switch(28)=1:PlaySound "fx_sensor":End Sub
		Sub sw28_UnHit:Controller.Switch(28)=0:End Sub
		Sub sw71_Hit:Controller.Switch(71)=1:PlaySound "fx_sensor":End Sub
		Sub sw71_UnHit:Controller.Switch(71)=0:End Sub
		Sub sw72_Hit:Controller.Switch(72)=1:PlaySound "fx_sensor":End Sub
		Sub sw72_UnHit:Controller.Switch(72)=0:End Sub
		Sub sw86_Hit:Controller.Switch(86)=1:PlaySound "fx_sensor":End Sub
		Sub sw86_UnHit:Controller.Switch(86)=0:End Sub

'***************
'  Targets
'***************

		Sub sw23_Hit
			vpmTimer.PulseSw 23
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw56_Hit
			vpmTimer.PulseSw 56
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw57_Hit
			vpmTimer.PulseSw 57
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw58_Hit
			vpmTimer.PulseSw 58
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw77_Hit
			vpmTimer.PulseSw 77
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw81_Hit
			vpmTimer.PulseSw 81
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw82_Hit
			vpmTimer.PulseSw 82
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw83_Hit
			vpmTimer.PulseSw 83
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw84_Hit
			vpmTimer.PulseSw 84
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

		Sub sw85_Hit
			vpmTimer.PulseSw 85
			PlaySound SoundFX("fx_target",DOFTargets), 0, Vol(ActiveBall), pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
		End Sub

'*********************
' Random Switches
'*********************
		Sub Gate4_Hit():vpmTimer.PulseSw 12:End Sub
		Sub sw15_Hit():vpmTimer.PulseSw 15:End Sub
		Sub cart_Hit():PlaySound "plastichit":vpmTimer.PulseSw 74:GolfCart.Y = 218:WheelTargetPosition.Y = 217:Me.TimerEnabled = 1:End Sub			'Golf Cart
		Sub cart_Timer:GolfCart.Y = 215:WheelTargetPosition.Y = 211:Me.TimerEnabled = 0:End Sub
		Sub sw73_Hit():vpmTimer.PulseSw 73:End Sub
		Sub LGofer_Hit():PlaySound "plastichit":vpmTimer.PulseSw 65:LeftGoferBlock.Y = 441:Me.TimerEnabled = 1:End Sub
		Sub LGofer_Timer:LeftGoferBlock.Y = 449:Me.TimerEnabled = 0:End Sub
		Sub RGofer_Hit():PlaySound "plastichit":vpmTimer.PulseSw 75:RightGoferBlock.Y = 516.625:Me.TimerEnabled = 1:End Sub
		Sub RGofer_Timer:RightGoferBlock.Y = 524.625:Me.TimerEnabled = 0:End Sub

'****************
'Gofer Animations
'****************

Dim LGPos, LGDir, RGPos, RGPos2, RGDir, LrampPos, LrampDir, RrampPos, RrampDir
LGPos=22:RGPos=22:LrampPos=22:RrampPos=22
LGDir=0:RGDir=0:LrampDir=1:RrampDir=1
LGofer.TimerEnabled=1:RGofer.TimerEnabled=1:LrampTimer.Enabled=1

	  Sub LGoferUp_Timer()
			  Select Case LGPos
					Case 0: LeftGoferBlock.z=-20
								LGoferIsUp = 1
								LGoferUp.Enabled = 0
								Lramp.HeightBottom=110
					Case 1: LeftGoferBlock.z=-25:Lramp.HeightBottom=104
					Case 2: LeftGoferBlock.z=-31:Lramp.HeightBottom=102
					Case 3: LeftGoferBlock.z=-37:Lramp.HeightBottom=100:PlaySound SoundFX("goofer_up",DOFcontactors)
					Case 4: LeftGoferBlock.z=-31:Lramp.HeightBottom=102
					Case 5: LeftGoferBlock.z=-25:Lramp.HeightBottom=104
					Case 6: LeftGoferBlock.z=-20:Lramp.HeightBottom=110
					Case 7: LeftGoferBlock.z=-25:Lramp.HeightBottom=104
					Case 8: LeftGoferBlock.z=-31:Lramp.HeightBottom=98
					Case 9: LeftGoferBlock.z=-37:Lramp.HeightBottom=91
					Case 10: LeftGoferBlock.z=-43:Lramp.HeightBottom=84
					Case 11: LeftGoferBlock.z=-49:Lramp.HeightBottom=77
					Case 12: LeftGoferBlock.z=-55:Lramp.HeightBottom=70
					Case 13: LeftGoferBlock.z=-61:Lramp.HeightBottom=63
					Case 14: LeftGoferBlock.z=-67:Lramp.HeightBottom=56
					Case 15: LeftGoferBlock.z=-73:Lramp.HeightBottom=49
					Case 16: LeftGoferBlock.z=-79:Lramp.HeightBottom=42
					Case 17: LeftGoferBlock.z=-85:Lramp.HeightBottom=35
					Case 18: LeftGoferBlock.z=-91:Lramp.HeightBottom=28
					Case 19: LeftGoferBlock.z=-97:Lramp.HeightBottom=21
					Case 20: LeftGoferBlock.z=-103:Lramp.HeightBottom=14
					Case 21: LeftGoferBlock.z=-109:Lramp.HeightBottom=7
					Case 22: LeftGoferBlock.z=-115:Lramp.HeightBottom=0
			  End Select
					If LGpos>0 then LGpos=LGpos-1
	  End Sub

	  Sub LGoferDown_Timer()
	  Select Case LGPos
			Case 0: LeftGoferBlock.z=-19
			Case 1: LeftGoferBlock.z=-25
			Case 2: LeftGoferBlock.z=-31
			Case 3: LeftGoferBlock.z=-37
			Case 4: LeftGoferBlock.z=-43
			Case 5: LeftGoferBlock.z=-49
			Case 6: LeftGoferBlock.z=-55
			Case 7: LeftGoferBlock.z=-61
			Case 8: LeftGoferBlock.z=-67
			Case 9: LeftGoferBlock.z=-73
			Case 10: LeftGoferBlock.z=-79
			Case 11: LeftGoferBlock.z=-85
			Case 12: LeftGoferBlock.z=-91
			Case 13: LeftGoferBlock.z=-97
			Case 14: LeftGoferBlock.z=-103
			Case 15: LeftGoferBlock.z=-109
			Case 16: LeftGoferBlock.z=-115
						LGoferDown.Enabled = 0
						LGoferIsUp = 0
	  End Select
			If LGpos<16 then LGpos=LGpos+1
	  End Sub

	  Sub RGoferUp_Timer()
			  Select Case RGPos
					Case 0: RightGoferBlock.z=-20
								RGoferIsUp = 1
								RGoferUp.Enabled = 0
								Rramp.HeightBottom=110
					Case 1: RightGoferBlock.z=-25:Rramp.HeightBottom=104
					Case 2: RightGoferBlock.z=-31:Rramp.HeightBottom=102
					Case 3: RightGoferBlock.z=-37:Rramp.HeightBottom=100:PlaySound SoundFX("goofer_up",DOFContactors)
					Case 4: RightGoferBlock.z=-31:Rramp.HeightBottom=102
					Case 5: RightGoferBlock.z=-25:Rramp.HeightBottom=104
					Case 6: RightGoferBlock.z=-20:Rramp.HeightBottom=110
					Case 7: RightGoferBlock.z=-25:Rramp.HeightBottom=104
					Case 8: RightGoferBlock.z=-31:Rramp.HeightBottom=98
					Case 9: RightGoferBlock.z=-37:Rramp.HeightBottom=91
					Case 10: RightGoferBlock.z=-43:Rramp.HeightBottom=84
					Case 11: RightGoferBlock.z=-49:Rramp.HeightBottom=77
					Case 12: RightGoferBlock.z=-55:Rramp.HeightBottom=70
					Case 13: RightGoferBlock.z=-61:Rramp.HeightBottom=63
					Case 14: RightGoferBlock.z=-67:Rramp.HeightBottom=56
					Case 15: RightGoferBlock.z=-73:Rramp.HeightBottom=49
					Case 16: RightGoferBlock.z=-79:Rramp.HeightBottom=42
					Case 17: RightGoferBlock.z=-85:Rramp.HeightBottom=35
					Case 18: RightGoferBlock.z=-91:Rramp.HeightBottom=28
					Case 19: RightGoferBlock.z=-97:Rramp.HeightBottom=21
					Case 20: RightGoferBlock.z=-103:Rramp.HeightBottom=14
					Case 21: RightGoferBlock.z=-109:Rramp.HeightBottom=7
					Case 22: RightGoferBlock.z=-115:Rramp.HeightBottom=0
			  End Select
					If RGpos>0 then RGpos=RGpos-1
	  End Sub

	  Sub RGoferDown_Timer()
	  Select Case RGPos
			Case 0: RightGoferBlock.z=-19
			Case 1: RightGoferBlock.z=-25
			Case 2: RightGoferBlock.z=-31
			Case 3: RightGoferBlock.z=-37
			Case 4: RightGoferBlock.z=-43
			Case 5: RightGoferBlock.z=-49
			Case 6: RightGoferBlock.z=-55
			Case 7: RightGoferBlock.z=-61
			Case 8: RightGoferBlock.z=-67
			Case 9: RightGoferBlock.z=-73
			Case 10: RightGoferBlock.z=-79
			Case 11: RightGoferBlock.z=-85
			Case 12: RightGoferBlock.z=-91
			Case 13: RightGoferBlock.z=-97
			Case 14: RightGoferBlock.z=-103
			Case 15: RightGoferBlock.z=-109
			Case 16: RightGoferBlock.z=-115
						RGoferDown.Enabled = 0
						RGoferIsUp = 0
	  End Select
			If RGpos<16 then RGpos=RGpos+1
	  End Sub

Sub LrampTimer_Timer()
	If LGoferIsUp = 0 Then
	  Select Case LrampPos
					Case 0: Lramp.HeightBottom=110
					Case 1: Lramp.HeightBottom=104
					Case 2: Lramp.HeightBottom=102
					Case 3: Lramp.HeightBottom=100
					Case 4: Lramp.HeightBottom=102
					Case 5: Lramp.HeightBottom=104
					Case 6: Lramp.HeightBottom=110
					Case 7: Lramp.HeightBottom=104
					Case 8: Lramp.HeightBottom=98
					Case 9: Lramp.HeightBottom=91
					Case 10: Lramp.HeightBottom=84
					Case 11: Lramp.HeightBottom=77
					Case 12: Lramp.HeightBottom=70
					Case 13: Lramp.HeightBottom=63
					Case 14: Lramp.HeightBottom=56
					Case 15: Lramp.HeightBottom=49
					Case 16: Lramp.HeightBottom=42
					Case 17: Lramp.HeightBottom=35
					Case 18: Lramp.HeightBottom=28
					Case 19: Lramp.HeightBottom=21
					Case 20: Lramp.HeightBottom=14
					Case 21: Lramp.HeightBottom=7
					Case 22: Lramp.HeightBottom=0:Controller.Switch(47)=1:LeftRampUp = 0:LrampTimer.Enabled = 0
			If Lramppos<22 then Lramppos=Lramppos+1
		End Select
		End If
	  End Sub


Sub RrampTimer_Timer()
	If RGoferIsUp = 0 Then
	  Select Case RrampPos
					Case 0: Rramp.HeightBottom=110
					Case 1: Rramp.HeightBottom=104
					Case 2: Rramp.HeightBottom=102
					Case 3: Rramp.HeightBottom=100
					Case 4: Rramp.HeightBottom=102
					Case 5: Rramp.HeightBottom=104
					Case 6: Rramp.HeightBottom=110
					Case 7: Rramp.HeightBottom=104
					Case 8: Rramp.HeightBottom=98
					Case 9: Rramp.HeightBottom=91
					Case 10: Rramp.HeightBottom=84
					Case 11: Rramp.HeightBottom=77
					Case 12: Rramp.HeightBottom=70
					Case 13: Rramp.HeightBottom=63
					Case 14: Rramp.HeightBottom=56
					Case 15: Rramp.HeightBottom=49
					Case 16: Rramp.HeightBottom=42
					Case 17: Rramp.HeightBottom=35
					Case 18: Rramp.HeightBottom=28
					Case 19: Rramp.HeightBottom=21
					Case 20: Rramp.HeightBottom=14
					Case 21: Rramp.HeightBottom=7
					Case 22: Rramp.HeightBottom=0:Controller.Switch(48)=1:RightRampUp = 0:RrampTimer.Enabled = 0
			If Rramppos<22 then Rramppos=Rramppos+1
		End Select
		End If
	  End Sub

'**************
'Turntable Subs
'**************

		Set MotorCallback=GetRef("SRPRoutine")
		Dim WheelSpeed, WheelCW, WheelPosPrev

		Sub SRPRoutine
			FlipperLP.RotY = LeftFlipper.CurrentAngle
			FlipperRP.RotY = RightFlipper.CurrentAngle
			FlipperRUP.RotY = UpperFlipper.CurrentAngle
			Dim WheelPos

			WheelPos = Controller.GetMech(4)
			If WheelPos = WheelPosPrev Then Exit Sub
			WheelPosPrev = WheelPos
			DOF 102, DOFPulse
			WheelSpeed = INT(Controller.GetMech(5))
			If WheelSpeed < 0 Then
				WheelCW = True
				BlurDir = 1
				WheelSpeed = ABS(WheelSpeed)
			Else
				BlurDir = 0
				WheelCW = False
			End If

			if WheelSpeed > 50 Then
				mTT.SolMotorState WheelCW,True
				mTT.Speed = WheelSpeed
			Else
				mTT.SolMotorState WheelCW,False
			end if
			if WheelSpeed > 95 Then
				Blur.Enabled = 1
			Else
				if Blur.Enabled Then
					Blur.Enabled = 0
					disc.image = "NGG_Map"
				End If
			end if
			disc.roty = 360 - WheelPos + 32
		End Sub

	Dim DiskArray, BlurDir, Blurlevel
		DiskArray=Array("12","350","335","305","282","258","235","215","190","168","146","125","100","80","55","32")
		Blurlevel = 1
	Sub Blur_Timer()
		Select Case Blurlevel
			Case 1: disc.image = "NGG_Map_Mblur1"
			Case 2: disc.image = "NGG_Map_Mblur2"
			Case 3: disc.image = "NGG_Map_Mblur3"
			Case 4: disc.image = "NGG_Map_Mblur4"
			Case 5: disc.image = "NGG_Map_Mblur5"
			Case 6: disc.image = "NGG_Map_Mblur6"
				If BlurDir = 0 Then
					Blurlevel = 1
				End If
		End Select
		If BlurDir = 1 Then
			If Blurlevel>0 then Blurlevel = Blurlevel - 1 else BlurLevel = 6
		Else
			If Blurlevel<6 Then Blurlevel = Blurlevel + 1 else BlurLevel = 1
		End If
	End Sub


'***************************************************
'       JP's VP10 Fading Lamps & Flashers
'       Based on PD's Fading Light System
' SetLamp 0 is Off
' SetLamp 1 is On
' fading for non opacity objects is 4 steps
'***************************************************

Dim LampState(200), FadingLevel(200)
Dim FlashSpeedUp(200), FlashSpeedDown(200), FlashMin(200), FlashMax(200), FlashLevel(200)

InitLamps()             ' turn off the lights and flashers and reset them to the default parameters
LampTimer.Interval = 10 'lamp fading speed
LampTimer.Enabled = 1

' Lamp & Flasher Timers

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)       'keep the real state in an array
            FadingLevel(chgLamp(ii, 0) ) = chgLamp(ii, 1) + 4 'actual fading step
        Next
    End If
    UpdateLamps
End Sub


Sub UpdateLamps
	NFadeL 11, L11
	NFadeL 12, L12
	NFadeL 13, L13
	NFadeL 14, L14
	NFadeL 15, L15
	NFadeL 16, L16
	NFadeL 17, L17
	NFadeL 18, L18
	NFadeL 21, L21
	NFadeL 22, L22
	NFadeL 23, L23
	NFadeL 24, L24
	NFadeL 25, L25
	NFadeL 26, L26
	NFadeL 27, L27
	NFadeL 28, L28
	NFadeL 31, L31
	NFadeL 32, L32
	NFadeL 33, L33
	NFadeL 34, L34
	NFadeL 35, L35
	NFadeL 36, L36
	NFadeL 37, L37
	NFadeL 38, L38
	NFadeL 41, L41
	NFadeL 42, L42
	NFadeL 43, L43
	NFadeL 44, L44
	NFadeL 45, L45
	NFadeL 46, L46
	NFadeL 47, L47
	NFadeL 48, L48
	NFadeL 51, L51
	NFadeL 52, L52
	NFadeL 53, L53
	NFadeL 54, L54
	NFadeLm 55, L55b
	NFadeL 55, L55
	NFadeL 56, L56
	NFadeL 57, L57
	NFadeL 58, L58
	NFadeL 61, L61
	NFadeL 62, L62
	NFadeL 63, L63
	NFadeL 64, L64
	NFadeL 65, L65
	NFadeL 66, L66
	NFadeL 67, L67
	NFadeL 68, L68
	NFadeLm 71, L71b
	NFadeL 71, L71
	NFadeL 72, L72
	NFadeL 73, L73
	NFadeL 74, L74
	NFadeL 75, L75
	NFadeL 76, L76
	NFadeL 77, L77
	NFadeLm 78, bump3light1
	NFadeL 78, bump3light
	NFadeL 81, L81
	NFadeL 82, L82
	NFadeL 83, L83
	NFadeL 84, L84
	NFadeL 85, L85
	NFadeLm 86, bump2light1
	NFadeL 86, bump2light
	NFadeLm 87, bump1light1
	NFadeL 87, bump1light
'	FadeL 88, L88, L88a	'start button
	NFadeLMod 122, L122
	NFadeLMod 131, L131b
	NFadeLMod 131, L131a
	NFadeLMod 131, L131
	NFadeLMod 145, L145
	NFadeLMod 146, L146
	NFadeARmCombi 145, 146, upperplayfield, "upperplayfield", "upperplayfieldright", "upperplayfieldleft", "upperplayfieldboth", Combifor145and146
	NFadeLMod 170, L170b
	NFadeLMod 170, L170a
	NFadeLModm 170, L170, 100
	NFadeLModm 172, L172a, 4
	NFadeLModm 172, L172b, 2
	NFadeLModm 172, L172, 50
	NFadeLModm 173, L173a, 4
	NFadeLModm 173, L173b, 2
	NFadeLModm 173, L173, 50
	NFadeLModm 174, L174a, 4
	NFadeLModm 174, L174b, 2
	NFadeLModm 174, L174, 50
	NFadeLModm 175, L175a, 4
	NFadeLModm 175, L175b, 2
	NFadeLModm 175, L175, 50
	NFadeLModm 176, L176a, 4
	NFadeLModm 176, L176b, 2
	NFadeLModm 176, L176, 50
	NFadeLModm 177, L177a, 4
	NFadeLModm 177, L177b, 2
	NFadeLModm 177, L177, 50
	NFadeLModm 178, L178a,4
	NFadeLModm 178, L178b,2
	NFadeLModm 178, L178,50
	NFadeLModm 179, L179a, 4
	NFadeLModm 179, L179b, 2
	NFadeLModm 179, L179, 50
	NFadeLModm 180, L180a, 4
	NFadeLModm 180, L180b, 2
	NFadeLMod 180, L180c
	NFadeLModm 180, L180, 50
	NFadeLMod 190, L190b
	NFadeLMod 190, L190a
	NFadeLModm 190, L190, 5
End Sub
'
'Sub FlasherTimer_Timer()
'		Flash 11, h11
'		Flash 12, h12
'		Flash 13, h13
'		Flash 14, h14
'		Flash 15, h15
'		Flash 16, h16
'		Flash 17, h17
'		Flash 18, h18
'		Flash 21, h21
'		Flash 22, h22
'		Flash 23, h23
'		Flash 24, h24
'		Flash 25, h25
'		Flash 26, h26
'		Flash 27, h27
'		Flash 28, h28
'		Flash 31, h31
'		Flash 32, h32
'		Flash 33, h33
'		Flash 34, h34
'		Flash 35, h35
'		Flash 36, h36
'		Flash 37, h37
'		Flash 38, h38
'		Flash 41, h41
'		Flash 42, h42
'		Flash 43, h43
'		Flash 44, h44
'		Flash 45, h45
'		Flash 46, h46
'		Flash 47, h47
'		Flash 48, h48
'		Flash 51, h51
'		Flash 52, h52
'		Flash 53, h53
'		Flash 54, h54
'		Flashm 55, h55a
'		Flash 55, h55
'		Flash 56, h56
'		Flash 57, h57
'		Flash 58, h58
'		Flash 61, h61
'		Flash 62, h62
'		Flash 63, h63
'		Flash 64, h64
'		Flash 65, h65
'		Flash 66, h66
'		Flash 68, h68
'		Flashm 71, h71a
'		Flash 71, h71
'		Flash 72, h72
'		Flash 73, h73
'		Flash 74, h74
'		Flash 75, h75
'		Flash 77, h77
'		Flash 78, h78
'		Flash 81, h81
'		Flash 82, h82
'		Flash 83, h83
'		Flash 84, h84
'		Flash 85, h85
'		Flash 86, h86
'		Flash 87, h87
'		Flashm 120, Flasher19
'		Flash 120, Flasher1
'		Flashm 121, Flasher20
'		Flash 121, Flasher2
'		Flashm 122, Flasher21
'		Flashm 122, Flasher4
'		Flash 122, Flasher3
'		Flash 123, Flasher5
'		Flashm 124, Flasher15
'		Flash 124, Flasher6
'		Flashm 125, Flasher18
'		Flash 125, Flasher7
'		Flash 126, Flasher8
'		Flash 127, Flasher9
'		Flashm 128, Flasher17
'		Flash 128, Flasher10
'		Flashm 129, Flasher16
'		Flash 129, Flasher11
'		Flash 130, Flasher12
'		Flashm 131, Flasher14
'		Flash 131, Flasher13
' End Sub
'

' div lamp subs

Sub InitLamps()
    Dim x
    For x = 0 to 200
        LampState(x) = 0        ' current light state, independent of the fading level. 0 is off and 1 is on
        FadingLevel(x) = 4      ' used to track the fading state
        FlashSpeedUp(x) = 0.4   ' faster speed when turning on the flasher
        FlashSpeedDown(x) = 0.2 ' slower speed when turning off the flasher
        FlashMax(x) = 1         ' the maximum value when on, usually 1
        FlashMin(x) = 0         ' the minimum value when off, usually 0
        FlashLevel(x) = 0       ' the intensity of the flashers, usually from 0 to 1
    Next
End Sub

Sub AllLampsOff
    Dim x
    For x = 0 to 200
        SetLamp x, 0
    Next
End Sub

Sub SetLamp(nr, value)
    If value <> LampState(nr) Then
        LampState(nr) = abs(value)
        FadingLevel(nr) = abs(value) + 4
    End If
End Sub

' Lights: used for VP10 standard lights, the fading is handled by VP itself

Sub NFadeL(nr, object)
    Select Case FadingLevel(nr)
        Case 4:object.state = 0:FadingLevel(nr) = 0
        Case 5:object.state = 1:FadingLevel(nr) = 1
    End Select
End Sub

Sub NFadeLm(nr, object) ' used for multiple lights
    Select Case FadingLevel(nr)
        Case 4:object.state = 0
        Case 5:object.state = 1
    End Select
End Sub

Sub SetModLamp(nr, level)
	FadingLevel(nr) = level
End Sub


' Lights: used for VP10 standard lights, the fading is handled by VP itself

Sub NFadeLMod(nr, object)	'3 lights
    object.Intensity = FadingLevel(nr)*10 / 25
	object.state = 1
    object.visible = 1
End Sub

Sub NFadeLModm(nr, object, maxlev) ' used for multiple lights
    object.Intensity = FadingLevel(nr) * maxlev / 255
	object.state = 1
    object.visible = 1
End Sub

'Lights, Ramps & Primitives used as 4 step fading lights
'a,b,c,d are the images used from on to off

Sub FadeObj(nr, object, a, b, c, d)
    Select Case FadingLevel(nr)
        Case 4:object.image = b:FadingLevel(nr) = 6                   'fading to off...
        Case 5:object.image = a:FadingLevel(nr) = 1                   'ON
        Case 6, 7.8:FadingLevel(nr) = FadingLevel(nr) + 1             'wait
        Case 9:object.image = c:FadingLevel(nr) = FadingLevel(nr) + 1 'fading...
        Case 10, 11, 12:FadingLevel(nr) = FadingLevel(nr) + 1         'wait
        Case 13:object.image = d:FadingLevel(nr) = 0                  'Off
    End Select
End Sub

Sub FadeObjm(nr, object, a, b, c, d)
    Select Case FadingLevel(nr)
        Case 4:object.image = b
        Case 5:object.image = a
        Case 9:object.image = c
        Case 13:object.image = d
    End Select
End Sub

Sub NFadeObj(nr, object, a, b)
    Select Case FadingLevel(nr)
        Case 4:object.image = b:FadingLevel(nr) = 0 'off
        Case 5:object.image = a:FadingLevel(nr) = 1 'on
    End Select
End Sub

Sub NFadeObjm(nr, object, a, b)
    Select Case FadingLevel(nr)
        Case 4:object.image = b
        Case 5:object.image = a
    End Select
End Sub

' Flasher objects

Sub Flash(nr, object)
    Select Case FadingLevel(nr)
        Case 4 'off
            FlashLevel(nr) = FlashLevel(nr) - FlashSpeedDown(nr)
            If FlashLevel(nr) < FlashMin(nr) Then
                FlashLevel(nr) = FlashMin(nr)
                FadingLevel(nr) = 0 'completely off
            End if
            Object.IntensityScale = FlashLevel(nr)
        Case 5 ' on
            FlashLevel(nr) = FlashLevel(nr) + FlashSpeedUp(nr)
            If FlashLevel(nr) > FlashMax(nr) Then
                FlashLevel(nr) = FlashMax(nr)
                FadingLevel(nr) = 1 'completely on
            End if
            Object.IntensityScale = FlashLevel(nr)
    End Select
End Sub

Sub Flashm(nr, object) 'multiple flashers, it just sets the flashlevel
    Object.IntensityScale = FlashLevel(nr)
End Sub

' Desktop Objects: Reels & texts (you may also use lights on the desktop)

' Reels
Dim NewCombiResult, Combifor145and146
Sub NFadeARmCombi(nr1, nr2, ramp, aOff, a1, a2, aBoth, OldCombiResult)
	NewCombiResult=LampState(nr1)+(2*LampState(nr2))
	If OldCombiResult=NewCombiResult Then Exit Sub
	Select Case NewCombiResult
		Case 0:ramp.image=aOff
		Case 1:ramp.image=a1
		Case 2:ramp.image=a2
		Case 3:ramp.image=aBoth
	End Select
	OldCombiResult=NewCombiResult
End Sub

Sub FadeR(nr, object)
    Select Case FadingLevel(nr)
        Case 4:object.SetValue 1:FadingLevel(nr) = 6                   'fading to off...
        Case 5:object.SetValue 0:FadingLevel(nr) = 1                   'ON
        Case 6, 7.8:FadingLevel(nr) = FadingLevel(nr) + 1              'wait
        Case 9:object.SetValue 2:FadingLevel(nr) = FadingLevel(nr) + 1 'fading...
        Case 10, 11, 12:FadingLevel(nr) = FadingLevel(nr) + 1          'wait
        Case 13:object.SetValue 3:FadingLevel(nr) = 0                  'Off
    End Select
End Sub

Sub FadeRm(nr, object)
    Select Case FadingLevel(nr)
        Case 4:object.SetValue 1
        Case 5:object.SetValue 0
        Case 9:object.SetValue 2
        Case 3:object.SetValue 3
    End Select
End Sub

'Texts

Sub NFadeT(nr, object, message)
    Select Case FadingLevel(nr)
        Case 4:object.Text = "":FadingLevel(nr) = 0
        Case 5:object.Text = message:FadingLevel(nr) = 1
    End Select
End Sub

Sub NFadeTm(nr, object, b)
    Select Case FadingLevel(nr)
        Case 4:object.Text = ""
        Case 5:object.Text = message
    End Select
End Sub

'***********
' Update GI
'***********
Dim gistep, Giswitch
Giswitch = 0

Sub UpdateGIOn(no, Enabled)
	Select Case no
		Case 0 'GIright
			If Enabled Then
				DOF 103, DOFOn
				For each xx in GIright:xx.State = 1: Next
			Else
				DOF 103, DOFOff
				For each xx in GIright:xx.state = 0: Next
			End If
		Case 1
			If Enabled Then
				For Each xx in GIleft:xx.state = 1: Next
			else
				For Each xx in GIleft:xx.state = 0: Next
			End If
		Case 2
			If Enabled Then
				For Each xx in GIother:xx.state = 1: Next
			Else
				For Each xx in GIother:xx.state = 0: Next
			End If
	End Select
End Sub


Sub UpdateGI(no, step)
    Dim ii
    If step = 0 then exit sub 'only values from 1 to 8 are visible and reliable. 0 is not reliable and 7 & 8 are the same so...
    gistep = (step-1) / 7
    Select Case no
        Case 0
          For each ii in GIleft
				ii.IntensityScale = gistep
			Next
        Case 1
            For each ii in GIright
                ii.IntensityScale = gistep
            Next
        Case 2 ' also the bumpers er GI
            For each ii in GIother
                ii.IntensityScale = gistep
            Next
			Select case gistep
				Case 0
					GolfCart.image = "GolfCartMap"
				Case 1
					GolfCart.image = "GolfCartMap_ON1"
				Case 2
					GolfCart.image = "GolfCartMap_ON1"
				Case 3
					GolfCart.image = "GolfCartMap_ON2"
				Case 4
					GolfCart.image = "GolfCartMap_ON3"
				Case 5
					GolfCart.image = "GolfCartMap_ON4"
				Case 6
					GolfCart.image = "GolfCartMap_ON4"
				Case 7
					GolfCart.image = "GolfCartMap_ON5"
			End Select
    End Select
'    ' change the intensity of the flasher depending on the gi to compensate for the gi lights being off
'    For ii = 0 to 200
'        FlashMax(ii) = 6 - gistep * 3 ' the maximum value of the flashers
'    Next
End Sub


'''Ramp Helpers

'Sub centerramphelper_Hit():ActiveBall.Vely=ActiveBall.Vely*1.3:End Sub
'Sub centerramphelper2_Hit():Activeball.Velx=ActiveBall.Velx-20:End Sub
'Sub upperhelper_Hit():ActiveBall.Velx=ActiveBall.Velx*1.2:End Sub
'Sub upperhelper2_Hit():ActiveBall.Vely=ActiveBall.Vely*1.3:End Sub
'Sub jumpramptrigger_Hit():ActiveBall.Vely=ActiveBall.Vely*1.3:End Sub
'Sub upperjump_Hit():ActiveBall.Vely=ActiveBall.Vely*1.5:End Sub
'Sub upperjump_UnHit():ActiveBall.Velz=ActiveBall.Velz=0:End Sub


Sub Game_timer()
	slamrampP.z = Flipper1.CurrentAngle
	If RightRampUp = 0 Then RrampTimer.Enabled = 1
	If LeftRampUp = 0 Then LRampTimer.Enabled = 1
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 Pan(ball) ' Calculates the pan for a ball based on the X position on the table. "table" is the name of the table
    Dim tmp
    tmp = ball.x * 2 / table.width-1
    If tmp > 0 Then
        Pan = Csng(tmp ^10)
    Else
        Pan = 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

'*****************************************
'      JP's VP10 Rolling Sounds
'*****************************************

Const tnob = 8 ' total number of balls in this table is 4, but always use a higher number here bacuse of the timing
ReDim rolling(tnob)
InitRolling

Sub InitRolling
    Dim i
    For i = 0 to tnob
        rolling(i) = False
    Next
End Sub

Sub RollingTimer_Timer()
    Dim BOT, b
    BOT = GetBalls

    ' stop the sound of deleted balls
    For b = UBound(BOT) + 1 to tnob
        rolling(b) = False
        StopSound("fx_ballrolling" & b)
    Next

    ' exit the sub if no balls on the table
    If UBound(BOT) = -1 Then Exit Sub

    ' play the rolling sound for each ball
    For b = 0 to UBound(BOT)
        If BallVel(BOT(b) ) > 1 AND BOT(b).z < 30 Then
            rolling(b) = True
            PlaySound("fx_ballrolling" & b), -1, Vol(BOT(b) ), Pan(BOT(b) ), 0, Pitch(BOT(b) ), 1, 0
        Else
            If rolling(b) = True Then
                StopSound("fx_ballrolling" & b)
                rolling(b) = False
            End If
        End If
    Next
End Sub

'**********************
' Ball Collision Sound
'**********************

Sub OnBallBallCollision(ball1, ball2, velocity)
    PlaySound("fx_collide"), 0, Csng(velocity) ^2 / 2000, Pan(ball1), 0, Pitch(ball1), 0, 0
End Sub

Sub platformdrop_Unhit()
	If ActiveBall.Vely>0 then PlaySound "ball_bounce"
End Sub

Sub rightrampdrop_UnHit():PlaySound "ball_bounce":End Sub
Sub leftrampdrop_UnHit():PlaySound "ball_bounce":End Sub

Sub jumpramptrigger_Hit():PlaySound "metalhit_medium":End Sub

Sub Pins_Hit (idx)
	PlaySound "pinhit_low", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
End Sub

Sub Targets_Hit (idx)
	PlaySound "target", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 0, 0
End Sub

Sub Metals_Thin_Hit (idx)
	PlaySound "metalhit_thin", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub Metals_Medium_Hit (idx)
	PlaySound "metalhit_medium", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub Metals2_Hit (idx)
	PlaySound "metalhit2", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub Gates_Hit (idx)
	PlaySound "gate4", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub Rubbers_Hit(idx)
 	dim finalspeed
  	finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
 	If finalspeed > 20 then
		PlaySound "fx_rubber2", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
	End if
	If finalspeed >= 6 AND finalspeed <= 20 then
 		RandomSoundRubber()
 	End If
End Sub

Sub Posts_Hit(idx)
 	dim finalspeed
  	finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
 	If finalspeed > 16 then
		PlaySound "fx_rubber2", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
	End if
	If finalspeed >= 6 AND finalspeed <= 16 then
 		RandomSoundRubber()
 	End If
End Sub

Sub RandomSoundRubber()
	Select Case Int(Rnd*3)+1
		Case 1 : PlaySound "rubber_hit_1", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
		Case 2 : PlaySound "rubber_hit_2", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
		Case 3 : PlaySound "rubber_hit_3", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
	End Select
End Sub

Sub LeftFlipper_Collide(parm)
 	RandomSoundFlipper()
End Sub

Sub RightFlipper_Collide(parm)
 	RandomSoundFlipper()
End Sub

Sub UpperFlipper_Collide(parm)
 	RandomSoundFlipper()
End Sub

Sub RandomSoundFlipper()
	Select Case Int(Rnd*3)+1
		Case 1 : PlaySound "flip_hit_1", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
		Case 2 : PlaySound "flip_hit_2", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
		Case 3 : PlaySound "flip_hit_3", 0, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
	End Select
End Sub

Sub upperjump_UnHit():ActiveBall.Velz=ActiveBall.Velz=0:End Sub

Sub LHelp_Hit
 	dim finalspeed
  	finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
 	If finalspeed < 3 then activeball.vely=-15
End Sub

Sub RHelp_Hit
 	dim finalspeed
  	finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
 	If finalspeed < 3 then activeball.vely=-12
End Sub

Dim SoundBall

Sub MRampSStart_Hit()
	Set SoundBall = ActiveBall
	PlaySound "plasticrolling", 1, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub MRampSStart1_Hit()
	Set SoundBall = ActiveBall
	PlaySound "ball_bounce"
	PlaySound "plasticrolling", 1, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub LRampSStart_Hit()
	Set SoundBall = ActiveBall
	PlaySound "plasticrolling", 1, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub RRampSStart_Hit()
	Set SoundBall = ActiveBall
	PlaySound "plasticrolling", 1, Vol(ActiveBall), Pan(ActiveBall), 0, Pitch(ActiveBall), 1, 0
End Sub

Sub RRampSStop_Hit()
	StopSound "plasticrolling"
End Sub

Sub LRampSStop_Hit()
	StopSound "plasticrolling"
End Sub

Sub LRampSStop1_Hit
	StopSound "plasticrolling"
End Sub