anchor.diff:  function TAISquad.PlanPath(var aActualPosition, aTargetPosition: TKMPoint; aOrderAttack: Boolean = False): Boolean;
   const
     SQR_TARGET_REACHED_TOLERANCE = 5*5;
  -  SQR_TARGET_REACHED_RANGED = 9*9;
  +  SQR_TARGET_REACHED_RANGED = 14*14; // This should be more than maximal range (11*11)
   var
     InitPolygon, ClosestPolygon, Distance: Word;
     I: Integer;
  
positive.code:     FinPos := fTargetHouse.GetPosition;
      if PlanPath(ActPos, FinPos, True) then
        Group.OrderWalk(FinPos, True, FinalPosition.Dir)
      else if fTargetChanged then
      begin
        fTargetChanged := False;
        Group.OrderAttackHouse(fTargetHouse, True);
      end;
  
negative.code: // Update state of squad (group orders)
  procedure TAISquad.UpdateState(aTick: Cardinal);
  const
    RANGE_AIM_DELAY = 80;
    HOUSE_AIM_DELAY = 1000;
  var
    ActPos, FinPos: TKMPoint;
  begin
  