8 replies to this topic

[imagamejunky]

Hi Guys.

Today I started having a new problem with my favorite VP table TOTAN.  This error happens on both the original and the enhanced version.  What's strange is that I have played this table for quite a while and NOW this error comes up.

 

I get this error upon start up..

 

Subscript out of range line 307 AnPlNewPos

 

When I look at the script I find this..

 

Sub Plunger_Timer()
    If Plunger.MotionDevice > 0 Then
        Plungers(AnPlOldPos).alpha = 0
        AnPlNewPos = Plunger.Position \ 2
        Plungers(AnPlNewPos).alpha = 1
        PRefresh.State = ABS(PRefresh.state -1)
        AnPlOldPos = AnPlNewPos

 

 

Upon searching, I haven't found any posts discussing this problem.  I do see something similar with a post about Tommy but the script is different and doesn't include "alpha".

 

I'm using a Nanotech plunger.

 

Please help me out gurus.

Thanks

 

 

[imagamejunky]

Anyone?

[imagamejunky]

Now I'm using the new virtuapin plunger. I'm still getting this error with the totan tables. This sucks

[Noah Fentz]

I haven't gotten these errors, but I will certainly look into it.

 

Given that it's happening with either device, I'd have to say it's in the scripting. It must be returning a value < 0.

[PainkillerAlice]

Anyone?

One thing with asking for help: You must be patient. The person who may have the answer may not necessarily be on all the time, or even on a daily basis. We are a group of hobbyists that commune on this website to fuel our pinball entusiasm.

[kruge99]

There is minor spelling mistake that I have been nagging JPSalas to fix but he's been awefully busy.

 

First, make sure you are loading up TOTAN_VP91x_3.3FS_Classic.vpt

 

Open the script and scroll down to line 293, and make sure it looks exactly like this:

 

'PinWizard Plunger script
'Turn on the Plunger timer if analog plunger is detected
Dim AnPlNewPos, AnPlOldPos
AnPlNewPos = 0:AnPlOldPos = 0
If Plunger.MotionDevice > 0 Then
    Plunger.TimerEnabled = 1
    Plunger.MechPlunger = 1
End If
Sub Plunger_Timer()
    If Plunger.MotionDevice > 0 Then
        Plungers(AnPlOldPos).alpha = 0
        AnPlNewPos = Plunger.Position \ 2
        Plungers(AnPlNewPos).alpha = 1
        PRefresh.State = ABS(PRefresh.state -1)
        AnPlOldPos = AnPlNewPos
    End if
End Sub

 

Good luck!

 

 

Best Regards,

Todd.

[koadic]

Another thing to try is the following...

Sub Plunger_Timer()
    If Plunger.MotionDevice > 0 Then
        Plungers(AnPlOldPos).alpha = 0
        AnPlNewPos = INT(Plunger.Position \ 2)
        Plungers(AnPlNewPos).alpha = 1
        PRefresh.State = ABS(PRefresh.state -1)
        AnPlOldPos = AnPlNewPos
    End if
End Sub

The INT should force it to round down to 12 and not up to 13 when the plunger is pulled fully back (which is where I believe the problem to lie)

Or, if that doesn't work, then try...
 

Sub Plunger_Timer()
    If Plunger.MotionDevice > 0 Then
        Plungers(AnPlOldPos).alpha = 0
        AnPlNewPos = INT(Plunger.Position \ 2)
        If AnPlNewPos > 12 Then AnPlNewPos = 12
        Plungers(AnPlNewPos).alpha = 1
        PRefresh.State = ABS(PRefresh.state -1)
        AnPlOldPos = AnPlNewPos
    End if
End Sub

The 12 is dependent on the 'Plungers' array, and may need to be adjusted to 11 depending on the number of images...

Edited by koadic, 07 June 2013 - 08:24 PM.

[imagamejunky]

Thank you VERY much guys. I will try these suggestions when Im home Tuesday.

[imagamejunky]

All fixed!

 

Thank you guys for your input.

 

Koadic, your second suggestion of adding " AnPlNewPos = INT(Plunger.Position \ 2) " and " If AnPlNewPos > 12 Then AnPlNewPos = 12 " did the trick.   I have played multiple games now after adding these script changes with no more errors.  Awesome!!

 

Kruge99, this script that you suggested is exactly how it was already written for both the classic and the enhanced versions.  I appreciate your advice though.

 

Thanks again.

TOTAN rocks!!