The below may not match the original table as I might have made other adjustments as well, but here is what I have:
Sub BlackRose_KeyDown (ByVal keycode)
vpmKeyDown(keycode)
if keyName(keyCode)="F" then controller.switch(34)=true
If keycode = RightMagnaSave then controller.switch(34)=true
If keycode = LeftMagnaSave then controller.switch(34)=true
If keycode = KeyFront then controller.switch(34)=true
If keycode = PlungerKey Then Plunger.TimerEnabled = 0:Plunger.Pullback:PNewPos = 0:PTime.Enabled = 1
If keycode = LeftTiltKey Then LeftNudge 90, 1.2, 40:PlaySound "nudge_left"
If keycode = RightTiltKey Then RightNudge 270, 1.2, 40:PlaySound "nudge_right"
If keycode = CenterTiltKey Then CenterNudge 0, 1.6, 50:PlaySound "nudge_forward"
End Sub
Sub BlackRose_KeyUp (ByVal keycode)
vpmKeyUp(keycode)
if keyName(keyCode)="F" then controller.switch(34)=false
If keycode = RightMagnaSave then controller.switch(34)=false
If keycode = LeftMagnaSave then controller.switch(34)=false
If keycode = KeyFront then controller.switch(34)=false
If keycode = PlungerKey Then
Plunger.TimerEnabled = 1:PTime.Enabled = 0:PNewPos = 0:PTime2.Enabled = 1:Plunger.Fire
If(BallinPlunger = 1) then 'the ball is in the plunger lane'
PlaySound "Plunger2"
else
PlaySound "Plunger"
end if
end if
End Sub
The main things to look for are the entries that start with 'if keyName(keyCode)="F"', I have the magnasave buttons and the extra ball buy in button also assigned to the switch as well.
Edited by koadic, 13 February 2014 - 03:38 AM.




Contributor
Top

















are all trademarks of VPFORUMS.