Fix drill bug
authorunc0rr
Fri, 21 Mar 2008 20:41:23 +0000
changeset 818 635e58295079
parent 817 7069f18517e9
child 819 129cdeabc9d4
Fix drill bug
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Fri Mar 21 20:34:48 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Fri Mar 21 20:41:23 2008 +0000
@@ -215,7 +215,8 @@
     inc(y, dY)
     end;
 
-UpdateLandTexture(0, 1024)
+
+UpdateLandTexture(0, 1023)
 end;
 
 //
@@ -279,8 +280,8 @@
     ny:= ny + dX;
     end;
 
-t:= max(stY - HalfWidth * 3 div 2 - 4, 0);
-ty:= min(stY + HalfWidth * 3 div 2 + 4, 1023) - t;
+t:= max(stY - HalfWidth * 2 - 4, 0);
+ty:= min(stY + HalfWidth * 2 + 4, 1023) - t;
 UpdateLandTexture(t, ty)
 end;