'*******************************************
' Trap Door Funhouse Style.
'*******************************************
You need these 5 elements in order for the Trap
to work : 

1.KickerPlate	/kicker
2.TrapHole  	/ornament
3.TrapDoor	/DropTarget
4.A invisible surface as a blocking device.
5 A timer

Note that the TrapDoor and TrapHole are fully texturable.
look in the Texture manager for the one provided with this Demo.

'****************************************************
' Application
'****************************************************
 
//I've applied this line next to the plunger Release Event as a testing purposed:

TrapExpulse.Set true, 100

//Here is the Sub that manage everything. You can write your own of course
but keep in mind that everyhting need to be in synched 

Dim ManageTrap
TrapBlock.render=false
TrapBlock.Collidable=true
sub TrapExpulse_expired()
ManageTrap=ManageTrap+1
Select Case (ManageTrap)
case 1: TrapDoor.Popdown :TrapBlock.Collidable=false: TrapExpulse.Set true ,100
case 2: Kicker1.createcaptiveball : Kicker1.solenoidpulse:TrapExpulse.Set true ,100
case 3: TrapDoor.SolenoidPulse : TrapBlock.Collidable=true:ManageTrap=0 :TrapExpulse.Set false
end select
end sub

'**************************************************


Enjoy!



Steve Paradis
FP Team Member.
info@steveparadis.com

visit www.gopinball.com for more 3D models.



