home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / musicbox / theatre.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1996-06-28  |  363 b   |  17 lines
  1. on exitFrame
  2.   set lev to the soundLevel
  3.   set the soundLevel to 0
  4.   if the machineType <> 256 then
  5.     sound playFile 1, ":MUSIC:THLOOP.AIF"
  6.   else
  7.     sound playFile 1, "MUSIC\THLOOP.AIF"
  8.   end if
  9.   repeat with fadeLev = 0 to lev
  10.     startTimer()
  11.     repeat while the timer < 10
  12.       nothing()
  13.     end repeat
  14.     set the soundLevel to fadeLev
  15.   end repeat
  16. end
  17.