@ Bodydump
very very nice table,but
we can not adjust the operator menu correctly.you
must modify the script by this.
Sub Table1_KeyDown(ByVal keycode)
If KeyCode=LeftFlipperKey Then Controller.Switch(4)=1:Controller.Switch(6)=1
If KeyCode=RightFlipperKey Then Controller.Switch(5)=1:Controller.Switch(7)=1
If keycode = PlungerKey Then Plunger.Pullback:Pcount = 0:PTime.Enabled = 1:Plunger.TimerEnabled=0
If keycode = StartGameKey Then Controller.Switch(3) = 1
If keycode = LeftTiltKey Then LeftNudge 90, 1.6, 20:PlaySound "fx_nudge_left"
If keycode = RightTiltKey Then RightNudge 270, 1.6, 20:PlaySound "fx_nudge_right"
If keycode = CenterTiltKey Then CenterNudge 0, 2.8, 30:PlaySound "fx_nudge_forward"
If keycode = KeySlamDoorHit Then Controller.Switch(152) = 1
If vpmKeyDown(keycode) Then Exit Sub
End Sub
Sub Table1_KeyUp(ByVal keycode)
If KeyCode=LeftFlipperKey Then Controller.Switch(4)=0:Controller.Switch(7)=0
If KeyCode=RightFlipperKey Then Controller.Switch(5)=0:Controller.Switch(6)=0
If keycode = PlungerKey Then PTime.Enabled = 0:Pcount = 0:PTime2.Enabled = 1:Plunger.Fire:Plunger.TimerEnabled=1
If keycode = StartGameKey Then Controller.Switch(3) = 0
If keycode = KeySlamDoorHit Then Controller.Switch(152) = 0
If vpmKeyUp(keycode) Then Exit Sub
End Sub