side slidebar
Saturday, March 18, 2006 by deepndark | Discussion: DesktopX
thank you!
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!







Reply #1 Monday, July 3, 2006 8:51 PM
Sub Object_OnMouseEnter
Object.KillTimer 2
Object.SetTimer 1, 10
End Sub
Sub Object_OnTimer1
If Object.Left <= System.VScreenLeft + System.VScreenWidth - Object.Width Then 'Makes the object "stick" to the right of the screen
Object.KillTimer 1
Else
Object.Left = Object.Left - 1 'Else moves the object out
End If
End Sub
Sub Object_OnMouseLeave
Object.KillTimer 1
Object.SetTimer 3, 2500 'Adds a little gap so you can do what you like with the object
End Sub
Sub Object_OnTimer3
Object.SetTimer 2, 1
Object.KillTimer 3
End Sub
Sub Object_OnTimer2
If Object.Left >= System.VScreenLeft + System.VScreenWidth - 40 Then
Object.KillTimer 2
Else
Object.Left = Object.Left + 1 'Draws the object back to the right
End If
End Sub