hedgewars/hwengine.pas
changeset 3078 07d4ca3afce3
parent 3064 7458ec3666c3
child 3153 adfe8a91658f
equal deleted inserted replaced
3077:8bf3b6d9839c 3078:07d4ca3afce3
   575     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   575     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   576     
   576     
   577     GetParams();
   577     GetParams();
   578     Randomize();
   578     Randomize();
   579 
   579 
   580     if GameType = gmtLandPreview then
   580     if GameType = gmtLandPreview then GenLandPreview()
   581         begin
       
   582         GenLandPreview();
       
   583         freeEverything(); 
       
   584         end
       
   585     else if GameType = gmtSyntax then DisplayUsage()
   581     else if GameType = gmtSyntax then DisplayUsage()
   586     else Game();
   582     else Game();
   587     
   583     
   588     freeEverything;
   584     freeEverything();
   589     if GameType = gmtSyntax then
   585     if GameType = gmtSyntax then
   590         ExitCode:= 1
   586         ExitCode:= 1
   591     else
   587     else
   592         ExitCode:= 0;
   588         ExitCode:= 0;
   593 {$ENDIF}
   589 {$ENDIF}