equal
deleted
inserted
replaced
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} |