home *** CD-ROM | disk | FTP | other *** search
/ GQ - Louise, World Cup, …remy Clarkson, Armageddon / GQCD.iso / files / sprtmain.dxr / 00059_bounceScript.ls < prev    next >
Encoding:
Text File  |  1998-05-21  |  555 b   |  32 lines
  1. property spriteNum, rolledOn, myIndexNum, myCounter
  2.  
  3. on new me, mySpriteNum, indexNum
  4.   set rolledOn to 0
  5.   set myCounter to 0
  6.   set spriteNum to mySpriteNum
  7.   set myIndexNum to indexNum
  8.   return me
  9. end
  10.  
  11. on setState me, state
  12.   set rolledOn to state
  13. end
  14.  
  15. on stepFrame me
  16.   if rolledOn then
  17.     animate(me)
  18.   else
  19.     if myCounter > 0 then
  20.       animate(me)
  21.     end if
  22.   end if
  23. end
  24.  
  25. on animate me
  26.   set myCounter to myCounter + 1
  27.   if myCounter > 5 then
  28.     set myCounter to 0
  29.   end if
  30.   set the memberNum of sprite spriteNum to myIndexNum + myCounter
  31. end
  32.