home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 42
/
MOBICLIC42.ISO
/
mac
/
MOBINTRO.DIR
/
00001_Script_1
next >
Wrap
Text File
|
2002-02-08
|
951b
|
28 lines
on exitFrame
global chemin,nivSon,cheminTextes,cheminDemo,touchesOn,gcheminSons, gcheminBibli
global gcheminerratum
set touchesOn=1
set cheminDemo = the pathName & "TLC\"
-- enregistrement des rΘpertoires originaux
if the machineType=256 then
set chemin = the pathName & "data\"
set cheminTextes=the pathName&"textes\"
set the searchPath = [chemin & "communs\"]
gcheminSons = the pathName&"SONS\"
gcheminBibli = the pathName&"CYBERBIB\"
gcheminerratum = the pathName&"erratum_BD\"
else
set chemin = the pathName & "data:"
set cheminTextes=the pathName & "textes:"
gcheminSons = the pathName&"SONS:"
gcheminBibli = the pathName&"CYBERBIB:"
gcheminerratum = the pathName&"erratum_BD:"
set the searchPath = [chemin & "communs:"]
end if
-- rΘglage niveau sonore
set nivSon = [256,256,256]
-- accΦs au film suivant
go to movie chemin & "intro.dir"
end