Whitespace and language change

- changed tabs to spaces and DOS line endings to Unix
  (except in CBot and metafile)
- changed language to English
- fixed #include <d3d.h> in d3dengine.h

1 files changed, 441 insertions, 441 deletions

diff --git a/src/common/misc.cpp b/src/common/misc.cpp
index 65efe2d..2427356 100644
--- a/src/common/misc.cpp
+++ b/src/common/misc.cpp
@@ -1,441 +1,441 @@
-// * This file is part of the COLOBOT source code

-// * Copyright (C) 2001-2008, Daniel ROUX & EPSITEC SA, www.epsitec.ch

-// *

-// * This program is free software: you can redistribute it and/or modify

-// * it under the terms of the GNU General Public License as published by

-// * the Free Software Foundation, either version 3 of the License, or

-// * (at your option) any later version.

-// *

-// * This program is distributed in the hope that it will be useful,

-// * but WITHOUT ANY WARRANTY; without even the implied warranty of

-// * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

-// * GNU General Public License for more details.

-// *

-// * You should have received a copy of the GNU General Public License

-// * along with this program. If not, see  http://www.gnu.org/licenses/.

-

-// misc.cpp

-

-

-#include <math.h>

-#include <stdlib.h>

-#include <stdio.h>

-#include <ctype.h>

-#include <direct.h>

-#include <time.h>

-#include <d3d.h>

-

-#include "common/struct.h"

-#include "old/d3dengine.h"

-#include "old/d3dmath.h"

-#include "old/d3dutil.h"

-#include "common/language.h"

-#include "common/event.h"

-#include "common/misc.h"

-

-

-

-CMetaFile	g_metafile;

-

-static EventMsg		g_uniqueEventMsg = EVENT_USER;

-static bool			g_bUserDir = false;

-static char			g_userDir[100] = "";

-

-

-

-// Gives a single user event.

-

-EventMsg GetUniqueEventMsg()

-{

-	int		i;

-

-	i = (int)g_uniqueEventMsg+1;

-	g_uniqueEventMsg = (EventMsg)i;

-	return g_uniqueEventMsg;

-}

-

-

-

-// Returns a non-accented letter.

-

-char RetNoAccent(char letter)

-{

-	if ( letter < 0 )

-	{

-		if ( letter == 'á' ||

-			 letter == 'à' ||

-			 letter == 'â' ||

-			 letter == 'ä' ||

-			 letter == 'ã' )  return 'a';

-

-		if ( letter == 'é' ||

-			 letter == 'è' ||

-			 letter == 'ê' ||

-			 letter == 'ë' )  return 'e';

-

-		if ( letter == 'í' ||

-			 letter == 'ì' ||

-			 letter == 'î' ||

-			 letter == 'ï' )  return 'i';

-

-		if ( letter == 'ó' ||

-			 letter == 'ò' ||

-			 letter == 'ô' ||

-			 letter == 'ö' ||

-			 letter == 'õ' )  return 'o';

-

-		if ( letter == 'ú' ||

-			 letter == 'ù' ||

-			 letter == 'û' ||

-			 letter == 'ü' )  return 'u';

-

-		if ( letter == 'ç' )  return 'c';

-

-		if ( letter == 'ñ' )  return 'n';

-

-		if ( letter == 'Á' ||

-			 letter == 'À' ||

-			 letter == 'Â' ||

-			 letter == 'Ä' ||

-			 letter == 'Ã' )  return 'A';

-

-		if ( letter == 'É' ||

-			 letter == 'È' ||

-			 letter == 'Ê' ||

-			 letter == 'Ë' )  return 'E';

-

-		if ( letter == 'Í' ||

-			 letter == 'Ì' ||

-			 letter == 'Î' ||

-			 letter == 'Ï' )  return 'I';

-

-		if ( letter == 'Ó' ||

-			 letter == 'Ò' ||

-			 letter == 'Ô' ||

-			 letter == 'Ö' ||

-			 letter == 'Õ' )  return 'O';

-

-		if ( letter == 'Ú' ||

-			 letter == 'Ù' ||

-			 letter == 'Û' ||

-			 letter == 'Ü' )  return 'U';

-

-		if ( letter == 'Ç' )  return 'C';

-

-		if ( letter == 'Ñ' )  return 'N';

-	}

-

-	return letter;

-}

-

-// Returns an uppercase letter.

-

-char RetToUpper(char letter)

-{

-	if ( letter < 0 )

-	{

-		if ( letter == 'á' )  return 'Á';

-		if ( letter == 'à' )  return 'À';

-		if ( letter == 'â' )  return 'Â';

-		if ( letter == 'ä' )  return 'Ä';

-		if ( letter == 'ã' )  return 'Ã';

-

-		if ( letter == 'é' )  return 'É';

-		if ( letter == 'è' )  return 'È';

-		if ( letter == 'ê' )  return 'Ê';

-		if ( letter == 'ë' )  return 'Ë';

-

-		if ( letter == 'í' )  return 'Í';

-		if ( letter == 'ì' )  return 'Ì';

-		if ( letter == 'î' )  return 'Î';

-		if ( letter == 'ï' )  return 'Ï';

-

-		if ( letter == 'ó' )  return 'Ó';

-		if ( letter == 'ò' )  return 'Ò';

-		if ( letter == 'ô' )  return 'Ô';

-		if ( letter == 'ö' )  return 'Ö';

-		if ( letter == 'õ' )  return 'Õ';

-

-		if ( letter == 'ú' )  return 'Ú';

-		if ( letter == 'ù' )  return 'Ù';

-		if ( letter == 'û' )  return 'Û';

-		if ( letter == 'ü' )  return 'Ü';

-

-		if ( letter == 'ç' )  return 'Ç';

-

-		if ( letter == 'ñ' )  return 'Ñ';

-	}

-

-	return toupper(letter);

-}

-

-// Returns a lowercase letter.

-

-char RetToLower(char letter)

-{

-	if ( letter < 0 )

-	{

-		if ( letter == 'Á' )  return 'á';

-		if ( letter == 'À' )  return 'à';

-		if ( letter == 'Â' )  return 'â';

-		if ( letter == 'Ä' )  return 'ä';

-		if ( letter == 'Ã' )  return 'ã';

-

-		if ( letter == 'É' )  return 'é';

-		if ( letter == 'È' )  return 'è';

-		if ( letter == 'Ê' )  return 'ê';

-		if ( letter == 'Ë' )  return 'ë';

-

-		if ( letter == 'Í' )  return 'í';

-		if ( letter == 'Ì' )  return 'ì';

-		if ( letter == 'Î' )  return 'î';

-		if ( letter == 'Ï' )  return 'ï';

-

-		if ( letter == 'Ó' )  return 'ó';

-		if ( letter == 'Ò' )  return 'ò';

-		if ( letter == 'Ô' )  return 'ô';

-		if ( letter == 'Ö' )  return 'ö';

-		if ( letter == 'Õ' )  return 'õ';

-

-		if ( letter == 'Ú' )  return 'ú';

-		if ( letter == 'Ù' )  return 'ù';

-		if ( letter == 'Û' )  return 'û';

-		if ( letter == 'Ü' )  return 'ü';

-

-		if ( letter == 'Ç' )  return 'ç';

-

-		if ( letter == 'Ñ' )  return 'ñ';

-	}

-

-	return tolower(letter);

-}

-

-

-// Converting time to string.

-

-void TimeToAscii(time_t time, char *buffer)

-{

-	struct tm	when;

-	int			year;

-

-	when = *localtime(&time);

-	year = when.tm_year+1900;

-	if ( year < 2000 )  year -= 1900;

-	else                year -= 2000;

-#if _FRENCH

-	sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",

-					when.tm_mday, when.tm_mon+1, year,

-					when.tm_hour, when.tm_min);

-#endif

-#if _GERMAN | _WG

-	sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",

-					when.tm_mday, when.tm_mon+1, year,

-					when.tm_hour, when.tm_min);

-#endif

-#if _ENGLISH

-	char		format[10];

-	int			hour;

-

-	hour = when.tm_hour;  // 0..23

-	if ( hour < 12 )  // morning?

-	{

-		strcpy(format, "am");

-	}

-	else	// afternoon?

-	{

-		strcpy(format, "pm");

-		hour -= 12;  // 0..11

-	}

-	if ( hour == 0 )  hour = 12;

-

-	sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d %s",

-					when.tm_mon+1, when.tm_mday, year,

-					hour, when.tm_min, format);

-#endif

-#if _POLISH

-	sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",

-					when.tm_mday, when.tm_mon+1, year,

-					when.tm_hour, when.tm_min);

-#endif

-}

-

-

-// Makes a copy of a file.

-

-bool Xfer(char* src, char* dst)

-{

-	FILE	*fs, *fd;

-	char	*buffer;

-	int		len;

-

-	fs = fopen(src, "rb");

-	if ( fs == 0 )

-	{

-		return false;

-	}

-

-	fd = fopen(dst, "wb");

-	if ( fd == 0 )

-	{

-		fclose(fs);

-		return false;

-	}

-

-	buffer = (char*)malloc(10000);

-

-	while ( true )

-	{

-		len = fread(buffer, 1, 10000, fs);

-		if ( len == 0 )  break;

-		fwrite(buffer, 1, len, fd);

-	}

-

-	free(buffer);

-	fclose(fs);

-	fclose(fd);

-	return true;

-}

-

-// Copy a file into the temporary folder.

-

-bool CopyFileToTemp(char* filename)

-{

-	char	src[100];

-	char	dst[100];

-	char	save[100];

-

-	UserDir(src, filename, "textures");

-

-	strcpy(save, g_userDir);

-	strcpy(g_userDir, "temp");

-	UserDir(dst, filename, "textures");

-	strcpy(g_userDir, save);

-

-	_mkdir("temp");

-	if ( !Xfer(src, dst) )  return false;

-

-	strcpy(filename, dst);

-	return true;

-}

-

-// Copy a list of numbered files into the temporary folder.

-

-bool CopyFileListToTemp(char* filename, int* list, int total)

-{

-	char	name[100];

-	char	ext[10];

-	char	file[100];

-	char	save[100];

-	char*	p;

-	int		i;

-

-	strcpy(name, filename);

-	p = strchr(name, '.');

-	if ( p == 0 )

-	{

-		strcpy(ext, ".tga");

-	}

-	else

-	{

-		strcpy(ext, p);

-		*p = 0;

-	}

-

-	for ( i=0 ; i<total ; i++ )

-	{

-		sprintf(file, "%s%.3d%s", name, list[i], ext);  // nameNNN.ext

-		CopyFileToTemp(file);

-	}

-

-	strcpy(save, g_userDir);

-	strcpy(g_userDir, "temp");

-	UserDir(file, filename, "textures");

-	strcpy(filename, file);

-	strcpy(g_userDir, save);

-

-	return true;

-}

-

-

-// Adds an extension to file, if doesn't already one.

-

-void AddExt(char* filename, char* ext)

-{

-	if ( strchr(filename, '.') != 0 )  return;  // already an extension?

-	strcat(filename, ext);

-}

-

-

-// Specifies the user folder.

-

-void UserDir(bool bUser, char* dir)

-{

-	g_bUserDir = bUser;

-	strcpy(g_userDir, dir);

-}

-

-// Replaces the string %user% by the user folder.

-// in:	dir = "%user%toto.txt"

-//		def = "abc\"

-// out:	buffer = "abc\toto.txt"

-

-void UserDir(char* buffer, char* dir, char* def)

-{

-	char	ddir[100];

-	char*	add;

-

-	if ( strstr(dir, "\\") == 0 && def[0] != 0 )

-	{

-		sprintf(ddir, "%s\\%s", def, dir);

-	}

-	else

-	{

-		strcpy(ddir, dir);

-	}

-	dir = ddir;

-

-	while ( *dir != 0 )

-	{

-		if ( dir[0] == '%' &&

-			 dir[1] == 'u' &&

-			 dir[2] == 's' &&

-			 dir[3] == 'e' &&

-			 dir[4] == 'r' &&

-			 dir[5] == '%' )  // %user% ?

-		{

-			if ( g_bUserDir )  add = g_userDir;

-			else               add = def;

-

-			while ( *add != 0 )

-			{

-				*buffer++ = *add++;

-			}

-			dir += 6;  // jumps to %user%

-			continue;

-		}

-

-		*buffer++ = *dir++;

-	}

-	*buffer = 0;

-}

-

-

-// Returns the letter corresponding to the language.

-

-char RetLanguageLetter()

-{

-#if _FRENCH

-	return 'F';

-#endif

-#if _ENGLISH

-	return 'E';

-#endif

-#if _GERMAN | _WG

-	return 'D';

-#endif

-#if _POLISH

-	return 'P';

-#endif

-	return 'X';

-}

-

+// * This file is part of the COLOBOT source code
+// * Copyright (C) 2001-2008, Daniel ROUX & EPSITEC SA, www.epsitec.ch
+// *
+// * This program is free software: you can redistribute it and/or modify
+// * it under the terms of the GNU General Public License as published by
+// * the Free Software Foundation, either version 3 of the License, or
+// * (at your option) any later version.
+// *
+// * This program is distributed in the hope that it will be useful,
+// * but WITHOUT ANY WARRANTY; without even the implied warranty of
+// * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// * GNU General Public License for more details.
+// *
+// * You should have received a copy of the GNU General Public License
+// * along with this program. If not, see  http://www.gnu.org/licenses/.
+
+// misc.cpp
+
+
+#include <math.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <direct.h>
+#include <time.h>
+#include <d3d.h>
+
+#include "common/struct.h"
+#include "old/d3dengine.h"
+#include "old/d3dmath.h"
+#include "old/d3dutil.h"
+#include "common/language.h"
+#include "common/event.h"
+#include "common/misc.h"
+
+
+
+CMetaFile   g_metafile;
+
+static EventMsg     g_uniqueEventMsg = EVENT_USER;
+static bool         g_bUserDir = false;
+static char         g_userDir[100] = "";
+
+
+
+// Gives a single user event.
+
+EventMsg GetUniqueEventMsg()
+{
+    int     i;
+
+    i = (int)g_uniqueEventMsg+1;
+    g_uniqueEventMsg = (EventMsg)i;
+    return g_uniqueEventMsg;
+}
+
+
+
+// Returns a non-accented letter.
+
+char RetNoAccent(char letter)
+{
+    if ( letter < 0 )
+    {
+        if ( letter == 'á' ||
+             letter == 'à' ||
+             letter == 'â' ||
+             letter == 'ä' ||
+             letter == 'ã' )  return 'a';
+
+        if ( letter == 'é' ||
+             letter == 'è' ||
+             letter == 'ê' ||
+             letter == 'ë' )  return 'e';
+
+        if ( letter == 'í' ||
+             letter == 'ì' ||
+             letter == 'î' ||
+             letter == 'ï' )  return 'i';
+
+        if ( letter == 'ó' ||
+             letter == 'ò' ||
+             letter == 'ô' ||
+             letter == 'ö' ||
+             letter == 'õ' )  return 'o';
+
+        if ( letter == 'ú' ||
+             letter == 'ù' ||
+             letter == 'û' ||
+             letter == 'ü' )  return 'u';
+
+        if ( letter == 'ç' )  return 'c';
+
+        if ( letter == 'ñ' )  return 'n';
+
+        if ( letter == 'Á' ||
+             letter == 'À' ||
+             letter == 'Â' ||
+             letter == 'Ä' ||
+             letter == 'Ã' )  return 'A';
+
+        if ( letter == 'É' ||
+             letter == 'È' ||
+             letter == 'Ê' ||
+             letter == 'Ë' )  return 'E';
+
+        if ( letter == 'Í' ||
+             letter == 'Ì' ||
+             letter == 'Î' ||
+             letter == 'Ï' )  return 'I';
+
+        if ( letter == 'Ó' ||
+             letter == 'Ò' ||
+             letter == 'Ô' ||
+             letter == 'Ö' ||
+             letter == 'Õ' )  return 'O';
+
+        if ( letter == 'Ú' ||
+             letter == 'Ù' ||
+             letter == 'Û' ||
+             letter == 'Ü' )  return 'U';
+
+        if ( letter == 'Ç' )  return 'C';
+
+        if ( letter == 'Ñ' )  return 'N';
+    }
+
+    return letter;
+}
+
+// Returns an uppercase letter.
+
+char RetToUpper(char letter)
+{
+    if ( letter < 0 )
+    {
+        if ( letter == 'á' )  return 'Á';
+        if ( letter == 'à' )  return 'À';
+        if ( letter == 'â' )  return 'Â';
+        if ( letter == 'ä' )  return 'Ä';
+        if ( letter == 'ã' )  return 'Ã';
+
+        if ( letter == 'é' )  return 'É';
+        if ( letter == 'è' )  return 'È';
+        if ( letter == 'ê' )  return 'Ê';
+        if ( letter == 'ë' )  return 'Ë';
+
+        if ( letter == 'í' )  return 'Í';
+        if ( letter == 'ì' )  return 'Ì';
+        if ( letter == 'î' )  return 'Î';
+        if ( letter == 'ï' )  return 'Ï';
+
+        if ( letter == 'ó' )  return 'Ó';
+        if ( letter == 'ò' )  return 'Ò';
+        if ( letter == 'ô' )  return 'Ô';
+        if ( letter == 'ö' )  return 'Ö';
+        if ( letter == 'õ' )  return 'Õ';
+
+        if ( letter == 'ú' )  return 'Ú';
+        if ( letter == 'ù' )  return 'Ù';
+        if ( letter == 'û' )  return 'Û';
+        if ( letter == 'ü' )  return 'Ü';
+
+        if ( letter == 'ç' )  return 'Ç';
+
+        if ( letter == 'ñ' )  return 'Ñ';
+    }
+
+    return toupper(letter);
+}
+
+// Returns a lowercase letter.
+
+char RetToLower(char letter)
+{
+    if ( letter < 0 )
+    {
+        if ( letter == 'Á' )  return 'á';
+        if ( letter == 'À' )  return 'à';
+        if ( letter == 'Â' )  return 'â';
+        if ( letter == 'Ä' )  return 'ä';
+        if ( letter == 'Ã' )  return 'ã';
+
+        if ( letter == 'É' )  return 'é';
+        if ( letter == 'È' )  return 'è';
+        if ( letter == 'Ê' )  return 'ê';
+        if ( letter == 'Ë' )  return 'ë';
+
+        if ( letter == 'Í' )  return 'í';
+        if ( letter == 'Ì' )  return 'ì';
+        if ( letter == 'Î' )  return 'î';
+        if ( letter == 'Ï' )  return 'ï';
+
+        if ( letter == 'Ó' )  return 'ó';
+        if ( letter == 'Ò' )  return 'ò';
+        if ( letter == 'Ô' )  return 'ô';
+        if ( letter == 'Ö' )  return 'ö';
+        if ( letter == 'Õ' )  return 'õ';
+
+        if ( letter == 'Ú' )  return 'ú';
+        if ( letter == 'Ù' )  return 'ù';
+        if ( letter == 'Û' )  return 'û';
+        if ( letter == 'Ü' )  return 'ü';
+
+        if ( letter == 'Ç' )  return 'ç';
+
+        if ( letter == 'Ñ' )  return 'ñ';
+    }
+
+    return tolower(letter);
+}
+
+
+// Converting time to string.
+
+void TimeToAscii(time_t time, char *buffer)
+{
+    struct tm   when;
+    int         year;
+
+    when = *localtime(&time);
+    year = when.tm_year+1900;
+    if ( year < 2000 )  year -= 1900;
+    else                year -= 2000;
+#if _FRENCH
+    sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
+                    when.tm_mday, when.tm_mon+1, year,
+                    when.tm_hour, when.tm_min);
+#endif
+#if _GERMAN | _WG
+    sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
+                    when.tm_mday, when.tm_mon+1, year,
+                    when.tm_hour, when.tm_min);
+#endif
+#if _ENGLISH
+    char        format[10];
+    int         hour;
+
+    hour = when.tm_hour;  // 0..23
+    if ( hour < 12 )  // morning?
+    {
+        strcpy(format, "am");
+    }
+    else    // afternoon?
+    {
+        strcpy(format, "pm");
+        hour -= 12;  // 0..11
+    }
+    if ( hour == 0 )  hour = 12;
+
+    sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d %s",
+                    when.tm_mon+1, when.tm_mday, year,
+                    hour, when.tm_min, format);
+#endif
+#if _POLISH
+    sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
+                    when.tm_mday, when.tm_mon+1, year,
+                    when.tm_hour, when.tm_min);
+#endif
+}
+
+
+// Makes a copy of a file.
+
+bool Xfer(char* src, char* dst)
+{
+    FILE    *fs, *fd;
+    char    *buffer;
+    int     len;
+
+    fs = fopen(src, "rb");
+    if ( fs == 0 )
+    {
+        return false;
+    }
+
+    fd = fopen(dst, "wb");
+    if ( fd == 0 )
+    {
+        fclose(fs);
+        return false;
+    }
+
+    buffer = (char*)malloc(10000);
+
+    while ( true )
+    {
+        len = fread(buffer, 1, 10000, fs);
+        if ( len == 0 )  break;
+        fwrite(buffer, 1, len, fd);
+    }
+
+    free(buffer);
+    fclose(fs);
+    fclose(fd);
+    return true;
+}
+
+// Copy a file into the temporary folder.
+
+bool CopyFileToTemp(char* filename)
+{
+    char    src[100];
+    char    dst[100];
+    char    save[100];
+
+    UserDir(src, filename, "textures");
+
+    strcpy(save, g_userDir);
+    strcpy(g_userDir, "temp");
+    UserDir(dst, filename, "textures");
+    strcpy(g_userDir, save);
+
+    _mkdir("temp");
+    if ( !Xfer(src, dst) )  return false;
+
+    strcpy(filename, dst);
+    return true;
+}
+
+// Copy a list of numbered files into the temporary folder.
+
+bool CopyFileListToTemp(char* filename, int* list, int total)
+{
+    char    name[100];
+    char    ext[10];
+    char    file[100];
+    char    save[100];
+    char*   p;
+    int     i;
+
+    strcpy(name, filename);
+    p = strchr(name, '.');
+    if ( p == 0 )
+    {
+        strcpy(ext, ".tga");
+    }
+    else
+    {
+        strcpy(ext, p);
+        *p = 0;
+    }
+
+    for ( i=0 ; i<total ; i++ )
+    {
+        sprintf(file, "%s%.3d%s", name, list[i], ext);  // nameNNN.ext
+        CopyFileToTemp(file);
+    }
+
+    strcpy(save, g_userDir);
+    strcpy(g_userDir, "temp");
+    UserDir(file, filename, "textures");
+    strcpy(filename, file);
+    strcpy(g_userDir, save);
+
+    return true;
+}
+
+
+// Adds an extension to file, if doesn't already one.
+
+void AddExt(char* filename, char* ext)
+{
+    if ( strchr(filename, '.') != 0 )  return;  // already an extension?
+    strcat(filename, ext);
+}
+
+
+// Specifies the user folder.
+
+void UserDir(bool bUser, char* dir)
+{
+    g_bUserDir = bUser;
+    strcpy(g_userDir, dir);
+}
+
+// Replaces the string %user% by the user folder.
+// in:  dir = "%user%toto.txt"
+//      def = "abc\"
+// out: buffer = "abc\toto.txt"
+
+void UserDir(char* buffer, char* dir, char* def)
+{
+    char    ddir[100];
+    char*   add;
+
+    if ( strstr(dir, "\\") == 0 && def[0] != 0 )
+    {
+        sprintf(ddir, "%s\\%s", def, dir);
+    }
+    else
+    {
+        strcpy(ddir, dir);
+    }
+    dir = ddir;
+
+    while ( *dir != 0 )
+    {
+        if ( dir[0] == '%' &&
+             dir[1] == 'u' &&
+             dir[2] == 's' &&
+             dir[3] == 'e' &&
+             dir[4] == 'r' &&
+             dir[5] == '%' )  // %user% ?
+        {
+            if ( g_bUserDir )  add = g_userDir;
+            else               add = def;
+
+            while ( *add != 0 )
+            {
+                *buffer++ = *add++;
+            }
+            dir += 6;  // jumps to %user%
+            continue;
+        }
+
+        *buffer++ = *dir++;
+    }
+    *buffer = 0;
+}
+
+
+// Returns the letter corresponding to the language.
+
+char RetLanguageLetter()
+{
+#if _FRENCH
+    return 'F';
+#endif
+#if _ENGLISH
+    return 'E';
+#endif
+#if _GERMAN | _WG
+    return 'D';
+#endif
+#if _POLISH
+    return 'P';
+#endif
+    return 'X';
+}
+