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