home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00367.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  585 b   |  23 lines
  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   repeat while the stillDown
  4.     if rollOver(the clickOn) then
  5.       set the castNum of sprite the clickOn to the number of cast "DemoPlay lit"
  6.       updateStage()
  7.       next repeat
  8.     end if
  9.     set the castNum of sprite the clickOn to the number of cast "DemoPlay"
  10.     updateStage()
  11.   end repeat
  12. end
  13.  
  14. on mouseUp
  15.   global gPauseSprite
  16.   if rollOver(the clickOn) then
  17.     set the castNum of sprite the clickOn to the number of cast "DemoPlay"
  18.     puppetSprite(the clickOn, 0)
  19.     puppetSprite(gPauseSprite, 0)
  20.     demoQTplay()
  21.   end if
  22. end
  23.