Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GSHandlers.inc
changeset 5378 f633d57b971e
parent 5374 7a7ce10bee53
child 5402 c49a84b04d22 
--- 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
hedgewars