home *** CD-ROM | disk | FTP | other *** search
/ LAUNCH 2 / LAUNCH.BIN / mac / SONY / SHARED.DIR / 01046_Script_1046 < prev    next >
Text File  |  1995-06-07  |  3KB  |  108 lines
  1. On PlayQTSound whichSound, doLoop
  2.   global gQTSoundChannel
  3.   
  4.   sound stop 1
  5.   
  6.   set the castNum of sprite gQTSoundChannel to the number of cast whichSound
  7.   set the movieTime of sprite gQTSoundChannel to 0
  8.   
  9.   if voidp(doLoop) then put FALSE into doLoop
  10.   set the loop of cast whichSound to doLoop
  11.   updateStage
  12.   
  13.   set the movieRate of sprite gQTSoundChannel to 1
  14.   if doLoop then go to the frame
  15. end
  16.  
  17.  
  18.  
  19. On KillQTSound
  20.   global gQTSoundChannel, gCurrSound
  21.   sound stop 1
  22.   put #not into gCurrSound
  23.   set the movieRate of sprite gQTSoundChannel to 0
  24. end
  25.  
  26.  
  27.  
  28. On HoldQTSound whichSound
  29.   global gQTSoundChannel, gCurrSound, gCurrSoundTime
  30.   
  31.   if gCurrSound <> whichSound then
  32.     if voidp(whichSound) then 
  33.       put the name of cast the castNum of sprite gQTSoundChannel into whichSound
  34.     else
  35.       PlayQTSound whichSound
  36.     end if
  37.     put whichSound into gCurrSound
  38.     put the duration of cast gCurrSound into gCurrSoundTime
  39.   end if
  40.   
  41.   if the movietime of sprite gQTSoundChannel >= gCurrSoundTime then
  42.     go to the frame + 1
  43.     put #not into gCurrSound
  44.   else 
  45.     go to the frame
  46.   end if
  47.   
  48. end
  49.  
  50.  
  51. On PlayOnceQTSound whichSound
  52.   global gQTSoundChannel, gCurrSound
  53.   
  54.   sound stop 1
  55.   
  56.   put the number of cast whichSound into currSound
  57.   
  58.   if gCurrSound <> currSound then
  59.     set the castNum of sprite gQTSoundChannel to currSound
  60.     set the movieTime of sprite gQTSoundChannel to 0
  61.     
  62.     updateStage
  63.     set the movieRate of sprite gQTSoundChannel to 1
  64.     put currSound into gCurrSound
  65.   end if
  66. end
  67.  
  68.  
  69. on LowerQTSound
  70.   nothing
  71.   --  global gQTSoundChannel,gQTSoundVolume
  72.   --  put the volume of sprite(gQTSoundChannel)
  73.   --  set the volume of sprite(gQTSoundChannel) = (gQTSoundVolume - 75)
  74.   --  put the volume of sprite(gQTSoundChannel)
  75. end
  76.  
  77. on RaiseQTSound
  78.   nothing
  79.   --  global gQTSoundChannel,gQTSoundVolume
  80.   --  set the volume of sprite(gQTSoundChannel) = gQTSoundVolume
  81.   --  put the volume of sprite(gQTSoundChannel)
  82. end
  83.  
  84.  
  85.  
  86.  
  87. on HoldToClickQTSound whichClick, whichSound
  88.   global gQTSoundChannel, gCurrSound, gCurrSoundTime
  89.   
  90.   if gCurrSound <> whichSound then
  91.     if voidp(whichSound) then 
  92.       put the name of cast the castNum of sprite gQTSoundChannel into whichSound
  93.     else
  94.       PlayQTSound whichSound
  95.     end if
  96.     put whichSound into gCurrSound
  97.     put the duration of cast gCurrSound into gCurrSoundTime
  98.   end if
  99.   
  100.   if the movietime of sprite gQTSoundChannel >= whichClick then
  101.     go to the frame + 1
  102.     put #not into gCurrSound
  103.   else 
  104.     go to the frame - 1
  105.   end if
  106.   
  107. end
  108.