***********************
*** Ramp Loop Bonus ***
***********************

Please refere to the shivaEngine script and the example table included with this file
Written by shiva

This is expanded a bit, so I will start at a simple example, and build from there.
First off, I would like both the ramps to give a score when made, so there are triggers (hidden) 
placed on both ramps. Instead of placing them at the start of The ramps, I placed them in a area 
where I am certain the ball will continue along The ramp, instead of rolling back down to the ramp 
entrance because of a weak shot. These triggers are set to give a base value, but will give a 
different value if a certain light is "on". The triggers are not visible during The game, but 
you can see them in The editor view, they are named RampLoopLeft (just before where 
the multiball Ramp is, to prevent a loop bonus being collected by a start of Multiball) 
and RampLoopRight. Those lights are The arrow shaped lights in front of each ramp, 
RampLoopLightRight for The green ramp, and RampLoopLightLeft for The red ramp.

First off to prevent The lights from staying on at a new ball, I add this to The NewBall sub:

	RampLoopLightLeft.State = LightStateOff ' switch off left red ramp loop light
	RampLoopLightRight.State = LightStateOff ' switch off right green ramp loop 

I also would like to call the other light to switch on, to set up a second loop, so the code 
for the triggers would look like this:

	Sub RampLoopRight_Hit() ' For Green Ramp Loop Bonus

		If RampLoopLightRight.State = LightStateOn then 'if ramplight is on
		addscore 5000 '5000 points added to score
		RampLoopLightRight.State = LightStateOff 'turn off that light
		RampLoopLightLeft.State = LightStateOn 'switch on the other ramp light
		else 
		addscore 500 'if not light lit, then give 500 points instead
		End If
	End Sub

After checking that it works, now add a timer to the table (enabled, 10000 interval (about ten seconds)), 
so the ramps doesn't stay lit all the time. Also, a ball going in the inner lanes will now light the 
loop shot, instead of making a ramp first. Note the Timer is switched off first, to clear the remaining 
time left on the timer. If you don't turn off the timer at the beginning of the code, the timer will 
still be on, and the loop bonus will turn off when that timer is finished. Note that the light that 
controls the loop has been moved to be turned on by the inner lanes instead of the ramp. It then 
restarts the timer at the beginning

	Sub LeftInlane_Hit() 'lights green loop ramp
		If RampLoopLightLeft.State = LightStateOff then 
		TRightTimer.Enabled = False 'Turn off Green Ramp Timer if it was on
		RampLoopLightRight.State = LightStateOn 'switch on the red ramp loop light 
		addscore 100
		TRightTimer.Enabled = True 'Turn on Green Ramp Timer
		End If
	End Sub

	Sub RampLoopRight_Hit ' For Green Ramp Loop Bonus
		If RampLoopLightRight.State = LightStateOn then 'if ramplight is on
		addscore 5000 '5000 points added to score
		RampLoopLightRight.State = LightStateOff 'turn off that light
		else 
		addscore 500 'if not light lit, then give 500 points instead
		End If
	End Sub

	Sub TRightTimer_Timer 'Timer for the loop light
		TRightTimer.Enabled = False 'Turn off Timer
		RampLoopLightRight.State = LightStateOff 'switch off the ramp light
	End Sub 

So not only do the inner lanes control the Ramp loops, but because the ramps end just at the start 
of the opposite inner lane, it will trigger the other ramp, so you can loop the ball from one ramp 
to another. You also can increase the value of the points with successive shots by declaring a 
variable with a dim statement, and using code similar to how the multiple bonus is done.