hedgewars/uLandGraphics.pas
changeset 2695 ed789a7ef68d
parent 2666 2b8c8f16421e
child 2716 b9ca1bfca24f
--- a/hedgewars/uLandGraphics.pas	Thu Jan 14 16:38:43 2010 +0000
+++ b/hedgewars/uLandGraphics.pas	Thu Jan 14 16:46:50 2010 +0000
@@ -549,9 +549,9 @@
 
 function SweepDirty: boolean;
 var x, y, xx, yy: LongInt;
-    Result, updateBlock, resweep: boolean;
+    bRes, updateBlock, resweep: boolean;
 begin
-Result:= false;
+bRes:= false;
 
 for y:= 0 to LAND_HEIGHT div 32 - 1 do
 	begin
@@ -569,7 +569,7 @@
                     for xx:= x * 32 to x * 32 + 31 do
                         if Despeckle(xx, yy) then
                             begin
-                            Result:= true;
+                            bRes:= true;
                             updateBlock:= true;
                             resweep:= true;
                             end;
@@ -580,7 +580,7 @@
 		end;
 	end;
 
-SweepDirty:= Result
+SweepDirty:= bRes;
 end;
 
 // Return true if outside of land or not the value tested, used right now for some X/Y movement that does not use normal hedgehog movement in GSHandlers.inc