home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 60 / pcpp60b.iso / patch / nolf / NOLFUpdate002.exe / Setup / German / german.rul < prev    next >
Encoding:
Text File  |  2001-02-12  |  3.4 KB  |  103 lines
  1. //
  2. // GERMAN UPDATE setup.rul
  3. //
  4. // NOTE:  Changes made to this script should be made to the scripts for each 
  5. //          other language too!
  6. //
  7.  
  8. // Game & folder names
  9. #define APP_TITLE       "NOLF Update (v1.002)"
  10. #define APP_NAME        "No One Lives Forever"
  11. #define APP_VERSION     "1.0"
  12. #define APP_KEY         "NOLF.exe"
  13. #define DEFAULT_PATH    "Fox\\No One Lives Forever"
  14. #define DEFAULT_GROUP   "Fox Interactive\\No One Lives Forever"
  15. #define UPDATE_VERSION    "1.002"
  16. #define UPDATE_COMMAND    "-rez Nolfu002.rez -rez Nolfcres002.rez"
  17. #define README_FILE        "READMEU002.TXT"
  18.  
  19. declare
  20.     NUMBER  nResult;
  21.     NUMBER  nType, nSize;
  22.     STRING  svSrcDir, svTargetDir;
  23.     STRING  svRegKey;
  24.     STRING  svTemp;
  25.     STRING  svVersion;
  26.  
  27. program
  28. start:
  29.     // Set paths
  30.     svSrcDir     = SRCDIR ^ "..\\..\\";
  31.  
  32.     // Setup screen & title
  33.     Enable(BACKGROUND);
  34.     SetColor(BACKGROUND, RGB(236, 164, 4));
  35.     SetTitle(APP_TITLE, 26, WHITE);
  36.  
  37.     SetColor(STATUSBAR, BK_SOLIDBLUE);
  38.     PlaceBitmap(svSrcDir ^ "SETUP\\NOLF1.BMP", 1, CENTERED, CENTERED, CENTERED);
  39.     Delay(2);
  40.  
  41.     // Get installed path from registry
  42.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
  43.     svRegKey = "Software\\Monolith Productions\\" + APP_NAME + "\\" + APP_VERSION;
  44.     nType = REGDB_STRING;
  45.     nSize = -1;
  46.     nResult = RegDBGetKeyValueEx(svRegKey, "WorkingDirectory", nType, svTargetDir, nSize);
  47.     if (nResult < 0) then
  48.         svTemp = APP_NAME + " kann nicht auf Version " + UPDATE_VERSION + " aktualisiert werden. ▄berprⁿfe, ob " + 
  49.                  APP_NAME + " richtig installiert wurde!";
  50.         MessageBox(svTemp, WARNING);
  51.         exit;
  52.     endif;
  53.  
  54.     // Check version number of what's already installed
  55.     nType = REGDB_STRING;
  56.     nSize = -1;
  57.     nResult = RegDBGetKeyValueEx(svRegKey, "Version", nType, svVersion, nSize);
  58.     if (nResult = 0) then
  59.         nResult = StrCompare(svVersion, UPDATE_VERSION);
  60.         if (nResult > 0) then
  61.  
  62.             svTemp = "Du benutzt momentan v" + svVersion + " von " + APP_NAME + 
  63.                      ".\n\nDeshalb kannst du nicht auf v" + UPDATE_VERSION + " updaten." +
  64.                      "\n\nDie letzten Updates fⁿr " + APP_NAME + 
  65.                      " k÷nnen unter http://www.the-operative.com heruntergeladen werden.";
  66.              MessageBox(svTemp, INFORMATION);
  67.             exit;
  68.         endif;
  69.     endif;
  70.  
  71.     // Show status window
  72.     Disable(FEEDBACK_FULL);
  73.     Enable(STATUS);
  74.     Enable(INDVFILESTATUS);
  75.     PlaceWindow(STATUS, CENTERED, 0, LOWER_RIGHT);
  76.     SetStatusWindow(0, APP_NAME + " wird aktualisiert ...");
  77.  
  78.     // Copy all game files...
  79.     StatusUpdate(ON, 100);
  80.     SRCDIR    = svSrcDir ^ "GAME";
  81.     TARGETDIR = svTargetDir;
  82.     CopyFile("*.*", "*.*");
  83.  
  84.     // Copy language-specific files...
  85.     SRCDIR = svSrcDir ^ "GAME\\GERMAN";
  86.     CopyFile("*.*", "*.*");
  87.  
  88.     // Display done message
  89.     SetStatusWindow(1000, "Update abgeschlossen!");
  90.  
  91.     // Set new registry keys
  92.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
  93.     RegDBSetKeyValueEx(svRegKey, "Version", REGDB_STRING, UPDATE_VERSION, -1);
  94.     RegDBSetKeyValueEx(svRegKey, "Update Command Line", REGDB_STRING, UPDATE_COMMAND, -1);
  95.  
  96.     // Do the readme...
  97.  
  98.     svTemp = "Das Update von " + APP_NAME + " ist abgeschlossen!  M÷chtest du jetzt die README-Datei lesen?";
  99.     if (AskYesNo(svTemp, YES) = YES) then
  100.        LaunchAppAndWait("NOTEPAD.EXE " + svTargetDir ^ README_FILE, "", NOWAIT);
  101.     endif;
  102.  
  103. exit;