hedgewars/uGears.pas
changeset 4043 4bf039d637df
parent 4037 0f8ec120e90d
child 4047 6c07a302b7c0
--- a/hedgewars/uGears.pas	Sat Oct 30 22:48:05 2010 -0400
+++ b/hedgewars/uGears.pas	Sat Oct 30 22:53:23 2010 -0400
@@ -1203,13 +1203,12 @@
 
 if ((GameFlags and gfForts) = 0) then
     begin
-    // TODO: exclude each other or allow both, mines and explosives, on same map?
-    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
+    if ((GameFlags and gfMines) <> 0) then
+        for i:= 0 to Pred(cLandMines) do
+            begin
+            Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
+            FindPlace(Gear, false, 0, LAND_WIDTH);
+            end;
     for i:= 0 to Pred(cExplosives) do
         begin
         Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);