home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00363.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  911 b   |  37 lines
  1. on DemoOnly theSprite, TheLoc, PrevLoc
  2.   beep()
  3.   puppetSprite(theSprite, 1)
  4.   set the locH of sprite theSprite to TheLoc
  5.   updateStage()
  6.   repeat while the mouseDown
  7.     DemoCheck()
  8.   end repeat
  9.   set STIcks to the ticks
  10.   repeat while not (the mouseDown) and ((the ticks - STIcks) < (60 * 3))
  11.     DemoCheck()
  12.   end repeat
  13.   if the mouseCast <> the number of cast "demo" then
  14.     set the locH of sprite theSprite to PrevLoc
  15.     puppetSprite(theSprite, 0)
  16.     updateStage()
  17.   end if
  18. end
  19.  
  20. on DemoCheck
  21.   global endSection, lastFrame, cursorcast
  22.   if the frame < label("medicin") then
  23.     set f to (the movieTime of sprite 15 / 4) + 40
  24.     set g to (the movieTime of sprite 15 / 4) + 9
  25.     if f > endSection then
  26.       set the movieRate of sprite 15 to 0
  27.       if char 1 to 4 of lastFrame = "fall" then
  28.         EndDance()
  29.       else
  30.         go(the frame)
  31.       end if
  32.     else
  33.       go(g)
  34.     end if
  35.   end if
  36. end
  37.