home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 2 / CDROM02.iso / tlapse / tloview.exe / OVERVIEW.DXR / 00683.ls < prev    next >
Encoding:
Text File  |  1996-04-26  |  693 b   |  36 lines
  1. on fademe
  2.   sound fadeOut 1, 2 * 60
  3.   sound fadeOut 2, 2 * 60
  4. end
  5.  
  6. on quickpause
  7.   set ztimer to the timer + 4
  8.   repeat while the timer < ztimer
  9.     updateStage()
  10.   end repeat
  11. end
  12.  
  13. on FadeAllAudio
  14.   global V1, V2
  15.   set the timeoutScript to EMPTY
  16.   set V1 to the volume of sound 1
  17.   set V2 to the volume of sound 2
  18.   repeat while (V1 + V2) > 0
  19.     if V1 > 0 then
  20.       set the volume of sound 1 to V1
  21.       set V1 to V1 - 5
  22.     end if
  23.     if V2 > 0 then
  24.       set the volume of sound 2 to V2
  25.       set V2 to V2 - 5
  26.     end if
  27.     quickpause()
  28.     updateStage()
  29.   end repeat
  30.   sound stop 1
  31.   sound stop 2
  32.   updateStage()
  33.   set the volume of sound 1 to 255
  34.   set the volume of sound 2 to 255
  35. end
  36.