hedgewars/uGears.pas
changeset 4003 ca0600ab38bf
parent 3999 411e71912f4c
child 4007 c76c895825ab
--- a/hedgewars/uGears.pas	Wed Oct 27 01:33:38 2010 +0200
+++ b/hedgewars/uGears.pas	Fri Oct 29 00:24:17 2010 +0200
@@ -1201,18 +1201,17 @@
 if ((GameFlags and gfForts) = 0) then
     begin
     // TODO: exclude each other or allow both, mines and explosives, on same map?
-    if ((GameFlags and gfMines) <> 0) then
-        for i:= 0 to Pred(cLandAdditions) do
-            begin
-            Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
-            FindPlace(Gear, false, 0, LAND_WIDTH);
-            end;
-//  No game flag for this for now
-        for i:= 0 to Pred(cExplosives) do
-            begin
-            Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
-            FindPlace(Gear, false, 0, LAND_WIDTH);
-            end;
+    for i:= 0 to Pred(cLandMines) do
+        begin
+        Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
+        FindPlace(Gear, false, 0, LAND_WIDTH);
+        end;
+    // No game flag for this for now
+    for i:= 0 to Pred(cExplosives) do
+        begin
+        Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
+        FindPlace(Gear, false, 0, LAND_WIDTH);
+        end;
     end;
 
 if (GameFlags and gfLowGravity) <> 0 then