home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / gallery.dir / 00116_Script_116 < prev    next >
Text File  |  1995-06-12  |  759b  |  30 lines
  1. global gReturnFromDemo, gLeftFromQT
  2. on mousedown
  3.   put the clickOn into whichSprite
  4.   puppetSprite whichSprite, TRUE
  5.   set the castnum of sprite whichSprite = the number of cast ("Quit lit")
  6.   repeat while the stilldown
  7.     updatestage
  8.   end repeat
  9. end
  10.  
  11. on mouseUp
  12.   set the castNum of sprite the clickon = the number of cast "Quit"
  13.   if the mousecast = the number of cast "Quit" then 
  14.     sound stop 1
  15.     sound stop 2
  16.     set gReturnFromDemo = TRUE
  17.     set gLeftFromQT = TRUE
  18.     play movie "quit"
  19.   end if
  20.   
  21.   if the mousecast = the number of cast "Quit lit" then 
  22.     sound stop 1
  23.     sound stop 2
  24.     set gReturnFromDemo = TRUE
  25.     set gLeftFromQT = TRUE
  26.     play movie "quit"
  27.   end if
  28.   puppetSprite whichSprite, FALSE
  29. end
  30.