home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / playsk / bridge.dxr / 00693_rolloverAnimate.ls < prev    next >
Encoding:
Text File  |  1996-06-30  |  916 b   |  32 lines
  1. on rolloverAnimateLoop spritechannel, inc, animList
  2.   puppetSprite(spritechannel, 1)
  3.   if rollOver(spritechannel) then
  4.     set the castNum of sprite spritechannel to the number of member getAt(animList, inc)
  5.     set inc to inc + 1
  6.     if inc > count(animList) then
  7.       set inc to 1
  8.     end if
  9.   else
  10.     set inc to 1
  11.     set the castNum of sprite spritechannel to the number of member getAt(animList, inc)
  12.   end if
  13.   updateStage()
  14.   return inc
  15. end
  16.  
  17. on rolloverAnimatePause spritechannel, inc, animList
  18.   puppetSprite(spritechannel, 1)
  19.   if rollOver(spritechannel) then
  20.     set the castNum of sprite spritechannel to the number of member getAt(animList, inc)
  21.     set inc to inc + 1
  22.     if inc > count(animList) then
  23.       set inc to count(animList)
  24.     end if
  25.   else
  26.     set inc to 1
  27.     set the castNum of sprite spritechannel to the number of member getAt(animList, inc)
  28.   end if
  29.   updateStage()
  30.   return inc
  31. end
  32.