hedgewars/uAIMisc.pas
changeset 8953 d0e5c1002fe1
parent 8952 a6ee1e7310fb
child 8954 1e8b390ab011
equal deleted inserted replaced
8952:a6ee1e7310fb 8953:d0e5c1002fe1
   731 y:= hwRound(Me^.Y);
   731 y:= hwRound(Me^.Y);
   732 rate:= 0;
   732 rate:= 0;
   733 
   733 
   734 for i:= 0 to Pred(Targets.Count) do
   734 for i:= 0 to Pred(Targets.Count) do
   735     with Targets.ar[i] do
   735     with Targets.ar[i] do
   736       if matters then
       
   737          // hammer hit radius is 8, shift is 10
   736          // hammer hit radius is 8, shift is 10
   738         if abs(Point.x - x) + abs(Point.y - y) < 18 then
   737       if matters and (Kind = gtHedgehog) and (abs(Point.x - x) + abs(Point.y - y) < 18) then
   739             begin
   738             begin
   740             r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));
   739             r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));
   741 
   740 
   742             if r <= 18 then
   741             if r <= 18 then
   743                 if Score > 0 then
   742                 if Score > 0 then