home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00346.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  883 b   |  33 lines
  1. on exitFrame
  2.   global endSection, NextFrame, lastFrame, theTicks
  3.   set f to (the movieTime of sprite 15 / 4) + 20
  4.   set g to (the movieTime of sprite 15 / 4) + 9
  5.   if rollOver(15) or rollOver(14) then
  6.     SetCursor()
  7.   else
  8.     ReleasCursor()
  9.   end if
  10.   if f >= endSection then
  11.     if NextFrame = EMPTY then
  12.       if not (the puppet of sprite 14) then
  13.         set the movieRate of sprite 15 to 0
  14.         set the sound of cast "BodyAll.mov" to 0
  15.         updateStage()
  16.         ButtonsUp()
  17.         puppetSprite(14, 1)
  18.       end if
  19.       set a1 to the castNum of sprite 14
  20.       set a2 to integer(value(1 - word 2 of the name of cast a1))
  21.       set a3 to word 1 of the name of cast a1
  22.       set the castNum of sprite 14 to the number of cast string(a3 && a2)
  23.       updateStage()
  24.       go(the frame)
  25.     else
  26.       ReleasCursor()
  27.       EndDance()
  28.     end if
  29.   else
  30.     go(g)
  31.   end if
  32. end
  33.