No problems bud.. it was close, i just made it easier to add more items to it. Now you can add as many sliding objects as you want, without any real code changes.
All you would have to edit is:
Const oCount = 3 ---- CHANGE THIS TO THE MAX NO OF ITEMS
Dim oTarget(3) ----- CHANGE THE 3 to BE THE MAX NO LIKE ABOVE
oTarget(1) = "Target01"
oTarget(2) = "Target02"
oTarget(3) = "Target03"
oTarget(4) = "Target04" --- ADD MORE HERE
And you could name the actual objectes anything you want.
The graphics are wonderful, just need to be about 1/2 the size.. LOL
If you do change the size, just change these:
Const EndPos = -410
Const StartPos = 0
Espically the -410 to the right value for the smaller objects. You could also allow a "scale factor" in the setup like
SCALE: Full Size,80%,75%,etc
Then you could store that in a Var and just do this:
ScaleFactor = .75 (or 1.0, or 2.0 or .50)
EndPos = -410 * ScaleFactor
This would allow the script to move things the correct distance based on the scale factor.
Just an idea.