-SOLVED- Need help with scripting animation

My code doesn't work

from Stardock Forums

I'm trying to set up an animation to play when I click on it, then wait about 5 seconds, and then return to it's original state.  Here's what I have so far:

 

Code: vbscript
  1. 'Called when the script is executed
  2. Sub Object_OnScriptEnter
  4. End Sub
  6. Sub Object_OnStateChange(state)
  7.     If state = "Mouse Down" Then
  8.       Object.SetPicture "YinYangAnimStrip.bmp",28,50,&H0000008
  9.         Object.SetTimer 1, 5000
  10.     End If
  11. End Sub
  13. Sub Object_OnTimer1
  14.   Object.SetPicture "IMG00000.bmp",1,50,&H00000008
  15.   Object.KillTimer 1
  16. End Sub
  18. 'Called when the script is terminated
  19. Sub Object_OnScriptExit
  21. End Sub

 

The code won't work for me, so I must be doing something wrong.  Can someone help me out?

Thanks :D

desktopx
6,117 views 9 replies
Reply #1 from WinCustomize Forums Top

Try changing the capital 'D' in Mouse Down to a lowercase 'd'. For default states, the syntax must be exact.

 

 

Reply #2 from Stardock Forums Top

Still doesn't work.

Here's what I have right now:

 

Code: vbscript
  1. 'Called when the script is executed
  2. Sub Object_OnScriptEnter
  4. End Sub
  6. Function Object_OnLButtonUp(x, y, Dragged)
  7.   If Dragged = False Then
  8.       Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000008
  9.           Object.SetTimer 1, 5000
  10.   End If
  11. End Function
  13. Sub Object_OnTimer1
  14.   Object.SetPicture "IMG00000.bmp",1,50,&H00000008
  15.   Object.KillTimer 1
  16. End Sub
  18. 'Called when the script is terminated
  19. Sub Object_OnScriptExit
  21. End Sub

WindowBlinds - Free yourself of the default settings, customize your desktop.
Reply #3 from WinCustomize Forums Top

Hmm. Are these images included anywhere in your theme/widget/object? Unless they're included somewhere (Custom files, or attached to an object state,) DX won't copy them to the object directory where you can use the short form "YinYangImage.bmp".  Otherwise, you would need to use the full path, e.g., "C:\YinYangImage.bmp"

Reply #5 from WinCustomize Forums Top

That's odd. I'm using your exact script and it works. How's your object setup? Does it have multiple states?

What version of DX do you have? I know of at least one DX script--Object.SetScript--that does not work for older versions (pre 3.2)

Reply #6 from Stardock Forums Top

Running version 3.5

 

The object has a default state with the appearance set to IMG00000.bmp and running the script I entered above.

Reply #7 from Stardock Forums Top

Update:

I created a new object and set it's appearance.  I then added the script and it sorta worked.  Here's what it needs to do:

3 Stages of animation

Stage 1 - Still image

Stage 2 - Animated Forward

Stage 3 - Animated Backward

The order should be, Stage 1 until clicked, then Stage 2 for 5 seconds, then Stage 3, and finally stage 1 again until clicked once more.

What's happening is this: Stage 1 until clicked, then Stage 2 for 5 seconds, then Stage 1 again until clicked, then it goes to the last frame in Stage 2 for 5 seconds, Stage 1, repeat.

Is something wrong with the script?  Here's what I have so far:

Code: vbscript
  1. Sub Object_OnScriptEnter
  3.  End Sub
  5.  Function Object_OnLButtonUp(x, y, Dragged)
  6.    If Dragged = False Then
  7.        Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000008
  8.        Object.SetTimer 1, 5000
  9.    End If
  10.  End Function
  12.  Sub Object_OnTimer1
  13.    Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000002
  14.    Object.KillTimer 1
  15.  End Sub
  17.  Sub Object_OnScriptExit
  19.  End Sub

Reply #8 from Stardock Forums Top

Figured it out.  The DesktopX resources under the Help section said that &H0000002 was Reverse, but changing it to &H0000004 caused it to reverse.  I don't know if I'm misunderstanding the word "reverse", but I got it working now.  The script is exactly as above, only with &H0000004 instead of &H0000002.

 

Thanks for the help :D

Maybe someone will find the answer useful :D

Edit:  Also had to change &H0000008 to &H0000006 to stop it from going to the last frame of Stage 2.

Reply #9 from WinCustomize Forums Top

Glad you got it sorted out. :thumbsup: