Image Animation Script help needed (Solved)

Did you see these two pages:

• http://wiki.wincustomize.com/wiki/DesktopX:_Scripted_Animations
• http://chadamus.deviantart.com/art/DesktopX-Animation-Script-9364874

There are a few ways to do what you want. I didn't test this code however I'm sure that it will work.

Dim num,td '<== frame number and time delay

Sub Object_OnLButtonUp(x,y,dragged)
If Not dragged Then
num = 1 : SetKey(1)
End If
End Sub

Sub SetKey(n)
Select Case n
Case 1 td = 200
Case 2,3,4,5 td = 10
Case 6 td = 100
Case 7,8,9 td = 10
Case 10 td = 12
Case 11 td = 15
Case 12 td = 25
Case 13,14 td = 8
Case 15,17 td = 0
Case 16 td = 6
Case 18,19,20 td = 5
End Select
If td > 0 Then Object.SetTimer 1,td Else Object_OnTimer1
End Sub

Sub Object_OnTimer1
Object.KillTimer 1
desktopx.object("frame").state = num '<== state names from 1 to 20
If num < 20 Then num = num + 1 Else num = 1
Call SetKey(num)
End Sub

As well as you may create the array with path to each of your images:

Dim frame(20),num,td

Sub Object_OnScriptEnter
For n = 1 To 20
frame(n) = "C:\My Pictures\image"&n
Next
End Sub

then use this code to change frames:

Sub Object_OnTimer1
Object.KillTimer 1
desktopx.object("frame").picture = frame(num)
If num < 20 Then num = num + 1 Else num = 1
Call SetKey(num)
End Sub

Best Regards.   

Vad_M, Thanks for the time to help me. I tried the first part of your script as that is what I am aiming at but have yet to get it to work, I did change "frame" to the ObjectId that I set "Test1" but it didn't work. I did notice that the last two If statements did not have End If at the end but that did not fix it I also tried reformatting the last two If statements with End If but that didn't help either.

Here is a Simple Test Image and a dxpack of the Script using the Test Image


Test1.png

www.myminifile.com Test1.dxpack

No any problems!

1. Set the object width/height to 100 (in the 'Summary' tab) - your frame size is 100 x 100.
2. Copy and paste this code into the object:

Dim num,td '<== frame number and time delay

Sub Object_OnScriptEnter
object.CurrentFrame = 0
End Sub

Sub Object_OnLButtonUp(x,y,dragged)
If Not dragged Then
num = 0 : SetKey(0)
End If
End Sub

Sub SetKey(n)
Select Case n
Case 0 td = 200
Case 1,2,3,4 td = 10
Case 5 td = 100
Case 6,7,8 td = 10
Case 9 td = 12
Case 10 td = 15
Case 11 td = 25
Case 12,13 td = 8
Case 14,16 td = 0
Case 15 td = 6
Case 17,18,19 td = 5
End Select
If td > 0 Then Object.SetTimer 1,td Else Object_OnTimer1
End Sub

Sub Object_OnTimer1
Object.KillTimer 1
object.CurrentFrame = num '<== state names from 0 to 19
If num < 19 Then num = num + 1 Else num = 0
Call SetKey(num)
End Sub

3. Enjoy.   

It works! Thank you Vad_M. I did need need to change a few things like removing Object_OnLButtonUp and moving its contents to Object_OnScriptEnter to start animation on load instead of on left click nothing major. The other thing I changed was actually my fault to begin with, the delay time as it was running way to fast. I realized that the duration that wrote down was supposed to be 1/100 not 1/1000 of a second, adding a extra zero to my time fixed that. And the last thing I changed was the frame numbers in Sub SetKey(n) as for sum reason even though that DesktopX: Scripted Animations tells that frame numbers start with zero that my animation would delay one frame too early, changing it so that it starts with One instead of Zero fixed that problem. After that the script was fully working for me.

Oops, In the last post the script didn't post correctly so here it is again.


Dim num,td '<== frame number and time delay

Sub Object_OnScriptEnter
object.CurrentFrame = 0
num = 0 : SetKey(0)
End Sub

Sub SetKey(n)
Select Case n
Case 1 td = 2000
Case 2,3,4,5 td = 100
Case 6 td = 1000
Case 7,8,9 td = 100
Case 10 td = 120
Case 11 td = 150
Case 12 td = 250
Case 13,14 td = 80
Case 15,17 td = 0
Case 16 td = 60
Case 18,19,20 td = 50
End Select
If td > 0 Then Object.SetTimer 1,td Else Object_OnTimer1
End Sub

Sub Object_OnTimer1
Object.KillTimer 1
object.CurrentFrame = num '<== state names from 0 to 19
If num < 19 Then num = num + 1 Else num = 0
Call SetKey(num)
End Sub

I'm glad that all okay now.   

Have a nice day with DesktopX!