home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 15 / cdrt15.iso / pc / contentp.dir / 00134_Script_134 < prev    next >
Text File  |  1995-04-05  |  429b  |  22 lines
  1. on startmovie
  2.   cursor 4
  3.   
  4. end startmovie
  5.  
  6.  
  7. on soundfader chan
  8.   if soundBusy(chan) = true then
  9.     
  10.     put the ticks + the volume of sound 1 into sttime
  11.     repeat while the volume of sound chan > chan
  12.       set the volume of sound chan = (sttime- the ticks)      
  13.       updatestage
  14.     end repeat
  15.     
  16.     sound stop chan
  17.     set the volume of sound chan = 255
  18.     set the soundLevel = 5
  19.   end if
  20.   
  21. end
  22.