home *** CD-ROM | disk | FTP | other *** search
/ GameStar 2001 March / Gamestar_27_2001-03_cd1.bin / PATCHE / NOLFUpdate002Beta2.exe / Setup / German / gsetup.rul < prev   
Text File  |  2001-01-12  |  2KB  |  73 lines
  1. //
  2. // Language chooser script
  3. //
  4.  
  5. declare
  6.         STRING svLanguage;
  7.  
  8.         BOOL bvEnglish, bvFrench, bvGerman, bvSpanish, bvSwedish;
  9.  
  10.         STRING svTitle, svMsg;
  11.         STRING svEng, svFre, svGer, svSpa, svSwe;
  12.  
  13. program
  14.  
  15. StartHere:
  16.         Disable(BACKGROUND);
  17.         Disable(BACKBUTTON);
  18.         Enable(DIALOGCACHE);
  19.  
  20.         bvEnglish = FALSE;
  21.         bvFrench = FALSE;
  22.         bvGerman = TRUE;
  23.         bvSpanish = FALSE;
  24.         bvSwedish = FALSE;
  25.  
  26.         svTitle = "Setup-Sprache wΣhlen";
  27.         svMsg   = "Sprache fⁿr Installation wΣhlen:";
  28.         svEng   = "Englisch";
  29.         svFre   = "Franz÷sisch";
  30.         svGer   = "Deutsch";
  31.         svSpa   = "Spanisch";
  32.         svSwe   = "Schwedisch";
  33.  
  34.         // Prompt for language to install
  35.         SetDialogTitle(DLG_ASK_OPTIONS, svTitle);
  36.  
  37.         AskOptions(EXCLUSIVE, svMsg, svEng, bvEnglish, svFre, bvFrench, svGer, bvGerman, svSpa, bvSpanish,
  38.                     svSwe, bvSwedish);
  39.  
  40.         // Kick off the specified language's installer
  41.         if(bvEnglish = TRUE) then
  42.             Enable(HOURGLASS);
  43.             DoInstall(SRCDIR ^ "english.INS", "", NOWAIT);
  44.             exit;
  45.         endif;
  46.  
  47.         if(bvFrench = TRUE) then
  48.             Enable(HOURGLASS);
  49.             DoInstall(SRCDIR ^ "french.INS", "", NOWAIT);
  50.             exit;
  51.         endif;
  52.  
  53.         if(bvGerman = TRUE) then
  54.             Enable(HOURGLASS);
  55.             DoInstall(SRCDIR ^ "german.INS", "", NOWAIT);
  56.             exit;
  57.         endif;
  58.  
  59.         if(bvSpanish = TRUE) then
  60.             Enable(HOURGLASS);
  61.             DoInstall(SRCDIR ^ "spanish.INS", "", NOWAIT);
  62.             exit;
  63.         endif;
  64.  
  65.         if(bvSwedish = TRUE) then
  66.             Enable(HOURGLASS);
  67.             DoInstall(SRCDIR ^ "swedish.INS", "", NOWAIT);
  68.             exit;
  69.         endif;
  70.  
  71.  
  72. exit;
  73.