home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00511.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  1009 b   |  37 lines
  1. on mouseDown
  2.   global movieDuration, therange
  3.   set me to the clickOn
  4.   set the puppet of sprite me to 1
  5.   set the immediate of sprite me to 1
  6.   if ((the frame - marker(0)) < 7) or ((the frame - marker(0)) > 10) then
  7.     set the castNum of sprite me to 447
  8.     repeat while the mouseDown
  9.       updateStage()
  10.     end repeat
  11.     if not rollOver(11) then
  12.       set the castNum of sprite me to 446
  13.       updateStage()
  14.       exit
  15.     end if
  16.     set the castNum of sprite me to 448
  17.     setUpSprites("8;37-42;48", 0)
  18.     puppetSprite(12, 1)
  19.     updateStage()
  20.     go(marker(0) + 7)
  21.     puppetSprite(8, 1)
  22.     set the movieTime of sprite 8 to 0
  23.     set the movieRate of sprite 8 to 1
  24.   else
  25.     if (the frame - marker(0)) < 10 then
  26.       if the movieRate of sprite 8 = 1 then
  27.         set the movieRate of sprite 8 to 0
  28.         set the castNum of sprite me to 446
  29.       else
  30.         set the castNum of sprite me to 448
  31.         set the movieRate of sprite 8 to 1
  32.       end if
  33.       updateStage()
  34.     end if
  35.   end if
  36. end
  37.