PC World Komputer 1997 May/Pcwk0597.iso/optimus/agata/home.dir/00008_2 chan.ls

Text File | 1997-02-20 | 813 b | 30 lines

property myChan1, myChan2, maxFrames, currFrame, cast1List, x1List, y1List, cast2List, x2List, y2List, cast1Index, cast2Index
global theCoord

on birth me, chan1, chan2
  set myChan1 to chan1
  set myChan2 to chan2
  set the stretch of sprite myChan1 to 0
  set the stretch of sprite myChan2 to 0
  return me
end

on startAnimation me
  set currFrame to 1
end

on Animate me
  if currFrame <= maxFrames then
    set cast1Index to getAt(cast1List, currFrame)
    set cast2Index to getAt(cast2List, currFrame)
    set the castNum of sprite myChan1 to cast1Index
    set the castNum of sprite myChan2 to cast2Index
  end if
  if currFrame > maxFrames then
    set the castNum of sprite myChan1 to 0
    set the castNum of sprite myChan2 to 0
    RemoveBOL(theCoord, me)
  end if
  set currFrame to currFrame + 1
end