hedgewars/uLand.pas
changeset 5718 e74de0528ef4
parent 5717 6d513913b7a9
child 5719 0ed1f543f301
--- a/hedgewars/uLand.pas	Wed Aug 31 14:47:01 2011 -0400
+++ b/hedgewars/uLand.pas	Wed Aug 31 15:06:03 2011 -0400
@@ -1226,7 +1226,7 @@
 procedure DrawBottomBorder; // broken out from other borders for doing a floor-only map, or possibly updating bottom during SD
 var x, y, w, c: Longword;
 begin
-for w:= 0 to 5 do // width of 3 allowed hogs to be knocked through with grenade
+for w:= 0 to 23 do
     for x:= leftX to rightX do
         begin
         Land[cWaterLine-1 - w, x]:= lfIndestructible;
@@ -1239,7 +1239,7 @@
             LandPixels[cWaterLine-1 - w, x]:= c
         else
             LandPixels[(cWaterLine-1 - w) div 2, x div 2]:= c
-        end;
+        end
 end;
 
 procedure GenMap;