home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / nttdata / top.dcr / 00086.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  422 b   |  19 lines
  1. on exitFrame
  2.   global msound
  3.   set ssound to msound
  4.   put ssound
  5.   repeat while ssound > 0
  6.     put the volume of sound 1
  7.     if ssound > 10 then
  8.       set the volume of sound 1 to ssound - 10
  9.       set ssound to the volume of sound 1
  10.       next repeat
  11.     end if
  12.     set the volume of sound 1 to 0
  13.     set ssound to the volume of sound 1
  14.   end repeat
  15.   sound stop 1
  16.   set the volume of sound 1 to msound
  17.   go("START")
  18. end
  19.