hedgewars/uGears.pas
changeset 10820 e86ba0e821a6
parent 10818 f642a28cab0c
child 10829 158b5dd6b3c9
--- a/hedgewars/uGears.pas	Sat Feb 14 17:34:12 2015 -0500
+++ b/hedgewars/uGears.pas	Sat Feb 14 17:47:28 2015 -0500
@@ -632,9 +632,9 @@
        (TestCollisionYwithGear(Gear, 1) = 0) then
         begin
         t:= 0;
-        h:= 0;
         while (t < TeamsCount) and (p = 0) do
             begin
+            h:= 0;
             with TeamsArray[t]^ do
                 while (h < cMaxHHIndex) and (p = 0) do
                     begin
@@ -647,7 +647,7 @@
                             (hwRound(hwSqr(rdx) + hwSqr(rdy)) < sqr(Gear^.Angle))) then
                             begin
 // Debug line. Remove later
-AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')');
+// AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')');
 
                             p:= 1
                             end