Else
Comment: *** shrink text back when mouse rolls out
Set Variable: "i" = startnum
Loop While (i <= endnum)
If (int ( GetProperty ("text" & i, _yscale ) )> 100)
Comment: return scale back to original state
Set Property ("text" & i, Y Scale) = Int ( GetProperty ("text" & i, _yscale ) ) - 1
Set Property ("text" & i, X Scale) = Int ( GetProperty ("text" & i, _xscale ) ) -1
End If
If ( GetProperty ("text" & i, _y) EVAL("textY" & i))
Set Property ("text" & i, Y Position) = Int ( GetProperty ("text" & i, _y ) ) - 1
End If
If ( GetProperty ("text" & i, _Alpha)> 50)
Set Property ("text" & i, Alpha) = Int ( GetProperty ("text" & i, _alpha ) ) - 1
End If
Set Variable: "i" = i + 1
End Loop
End If
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.