MacWorld 1999 December/Dec99.iso/Data/Main.dxr/00058_multi-roll.ls

Text File | 1999-10-05 | 852 b | 32 lines

property meS, numFrames, memName

on new me
  return me
end

on getPropertyDescriptionList me
  description = [:]
  addProp(description, #numFrames, [#default: 0, #format: #integer, #comment: "The number of frames in rollOver animation:"])
  return description
end

on beginSprite me
  meS = me.spriteNum
  myMem = the member of sprite meS
  memName = char 1 to length(member(myMem).name) - 2 of the name of member myMem
end

on exitFrame me
  myMem = member(the memberNum of sprite meS).name
  X = integer(char length(myMem) of myMem)
  if rollOver(meS) and not sprite(120).visible then
    if X < numFrames then
      set the memberNum of sprite meS to the number of member (memName && string(X + 1))
    end if
  else
    if X > 1 then
      set the memberNum of sprite meS to the number of member (memName && string(X - 1))
    end if
  end if
end