home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 39 / MOBICLIC39.ISO / mac / MOBINTRO.DIR / 00001_Script_1 next >
Text File  |  2001-10-11  |  828b  |  25 lines
  1. on exitFrame
  2.   global chemin,nivSon,cheminTextes,cheminDemo,touchesOn,gcheminSons, gcheminBibli
  3.   set touchesOn=1
  4.   set cheminDemo = the pathName & "TLC\"
  5.   -- enregistrement des rΘpertoires originaux
  6.   if the machineType=256 then
  7.     set chemin = the pathName & "data\"
  8.     set cheminTextes=the pathName&"textes\"
  9.     set the searchPath = [chemin & "communs\"]
  10.     gcheminSons = the pathName&"SONS\"
  11.     gcheminBibli = the pathName&"CYBERBIB\"
  12.   else
  13.     set chemin = the pathName & "data:"
  14.     set cheminTextes=the pathName & "textes:"
  15.     gcheminSons = the pathName&"SONS:"
  16.     gcheminBibli = the pathName&"CYBERBIB:"
  17.     set the searchPath = [chemin & "communs:"]
  18.   end if
  19.   -- rΘglage niveau sonore
  20.   set nivSon = [256,256,256]
  21.   
  22.   
  23.   -- accΦs au film suivant
  24.   go to movie chemin & "intro.dir"
  25. end