home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / gallery.dir / 00116.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  713 b   |  30 lines
  1. global gReturnFromDemo, gLeftFromQT
  2.  
  3. on mouseDown
  4.   set WhichSprite to the clickOn
  5.   puppetSprite(WhichSprite, 1)
  6.   set the castNum of sprite WhichSprite to the number of cast "Quit lit"
  7.   repeat while the stillDown
  8.     updateStage()
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   set the castNum of sprite the clickOn to the number of cast "Quit"
  14.   if the mouseCast = the number of cast "Quit" then
  15.     sound stop 1
  16.     sound stop 2
  17.     set gReturnFromDemo to 1
  18.     set gLeftFromQT to 1
  19.     play movie "quit"
  20.   end if
  21.   if the mouseCast = the number of cast "Quit lit" then
  22.     sound stop 1
  23.     sound stop 2
  24.     set gReturnFromDemo to 1
  25.     set gLeftFromQT to 1
  26.     play movie "quit"
  27.   end if
  28.   puppetSprite(WhichSprite, 0)
  29. end
  30.