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