hedgewars/uCollisions.pas
changeset 514 fb8ba88a83c3
parent 513 69e06d710d46
child 517 ba560c17c24c
--- a/hedgewars/uCollisions.pas	Mon May 14 18:58:54 2007 +0000
+++ b/hedgewars/uCollisions.pas	Fri May 18 16:40:43 2007 +0000
@@ -201,7 +201,7 @@
     with cinfos[i] do
       if (Gear <> cGear) and
          (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and
-         ((mx > x) xor (Dir > 0)) then
+         ((mx > x) xor (Dir > 0)) then  // FIXME: Check Gear.Kind
              begin
              Gear^.dX:= Gear^.dX {* _0_6};
              Gear^.dY:= Gear^.dY {* _0_6};