Posted 01 October 2011 - 05:56 PM
The gameplay and physics of this table really rock!!
Just so you don't have to read the manual to figure out the DIP switch options, copy and paste this routine to the end of the script:
'Stern Trident
'Special Thanks to Inkochnito
Sub editDips
Dim vpmDips : Set vpmDips = New cvpmDips
With vpmDips
.AddForm 700,400,"Trident - DIP switches"
.AddChk 2,10,180,Array("Match feature",&H00100000)'dip 21
.AddChk 205,10,115,Array("Credits display",&H00080000)'dip 20
.AddFrame 2,30,192,"Maximum credits",&H00070000,Array("5 credits",0,"10 credits",&H00010000,"15 credits",&H00020000,"20 credits",&H00030000,"25 credits",&H00040000,"30 credits",&H00050000,"35 credits",&H00060000,"40 credits",&H00070000)'dip 17&18&19
.AddFrame 2,160,192,"Specials award",&HC0000000,Array("100,000 points",0,"free ball",&H40000000,"free game",&H80000000,"free ball and free game",&HC0000000)'dip 31&32
.AddFrame 2,235,192,"High score to date",49152,Array("no award",0,"1 credit",&H00004000,"2 credits",32768,"3 credits",49152)'dip 15&16
.AddFrame 2,310,192,"High score level award",&H00000020,Array("extra ball",0,"replay",&H00000020)'dip 6
.AddFrame 210,30,206,"Balls per game",&H00000040,Array("3 balls",0,"5 balls",&H00000040)'dip 7
.AddFrame 210,76,206,"Extra Ball and Special lane alternation",&H04000000,Array("lamps stays on",0,"lamps alternate",&H04000000)'dip 27
.AddFrame 210,122,206,"Bypass extra ball",&H00400000,Array ("no extra ball",0,"award extra ball",&H00400000)'dip 23
.AddFrame 210,168,206,"Outlane special award",&H00800000,Array("After 2nd target reset",0,"After 3rd target reset",&H00800000)'dip 24
.AddFrame 210,215,206,"Specials after 4th target reset",&H01000000,Array("unlimited",0,"1 special per ball",&H01000000)'dip 25
.AddFrame 210,263,206,"Right outlane specials",&H02000000,Array("unlimited",0,"1 special per ball",&H02000000)'dip 26
.AddFrame 210,310,206,"Insert Coin and Credit Button sound option",&H00000080,Array("2 tones only",0,"full melody",&H00000080)'dip 8
.AddLabel 75,382,300,20,"After hitting OK, press F3 to reset game with new settings."
.ViewDips
End With
End Sub
Set vpmShowDips = GetRef("editDips")
Again Special thanks to Inkochnito for this routine that adds so much enjoyment to the game!