anchor.diff:    end;
   
   var
  -  centerTerType, terType: TTerrainType;
  +  terType: TTerrainType;
     centerTerGroup: TTerrainGroup;
   
     totalPoints: Integer;
  
positive.code:   currentCoord: TMapCoord;
    delta: TMapCoord;
  begin
  
     while not FInQueue.IsEmpty do
     begin
       centerTile := FInQueue.NMin^.Data;
  
negative.code:     begin
        cur_tinfo := getTinfo(cx,cy);
  
        if cur_tinfo.TerType <> info.TerType then
          isAlien := True;
      end;
  
  