home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1997 August 15 / MACPEOPLE-1997-08-15.ISO.7z / MACPEOPLE-1997-08-15.ISO / 体験版 / 世界一周DEMO / DEMO.DIR / 00043_Script_43 < prev    next >
Text File  |  1997-06-05  |  230b  |  12 lines
  1. on exitFrame
  2.   
  3.   repeat with i=25 down to 0
  4.     set the volume of sound 1 to i*10
  5.     startTimer
  6.     repeat while the timer < 2
  7.       --
  8.     end repeat
  9.   end repeat
  10.   sound stop 1
  11.   set the volume of sound 1 to 255
  12. end