--- a/hedgewars/GSHandlers.inc Sun Jul 03 18:22:07 2011 +0200
+++ b/hedgewars/GSHandlers.inc Sun Jul 03 12:53:39 2011 -0400
@@ -1868,7 +1868,7 @@
i: LongInt;
particle: PVisualGear;
begin
- if not TestCollisionYwithGear(Gear, 1) and (Gear^.dY.QWordValue = 0) then SetLittle(Gear^.dY);
+ if (Gear^.dY.QWordValue = 0) and (Gear^.dY.QWordValue = 0) and not TestCollisionYwithGear(Gear, 1) then SetLittle(Gear^.dY);
Gear^.State := Gear^.State or gstAnimation;
if ((Gear^.dX.QWordValue <> 0) or (Gear^.dY.QWordValue <> 0)) then
begin