hedgewars/hwengine.pas
changeset 3914 c5c903c6225b
parent 3904 22e4d74240e5
child 3922 44804043b691
equal deleted inserted replaced
3913:f9cb69eecefe 3914:c5c903c6225b
   229     cAltDamage:= gameArgs[8] = '1';
   229     cAltDamage:= gameArgs[8] = '1';
   230     //gameArgs[9] unused
   230     //gameArgs[9] unused
   231     recordFileName:= gameArgs[10];
   231     recordFileName:= gameArgs[10];
   232 {$ENDIF}
   232 {$ENDIF}
   233 
   233 
       
   234     cLogfileBase:= 'game';
   234     initEverything(true);
   235     initEverything(true);
   235     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   236     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   236 {$IFDEF DEBUGFILE}
   237 {$IFDEF DEBUGFILE}
   237     AddFileLog('Prefix: "' + PathPrefix +'"');
   238     AddFileLog('Prefix: "' + PathPrefix +'"');
   238     for i:= 0 to ParamCount do
   239     for i:= 0 to ParamCount do
   393 
   394 
   394 /////////////////////////
   395 /////////////////////////
   395 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};
   396 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};
   396 var Preview: TPreview;
   397 var Preview: TPreview;
   397 begin
   398 begin
       
   399     cLogfileBase:= 'preview';
   398     initEverything(false);
   400     initEverything(false);
   399 {$IFDEF HWLIBRARY}
   401 {$IFDEF HWLIBRARY}
   400     WriteLnToConsole('Preview connecting on port ' + inttostr(port));
   402     WriteLnToConsole('Preview connecting on port ' + inttostr(port));
   401     ipcPort:= port;
   403     ipcPort:= port;
   402 {$ENDIF}
   404 {$ENDIF}