If (mouseposX>= boundleft and mouseposX <= boundright and mouseposY>= boundtop and mouseposY <= boundbottom)
Loop While (i <= endnum)
Set Variable: "myDif" = (EVAL("textY" & i) ) - (mouseposY-boundtop)
Comment: percentage increase
Set Variable: "scaleAmount" = 250 - ((myDif*myDif) /16)
Set Variable: "alphaAmount" = 100 - ((myDif*myDif) / 6)
If (scaleAmount <100)
Set Variable: "scaleAmount" = 100
End If
If (alphaAmount <50)
Set Variable: "alphaAmount" = 50
End If
Set Property ("text" & i, X Scale) = scaleAmount
Set Property ("text" & i, Y Scale) = scaleAmount
Set Property ("text" & i, Alpha) = alphaAmount
Set Variable: "i" = i + 1
End Loop
Comment: *** add up total Y space filled by text ***
Loop While (m <= endnum - 1)
Set Variable: "filledSpace" = filledSpace + GetProperty ( "text" & m, _height)
Set Variable: "m" = m + 1
End Loop
Comment: *** find total Y space not filled by text***
Set Variable: "totalheight" = GetProperty ( "text" & endnum, _y) - GetProperty ( "text" & startnum, _y)
Set Variable: "gapSpace" = totalheight - filledSpace
Set Variable: "avgDistance" = gapSpace / numberofitems
Set Variable: "m" = startnum + 1
Loop While (m <= endnum - 1)
Set Property ("text" & m, Y Position) = (GetProperty ( "text" & (m-1), _y) + GetProperty ( "text" & (m-1), _height)) + avgdistance
Set Variable: "m" = m + 1
End Loop
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.