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 / 00040.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  839 b   |  28 lines
  1. on chksound
  2.   global bvolume, soundfadevol, nowsoundname
  3.   set ml to point(mouseH(), mouseV())
  4.   repeat with n = 1 to 3
  5.     if inside(ml, the rect of sprite n) then
  6.       go(getAt(["mall", "globe", "expo"], n))
  7.       set nowsoundname_ to getAt(["park3.aiff", "zatto.aiff", "ojisan3.aiff"], n)
  8.       if nowsoundname_ <> nowsoundname then
  9.         set soundfadevol to bvolume
  10.         set nowsoundname to nowsoundname_
  11.         puppetSound(1, the number of cast nowsoundname)
  12.         updateStage()
  13.       end if
  14.       set soundfadetime to bvolume
  15.       set the volume of sound 1 to bvolume
  16.       exit
  17.     end if
  18.   end repeat
  19.   set nowsoundname to EMPTY
  20.   if soundBusy(1) then
  21.     set soundfadevol to soundfadevol - 60
  22.     if soundfadevol < 0 then
  23.       set soundfadevol to 0
  24.     end if
  25.     set the volume of sound 1 to soundfadevol
  26.   end if
  27. end
  28.