home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00053_animation.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  846 b   |  30 lines
  1. property meS, numFrames, memName, numSkips, Y
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on getPropertyDescriptionList me
  8.   description = [:]
  9.   addProp(description, #numFrames, [#default: 0, #format: #integer, #comment: "The number of frames in animation:"])
  10.   addProp(description, #numSkips, [#default: 0, #format: #integer, #comment: "The number of frames to skip:"])
  11.   return description
  12. end
  13.  
  14. on beginSprite me
  15.   meS = me.spriteNum
  16.   myMem = the member of sprite meS
  17.   memName = char 1 to length(member(myMem).name) - 2 of the name of member myMem
  18.   Y = 0
  19. end
  20.  
  21. on exitFrame me
  22.   Y = (Y + 1) mod numSkips
  23.   if Y = 0 then
  24.     myMem = member(the memberNum of sprite meS).name
  25.     X = (integer(char length(myMem) of myMem) + 1) mod (numFrames + 1)
  26.     X = max(X, 1)
  27.     set the memberNum of sprite meS to the number of member (memName && string(X))
  28.   end if
  29. end
  30.