home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 20 / Creative-Review-CD-ROM-20.iso / pc / gallery / start.dir / 00034_Script_34 < prev    next >
Text File  |  1996-10-10  |  911b  |  50 lines
  1. on startmovie
  2.   when keydown then checkKey
  3.   set the exitlock to true
  4. end
  5.  
  6. on checkKey
  7.   if the commanddown then
  8.     if the key="." or the key="Q" or the key="q" then
  9.       dontpassevent
  10.       repeat with n = 1 to 48
  11.         puppetsprite n, 0
  12.       end repeat
  13.       stopit
  14.       play done
  15.       puppetPalette "System - Mac", 60
  16.     end if
  17.   end if
  18.   if the controlDown then
  19.     if the key="." or the key="Q" or the key="q" then
  20.       dontpassevent
  21.       repeat with n = 1 to 48
  22.         puppetsprite n, 0
  23.       end repeat
  24.       stopit
  25.       play done
  26.       puppetPalette "System - Mac", 60
  27.       
  28.     end if
  29.   end if
  30. end
  31.  
  32. on soundIt
  33.   if soundBusy(1) then 
  34.     go to frame 2
  35.   else
  36.     go to the frame
  37.   end if
  38. end soundIt
  39.  
  40.  
  41.  
  42. on stopit
  43.   repeat with n = 1 to 48
  44.     puppetsprite n ,0
  45.   end repeat
  46.   repeat with s = 1 to 8
  47.     sound stop s
  48.   end repeat
  49. end stopit
  50.