hedgewars/hwengine.pas
changeset 3046 d54b2c718971
parent 3045 41732f986b4f
child 3047 2847f4f2ce67
equal deleted inserted replaced
3045:41732f986b4f 3046:d54b2c718971
   568     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   568     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   569     
   569     
   570     GetParams();
   570     GetParams();
   571     Randomize();
   571     Randomize();
   572 
   572 
   573     if GameType = gmtLandPreview then GenLandPreview()
   573     if GameType = gmtLandPreview then
       
   574         begin
       
   575 {$IFDEF HWLIBRARY}
       
   576         // initEverything();   TODO - Koda, please check to see if this is appropriate here
       
   577 {$ENDIF}
       
   578         GenLandPreview();
       
   579         // freeEverything()    TODO - Koda, please check if this is also needed here. 
       
   580         end
   574     else if GameType = gmtSyntax then DisplayUsage()
   581     else if GameType = gmtSyntax then DisplayUsage()
   575     else Game();
   582     else Game();
   576     freeEverything();
       
   577     
   583     
   578     if GameType = gmtSyntax then
   584     if GameType = gmtSyntax then
   579         ExitCode:= 1
   585         ExitCode:= 1
   580     else
   586     else
   581         ExitCode:= 0;
   587         ExitCode:= 0;