Please mention how to combine these two scripts............
One by Vad_M and second by SirSmiley....
1..Adjusting position of a desktopx object so that it remains at center for every resolution..
X = cint((system.WorkareaRight - object.width)/2)
Y = cint((system.WorkareaBottom - object.height)/2)
object.move X,Y '<== this will move your object directly into the center of your screen
2..Auto changing hue or color......
Dim Speed, blnActive
Speed=1000 ' This is the time in milliseconds between changing colors
blnActive=True ' Indicates to start color change on Script Enter
'Called when L-click is released
Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
If blnActive Then
ElseIf Not blnActive Then
Object.SetTimer 1, Speed
'Called when the script is executed
If blnActive Then Object.SetTimer 1, Speed
'Store the current hue in variable
hueshift = Object.hue
'If current hue is equal to or greater than 255
'reset to 0
If hueshift => 255 Then
hueshift = 0
'If hue is not yet 255, keep adding
hueshift = hueshift + 7
'Set the object hue
object.hue = hueshift
'Called when the script is terminated
Thank you very much ...I have no idea....Hope you have......Please help me.......
Thanks & +3 karma in advance................
(Thread moved by admin)
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!