I'm trying to achieve something like this site: http://www.solstis.co.uk/.
Once it reaches the menu, click on Solstis Icons button (3rd from the top
clock-wise). You would see 9 circles with different icons in the middle. If
you move quickly across the buttons, you would see circles enlarge and
shrink one after another. I have a script below (learned from this list
too) that take care of the animation part (by swapping multiple cast
members) but once I move to another button. The animation (of the button
you just left) stops right away and execute the animation on the next
button you rollover. I'd like the button you left continues on the
animation and finish the animation even when the animation starts on the
new one you rollover.
Thanks for the help and have nice productive new year,
Changhsu Liu
My script:
============================
Frame script
on enterFrame
set ROanimation to new(script "AnimationScript")
init ROanimation, 0, 50, menuAnL0
end
on exitFrame
pause
end
on idle
stepFrame ROanimation
end
ROanimation cast member:
property myTicks, myWait
property aniSprite, myCurrStep, animationList
on new me
return me
end new
on init me,animationNo, SpriteNumber, animationL
set myWait = 1 -- random (1) + 1
set myTicks= the timer
set animationList = animationL
set aniSprite = SpriteNumber
set myCurrStep = animationNo
end
on playAnimation me
set totalStep = Count(animationList)
if totalStep < 1 then exit
if myCurrStep < 1 then
set myCurrStep = 1
else
set myCurrStep = myCurrStep + 1
end if
if myCurrStep > totalStep then exit -- set myCurrStep = 1
set whichStep = getAt(animationList, myCurrStep)
set the member of sprite aniSprite to member whichStep
updateStage
set myTicks = the timer
end
on Stepframe me
if (myTicks + myWait) < (the timer) then
playAnimation me
end if
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
