hedgewars/uLand.pas
changeset 13272 5984e8c6cbeb
parent 12758 49c31d8cc740
child 13499 c41b16ac2e05
--- a/hedgewars/uLand.pas	Thu Mar 22 23:27:11 2018 +0100
+++ b/hedgewars/uLand.pas	Fri Mar 23 03:17:01 2018 +0100
@@ -717,10 +717,6 @@
 
     LoadThemeConfig;
 
-    // is this not needed any more? lets hope setlength sets also 0s
-    //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then
-    //    FillChar(Land,SizeOf(TCollisionArray),0);*)
-
     if cPathz[ptMapCurrent] <> '' then
         begin
         map:= cPathz[ptMapCurrent] + '/map.png';
@@ -741,7 +737,7 @@
             mgMaze  : begin ResizeLand(4096,2048); GenMaze; end;
             mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end;
             mgDrawn : GenDrawnMap;
-            mgForts : begin GameFlags:= (GameFlags or gfForts or gfDivideTeams); MakeFortsMap(); end;
+            mgForts : begin GameFlags:= (GameFlags or gfDivideTeams); MakeFortsMap(); end;
         else
             OutError('Unknown mapgen', true);
         end;
@@ -835,7 +831,7 @@
 if (GameFlags and gfDisableGirders) <> 0 then
     hasGirders:= false;
 
-if (GameFlags and gfForts = 0) and (maskOnly or (cPathz[ptMapCurrent] = '')) then
+if (cMapGen <> mgForts) and (maskOnly or (cPathz[ptMapCurrent] = '')) then
     AddObjects
 
 else