home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / LANGUES / lan00.dir / 00224_Script_224 < prev    next >
Text File  |  2002-01-12  |  630b  |  27 lines
  1. global nivSon, dernierSon
  2.  
  3. on joueSonMP3 nom, n
  4.   if the paramCount = 1 then
  5.     n = 3
  6.   end if
  7.   if voidP(nivSon)=1 then
  8.     nivSon=[255,255,255]
  9.   end if
  10.   -- ajout Θventuel de "sons:"
  11.   if char 1 to 9 of nom <> "sons" then
  12.     if offset(":", nom) = 0 then
  13.       nom = "sons:" & nom
  14.     end if
  15.   end if
  16.   dernierSon = nom
  17.   --
  18.   put the pathName & nomDos(nom) & ".swa" into nom
  19.   put "  Son jouΘ : " & dernierSon
  20.   sound playFile n, nom
  21.   -- rΘglage du niveau des autres canaux
  22.   repeat with i=1 to 3
  23.     if i<>n and nivSon[i]>102 then
  24.       sound(i).volume = 110
  25.     end if
  26.   end repeat
  27. end joueSonMP3