anchor.diff:  
   
   implementation
  +uses
  +  KM_CommonUtils;
   
   
   { TKMResTileset }
  
positive.code: 
  {Check if requested tile is soil suitable for fields and trees}
  function TKMResTileset.TileIsSoil(aTile: Word): Boolean;
  begin
    Result := aTile in [0..3,5,6, 8,9,11,13,14, 16..21, 26..28, 34..39, 47, 49, 55..58, 64..69, 72..80, 84..87,
                        88,89, 93..98,180,182..183,188,190..191,220,247];
  end;
  
  
  
negative.code: 
  {Check if requested tile is sand suitable for crabs}
  function TKMResTileset.TileIsSand(aTile: Word): Boolean;
  const
    SAND_TILES: array[0..21] of Word =
                  (31,32,33, 70,71, 99,100,102,103, 108,109, 112, 113, 116,117, 169, 173, 181, 189, 269, 273, 302);
  begin
    Result := ArrayContains(aTile, SAND_TILES);
  end;
  
  
  