hedgewars/uGears.pas
changeset 4833 204d26924532
parent 4830 c5ddc3e6c8a4
child 4834 3763a386a427
--- a/hedgewars/uGears.pas	Mon Jan 10 19:15:12 2011 -0500
+++ b/hedgewars/uGears.pas	Wed Jan 12 22:01:15 2011 +0300
@@ -1096,7 +1096,7 @@
 
 i:= 0;
 Gear:= PGear(1);
-while (i < cLandMines) and (Gear <> nil) do
+while (i < cLandMines) and {(Gear <> nil)} do // disable this check until better solution found
     begin
     Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
     FindPlace(Gear, false, 0, LAND_WIDTH);
@@ -1105,7 +1105,7 @@
 
 i:= 0;
 Gear:= PGear(1);
-while (i < cExplosives) and (Gear <> nil) do
+while (i < cExplosives){ and (Gear <> nil)} do
     begin
     Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
     FindPlace(Gear, false, 0, LAND_WIDTH);