anchor.diff:  end;
   
   
  -
  -procedure TTerrain.CCLFind(aPass: TPassability; aWC: TWalkConnect);
  +{procedure TTerrain.CCLFind(aPass: TPassability; aWC: TWalkConnect);
   var
     I,K,H,J: Integer;
     NCount: Byte;
  
positive.code:     end;
  end;
  
  end;
  
  
  end.
  
negative.code:     procedure UpdatePassabilityAround(Loc: TKMPoint);
      procedure UpdateWalkConnect(const aSet: array of TWalkConnect);
  
      //procedure CCLFind(aPass: TPassability; aWC: TWalkConnect);
    public
      Land: array[1..MAX_MAP_SIZE, 1..MAX_MAP_SIZE]of record
        Terrain:byte;
  