home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 39 / Creative-Review-CD-ROM-39.iso / pc / gallery / start.dir / 00034_Script_34 < prev    next >
Text File  |  1997-02-09  |  858b  |  49 lines
  1. on startmovie
  2.   when keydown then checkKey
  3.   set the soundLevel to 5
  4.   set the exitlock to true
  5. end
  6.  
  7. on checkKey
  8.   if the commanddown then
  9.     if the key="." or the key="Q" or the key="q" then
  10.       dontpassevent
  11.       repeat with n = 1 to 48
  12.         puppetsprite n, 0
  13.       end repeat
  14.       stopit
  15.       play done
  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.       
  27.     end if
  28.   end if
  29. end
  30.  
  31. on soundIt
  32.   if soundBusy(1) then 
  33.     go to frame 2
  34.   else
  35.     go to the frame
  36.   end if
  37. end soundIt
  38.  
  39.  
  40.  
  41. on stopit
  42.   repeat with n = 1 to 48
  43.     puppetsprite n ,0
  44.   end repeat
  45.   repeat with s = 1 to 8
  46.     sound stop s
  47.   end repeat
  48. end stopit
  49.