anchor.diff:  interface
   
   uses
  -  Classes, SysUtils, map, map_format, terrain, vcmi_json, vcmi_fpjsonrtti, fpjson, lists_manager;
  +  Classes, SysUtils, editor_types, map, map_format, terrain, vcmi_json, vcmi_fpjsonrtti, fpjson, lists_manager;
   
   type
   
  
positive.code:   TMapWriterVCMI = class(TBaseMapFormatHandler, IMapWriter)
    private
      FStreamer: TVCMIJSONStreamer;
  
      procedure StreamTilesLevel(AJson: TJSONArray; AMap: TVCMIMap; const Level: Integer);
      procedure StreamTiles(ARoot: TJSONObject; AMap: TVCMIMap);
  
negative.code:   TEMPLATES_FIELD = 'templates';
    OBJECTS_FIELD = 'objects';
  
    TERRAIN_CODES: array[TTerrainType] of string = ('dt', 'sa', 'gr', 'sn', 'sw', 'ro', 'sb', 'lv', 'wt', 'ro');
    ROAD_CODES: array[TRoadType] of String = ('', 'pd','pg', 'pc');
    RIVER_CODES: array[TRiverType] of string = ('', 'rw', 'ri', 'rm', 'rl');
  
  
  { TMapWriterVCMI }
  
  