EllardComputers

Join Date 11/2009

-SOLVED- Need help with scripting animation

My code doesn't work

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
'Called when the script is executed
Sub Object_OnScriptEnter
End Sub
Sub Object_OnStateChange(state)
    If state = "Mouse Down" Then
      Object.SetPicture "YinYangAnimStrip.bmp",28,50,&H0000008
        Object.SetTimer 1, 5000
    End If
End Sub
Sub Object_OnTimer1
  Object.SetPicture "IMG00000.bmp",1,50,&H00000008
  Object.KillTimer 1
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
End Sub

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

Thanks

desktopx

Locked Post

Advanced Search

Watch this post

Do not email me updates for this post Email me updates for this post

Successfully updated karma reason!

sViz

Join Date 04/2006

+508

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

Successfully updated karma reason!

Still doesn't work.

Here's what I have right now:

Code: vbscript
'Called when the script is executed
Sub Object_OnScriptEnter
End Sub
Function Object_OnLButtonUp(x, y, Dragged)
  If Dragged = False Then
      Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000008
          Object.SetTimer 1, 5000
  End If
End Function
Sub Object_OnTimer1
  Object.SetPicture "IMG00000.bmp",1,50,&H00000008
  Object.KillTimer 1
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
End Sub

Successfully updated karma reason!

sViz

Join Date 04/2006

+508

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"

Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

They're included in the custom files of the object.

Successfully updated karma reason!

sViz

Join Date 04/2006

+508

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)

Successfully updated karma reason!

Running version 3.5

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

Successfully updated karma reason!

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
Sub Object_OnScriptEnter
 End Sub
 Function Object_OnLButtonUp(x, y, Dragged)
   If Dragged = False Then
       Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000008
       Object.SetTimer 1, 5000
   End If
 End Function
 Sub Object_OnTimer1
   Object.SetPicture "YingYangAnimStrip.bmp",28,50,&H0000002
   Object.KillTimer 1
 End Sub
 Sub Object_OnScriptExit
 End Sub

Successfully updated karma reason!

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

Maybe someone will find the answer useful

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

Successfully updated karma reason!

sViz

Join Date 04/2006

+508

Glad you got it sorted out.

Successfully updated karma reason!