hedgewars/hwengine.dpr
changeset 80 3c3dc6a148ca
parent 79 29b477319854
child 81 d74e0e914b50
--- a/hedgewars/hwengine.dpr	Sun Jul 16 08:13:51 2006 +0000
+++ b/hedgewars/hwengine.dpr	Thu Jul 20 20:11:32 2006 +0000
@@ -55,7 +55,8 @@
   uLand in 'uLand.pas',
   uLandTemplates in 'uLandTemplates.pas',
   uLandObjects in 'uLandObjects.pas',
-  uLandGraphics in 'uLandGraphics.pas';
+  uLandGraphics in 'uLandGraphics.pas',
+  uLocale in 'uLocale.pas';
 
 {$INCLUDE options.inc}
 
@@ -170,7 +171,7 @@
 {$ELSE}
 begin
 {$ENDIF}
-if ParamCount=6 then
+if ParamCount = 7 then
    begin
    val(ParamStr(1), cScreenWidth, c);
    val(ParamStr(2), cScreenHeight, c);
@@ -179,6 +180,7 @@
    val(ParamStr(4), ipcPort, c);
    cFullScreen:= ParamStr(5) = '1';
    isSoundEnabled:= ParamStr(6) = '1';
+   cLocaleFName:= ParamStr(7);
    end else OutError(errmsgShouldntRun, true);
 end;
 
@@ -216,7 +218,10 @@
 InitKbdKeyTable;
 InitIPC;
 WriteLnToConsole(msgGettingConfig);
-SendIPCAndWaitReply('C');        // запрос конфига игры
+
+LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName);
+
+SendIPCAndWaitReply('C');        // ask for game config
 InitTeams;
 
 if isSoundEnabled then InitSound;