Turning off Visual Nudge in VPX

  • This topic has 3 replies, 3 voices, and was last updated 4 years ago by Rawd.
Viewing 4 posts - 1 through 4 (of 4 total)
  • Author
    Posts
  • #168600
    netdefilr
    Participant
      @netdefilr

      Is there a way to turn off the visual nudge/tilt that happens? I installed a tilt bob and it works great although I’m not a fan of the visual tilt/nudge that happens.

      Something I setup, but don’t know if its actually being used is NudgePlugIn.vbs in the c:\visual pinball\tables directory. I’ve pasted the vbs file minus the comments.

      Class cvpmNudge2
      Private mCount, mSensitivity, mNudgeTimer, mSlingBump, mForce
      Public TiltSwitch
      Private Sub Class_Initialize
      mCount = 0 : TiltSwitch = 0 : mSensitivity = 5 : vpmTimer.AddResetObj Me
      End sub
      Private Property Let NeedUpdate(aEnabled) : vpmTimer.EnableUpdate Me, False, aEnabled : End Property
      Public Property Let TiltObj(aSlingBump)
      Dim ii
      ReDim mForce(vpmSetArray(mSlingBump, aSlingBump))
      For ii = 0 To UBound(mForce)
      If TypeName(mSlingBump(ii)) = “Bumper” Then mForce(ii) = mSlingBump(ii).Threshold
      If vpmVPVer >= 90 and TypeName(mSlingBump(ii)) = “Wall” Then mForce(ii) = mSlingBump(ii).SlingshotThreshold
      Next
      End Property
      Public Property Let Sensitivity(aSens) : mSensitivity = (10-aSens)+1 : End property
      Public Sub DoNudge(ByVal aDir, ByVal aForce)
      If TiltSwitch <> 0 Then vpmTimer.PulseSw TiltSwitch
      End sub
      Public Sub Update : End Sub
      Public Sub Reset : End Sub
      Public Sub SolGameOn(aEnabled)
      if IsEmpty(mForce) then exit sub ‘prevent errors if vpmNudge.TiltObj isn’t set
      Dim obj, ii
      If aEnabled Then
      ii = 0
      For Each obj In mSlingBump
      If TypeName(obj) = “Bumper” Then obj.Threshold = mForce(ii)
      If vpmVPVer >= 90 and TypeName(obj) = “Wall” Then obj.SlingshotThreshold = mForce(ii)
      ii = ii + 1
      Next
      Else
      For Each obj In mSlingBump
      If TypeName(obj) = “Bumper” Then obj.Threshold = 100
      If vpmVPVer >= 90 and TypeName(obj) = “Wall” Then obj.SlingshotThreshold = 100
      Next
      End If
      End Sub
      End Class

      #168632
      jbg4208
      Participant
        @jbg4208
        Member

        Preferences-  Video\Graphics options – Adjust visual nudge strength to 0.

         

        visual nudge

        1 user thanked author for this post.
        #168646
        netdefilr
        Participant
          @netdefilr

          Preferences- Video\Graphics options – Adjust visual nudge strength to 0.

          Thank you!

          Any idea on how to tell if that nudge script is working? I didnt notice a difference after adding it.

          #168661
          Rawd
          Participant
            @rawd

            If you are using a real tilt bob then you should also be running MJR’s  Nudgeplugin.vbs.  This will turn off VPs ‘Bangback’ on tilt..  It will also allow the Stern warning stsyem to register and work better.

             

            You can read about it on this page..  further down on the page ‘How to configure VP for a tilt bob’

            http://mjrnet.org/pinscape/BuildGuideV2/BuildGuide.php?sid=tilt

             

          Viewing 4 posts - 1 through 4 (of 4 total)

          Forums are currently locked.

          ©2024 VPinBall.com

          Log in with your credentials

          Forgot your details?