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/uCollisions.pas
changeset 855 8842c71d16bf
parent 839 1493f697d1bb
child 883 07a568ba44e0 
--- a/hedgewars/uCollisions.pas	Mon Apr 21 16:51:14 2008 +0000
+++ b/hedgewars/uCollisions.pas	Mon Apr 21 18:43:07 2008 +0000
@@ -200,7 +200,7 @@
    for i:= 0 to Pred(Count) do
     with cinfos[i] do
       if (Gear <> cGear) and
-         (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and
+         (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and
          ((mx > x) xor (Dir > 0)) then
          if (cGear^.Kind in [gtHedgehog, gtMine]) then
              begin
@@ -248,7 +248,7 @@
    for i:= 0 to Pred(Count) do
     with cinfos[i] do
       if (Gear <> cGear) and
-         (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and
+         (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and
          ((my > y) xor (Dir > 0)) then
          if (cGear^.Kind in [gtHedgehog, gtMine]) then
              begin
hedgewars