home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / autodesk / autodesk.exe / autodesk.DXR / 01758.ls < prev    next >
Encoding:
Text File  |  1994-12-17  |  388 b   |  19 lines
  1. on exitFrame
  2.   set ds1 to 200
  3.   set ds2 to 0
  4.   set dt to 1
  5.   startTimer()
  6.   repeat while ds1 > 0
  7.     set the volume of sound 1 to ds1
  8.     set the volume of sound 2 to ds2
  9.     if the timer > dt then
  10.       set ds1 to ds1 - 16
  11.       set ds2 to ds2 + 16
  12.       set the timer to 0
  13.     end if
  14.   end repeat
  15.   set the volume of sound 2 to 200
  16.   sound stop 1
  17.   set the volume of sound 1 to 245
  18. end
  19.