PC World Komputer 1997 May/Pcwk0597.iso/optimus/agata/home.dir/00012_washing.ls

Text File | 1997-02-20 | 667 b | 27 lines

property myChan, maxFrames, currFrame, castList

on birth me, chan
  set myChan to chan
  set the stretch of sprite myChan to 0
  set castList to [580, 580, 580, 581, 581, 581, 582, 582, 582, 583, 583, 583, 584, 584, 584]
  set maxFrames to count(castList)
  set the locH of sprite myChan to 255
  set the locV of sprite myChan to 2
  return me
end

on startAnimation me
  set currFrame to 1
end

on Animate me
  if currFrame <= maxFrames then
    set castIndex to getAt(castList, currFrame)
    set the castNum of sprite myChan to castIndex
  else
    set the castNum of sprite myChan to 580
    RemoveBOL(theCoord, me)
  end if
  set currFrame to currFrame + 1
end