Comic Book Maker: The Smurfs/COMIC.iso/mac/data_m/CBA2_40/00014_frameRect.ls

Text File | 2001-02-22 | 783 b | 28 lines

property myTimer, myLocList, myLoc, myDirection, myCounter
global gObjList, gObj1

on new me, direction
  set direction to (direction + 1) mod 2
  set myDirection to direction + direction - 1
  set myLocList to [221, 218, 212, 203, 190, 168, 146, 133, 124, 118, 115]
  set myCounter to (direction * 12) - myDirection
  return me
end

on update me
  set myCounter to myCounter - myDirection
  if myCounter mod 12 then
    set newLocLeft to getAt(myLocList, myCounter)
    set newLocRight to (newLocLeft * -1) + 862
    repeat with i = 62 to 63
      set the locH of sprite i to newLocLeft
      set the locH of sprite (i + 2) to newLocRight
    end repeat
    if not count(the theSelection of gObj1) then
      updateStage()
    end if
  else
    deleteOne(gObjList, me)
  end if
end