tipps for animation script?

from Stardock Forums
hi everybody

i've got a problem with my animation. i created a png with 18 frames, which works fine for a normal animation in a loop with 100ms per frame.

but now i'd need to show some frames longer than others, so i guess i'll need to make a scripted animation, but i don't have a clue how that works...

could you help/tell me how such a script is made?

actually i want to show every frame for 100ms exept for frames 1, 7 and 13, which should be shown for 5000 ms.

thanks a lot!
desktopx
3,043 views 3 replies
Reply #1 from WinCustomize Forums Top
while you're waiting for the scripting help:


duplicate frames 1, 7 & 13 49 more times so you have 50 frames each - run the animation at your 100ms
Reply #2 from Stardock Forums Top
i thought of that too, but since every frame is 1000 pixels wide it is imposbile to do so...corel draw cant make documents with a width greater than 30'000 pixels

but i made another animation for the time, now lets see if there is a possibility to delay animations...
ObjectDock - Access shortcuts and frequently used applications from an animated dock.
Reply #3 from Stardock Forums Top
I think this might work for you, aspa. Be sure static is unchecked, and scripted is checked in the animation tab. Also, change the 'numofFrames' variable to your total amount of frames.

Code: vbscript
  2. Dim t, numofFrames
  4. Sub Object_OnScriptEnter
  5. 'Set timer, current frame and variables
  6. object.settimer 1,100
  7. object.currentframe = 0
  8. t = 0
  9. numofFrames = 50
  10. End Sub
  12. Sub Object_OnTimer1
  13. 'If animation reaches the end, kill timer
  14. If t = numofFrames Then
  15. object.KillTimer 1
  16. 'Else add one to frames count
  17. Else
  18. t = t + 1
  19. End If
  20. 'Set current frame
  21. object.currentframe = t
  22. 'If on specific frame, kill timer
  23. 'Set delay timer
  24. Select Case t
  25. Case 1,7,13,49
  26. object.killtimer 1
  27. object.settimer 2,5000
  28. End Select
  29. End Sub
  31. Sub Object_OnTimer2
  32. object.killtimer 2
  33. object.settimer 1,100
  34. End Sub