home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03010_Script_3010 < prev    next >
Text File  |  1997-10-14  |  703b  |  16 lines
  1. on suono canale,fileaudio 
  2.   global qualelingua,qualefile,soundfile
  3.   if the machinetype < 255 then
  4.     set diviso to ":"
  5.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  6.     set qualefile to ("invenzioni:invenzio:citta:"&chedir&":"&fileaudio&qualelingua&".aif")
  7.     set soundfile to ("invenzioni:invenzio:citta:"&chedir&":"&fileaudio&qualelingua&".aif")
  8.   else
  9.     set diviso to "\"
  10.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  11.     set qualefile to ("."&diviso&chedir&diviso&fileaudio&qualelingua&".aif")
  12.     set soundfile to the pathname&(char 3 to the number of chars in qualefile of qualefile)
  13.   end if
  14.   sound playfile canale, qualefile
  15. end
  16.