home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar 2001 July
/
Gamestar_31_2001-07_cd1.bin
/
PATCHE
/
NOLFUpdate003.exe
/
Setup
/
French
/
fsetup.rul
< prev
next >
Wrap
Text File
|
2001-04-25
|
2KB
|
93 lines
//
// Language chooser script
//
declare
STRING svLanguage;
BOOL bvEnglish, bvFrench, bvGerman, bvSpanish, bvSwedish;
STRING svTitle, svMsg;
STRING svEng, svFre, svGer, svSpa, svSwe;
STRING svFullPath, svRootPath, svFindStr;
prototype BuildRootPath();
program
StartHere:
Disable(BACKGROUND);
Disable(BACKBUTTON);
Enable(DIALOGCACHE);
bvEnglish = FALSE;
bvFrench = TRUE;
bvGerman = FALSE;
bvSpanish = FALSE;
bvSwedish = FALSE;
svTitle = "Choisissez une langue d'installation.";
svMsg = "Choisissez la langue d'installation.";
svEng = "Anglais";
svFre = "Franτais";
svGer = "Allemand";
svSpa = "Espagnol";
svSwe = "SuΘdois";
svFullPath = SRCDIR ^ "french.ins";
svFindStr = "French\\french.ins";
BuildRootPath();
// Prompt for language to install
SetDialogTitle(DLG_ASK_OPTIONS, svTitle);
AskOptions(EXCLUSIVE, svMsg, svEng, bvEnglish, svFre, bvFrench, svGer, bvGerman, svSpa, bvSpanish,
svSwe, bvSwedish);
// Kick off the specified language's installer
if(bvEnglish = TRUE) then
Enable(HOURGLASS);
DoInstall(svRootPath ^ "English\\english.INS", "", NOWAIT);
exit;
endif;
if(bvFrench = TRUE) then
Enable(HOURGLASS);
DoInstall(svFullPath, "", NOWAIT);
exit;
endif;
if(bvGerman = TRUE) then
Enable(HOURGLASS);
DoInstall(svRootPath ^ "German\\german.INS", "", NOWAIT);
exit;
endif;
if(bvSpanish = TRUE) then
Enable(HOURGLASS);
DoInstall(svRootPath ^ "Spanish\\spanish.INS", "", NOWAIT);
exit;
endif;
if(bvSwedish = TRUE) then
Enable(HOURGLASS);
DoInstall(svRootPath ^ "Swedish\\swedish.INS", "", NOWAIT);
exit;
endif;
exit;
function BuildRootPath()
NUMBER nStrLen, nPos;
begin
nStrLen = StrLength(svFullPath);
nPos = StrFind(svFullPath, svFindStr);
if (nPos >= 0 && nPos < nStrLen) then
StrSub(svRootPath, svFullPath, 0, nPos);
endif;
end;