hedgewars/uWorld.pas
changeset 2762 2fbc8d35eb52
parent 2747 7889a3a9724f
child 2765 8a5685581aeb
--- a/hedgewars/uWorld.pas	Fri Feb 05 13:47:25 2010 +0000
+++ b/hedgewars/uWorld.pas	Mon Feb 08 03:03:18 2010 +0000
@@ -167,7 +167,6 @@
 						DrawSprite(sprTurnsLeft, x + g * 33 + 51, y + 17, l);
 						end else
 						DrawSprite(sprAMAmmos, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);
-
 					if (Slot = i)
 					and (CursorPoint.X >= x + g * 33 + 35)
 					and (CursorPoint.X < x + g * 33 + 68) then
@@ -701,7 +700,7 @@
 	CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
 	end;
 
-if (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
+if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
 	if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
 		begin
 		FollowGear:= nil;