Internet Commerce

Partners & Affiliates














Developer Channel

internet.com


Tutorials Home What's New Top Rated Submit myTutes Random!

Search Tutorials


Categories Building a Tsunami
Author: Morten Barslund | Website: http://www.hhbk.subnet.dk/GotCha.html |

 
Page 8
«prev 1 2 3 4 5 6 7 8 9 10 next»

Returning to the Original State

In the second case, we have the following code:

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

«prev 1 2 3 4 5 6 7 8 9 10 next»

» Level Advanced

Added: : 2000-12-27
Rating: 8.84 Votes: 236
Hits: 1919
» Author
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.
» Download
Download the files used in this tutorial.
Download (10 kb)
Get conversion and unzipping tools for PC and Mac here!

» Forums
More help? Search our boards for quick answers!

Please rate this tutorial, 10 is the top rating, you can also click the comments link to read/write a review.
10 9 8 7 6 5 4 3 2 1
Read or Post Comments
 
   
 


The Network for Technology Professionals

Search:

About Internet.com

Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers