anchor.diff:        CPFExceptionFmt('Incorrect map kind: %d, high value mkHexagonal is %d', [Ord(AKind), Ord(High(TPathMapKind))]);
   
       if (AHighTile = $FF) then
  -      CPFException('High tile can''t be equal 255(0xFF), it means barrier');
  +      CPFException('High tile can''t be equal 255(0xFF), it means a barrier');
     end;
   
     // fill parameters
  
positive.code:   _5 = (1 shl 5);
    _6 = (1 shl 6);
    _7 = (1 shl 7);
  
    FLAG_ATTAINABLE = 1 shl 6;
    FLAG_KNOWN_PATH = 1 shl 7;
  
    PATHLESS_TILE_WEIGHT = High(Cardinal) shr 1;
  
    POINT_OFFSETS: array[0..7] of TYXSmallPoint = (
      {0} (y: -1; x: -1),
  
negative.code:   );
  
    CELLCOUNT_LIMIT = 60*1000*1000;
    PATHLENGTH_LIMIT = (CELLCOUNT_LIMIT div 2) + 1;
    NATTANABLE_LENGTH_LIMIT = not Cardinal(PATHLENGTH_LIMIT);
  
    PATHLESS_TILE_WEIGHT = High(Cardinal) shr 1;
  
    FLAG_KNOWN_PATH = 1 shl 6;
    FLAG_ATTAINABLE = 1 shl 7;
  
    {$ifdef LARGEINT}
      LARGE_NODEPTR_OFFSET = 32 - {0..31}5;
  