Set Variable: "colnum" = 1
Set Variable: "startnum" = 1
Set Variable: "endnum" = 19
Set Variable: "numberofItems" = 19
Set Variable: "mouseposX" = Int ( GetProperty ( "../dragscale", _x ) )
Set Variable: "mouseposY" = Int ( GetProperty ( "../dragscale", _y ) )
Set Variable: "i" = startnum
Set Variable: "m" = startnum+1
Set Variable: "filledSpace" = 0
Set Variable: "gapspace" = 0
If (myInit = FALSE)
Comment: on first run make an array of all the text Y Pos.
Loop While (i <= endnum)
Set Variable: "textY" & i = GetProperty ("text" & i, _y )
Set Variable: "i" = i + 1
End Loop
Set Variable: "i" = startnum
Set Variable: "myInit" = TRUE
End If
Set Variable: "boundleft" = GetProperty ("../boundbox" & colnum, _x)
Set Variable: "boundright" = boundleft + GetProperty ("../boundbox" & colnum, _width)
Set Variable: "boundtop" = GetProperty ("../boundbox" & colnum, _y)
Set Variable: "boundbottom" = boundtop + GetProperty ("../boundbox" & colnum,_height)
The author wrote this tutorial to explain the infamous effect originally created by Joshua Davis of www.praystation.com. The tutorial was written with his personal permission and the source is simply a modification of the file available at PrayStation.com.