anchor.diff:    main_array, level_array: TJSONArray;
     i: Integer;
   begin
  -  main_array := ARoot.Arrays['tiles'];
  +  main_array := ARoot.Arrays[TILES_FIELD];
   
     for i := 0 to AMap.Levels - 1 do
     begin
  
positive.code:     main_array.Add(level_array);
    end;
  
    ARoot.Add('tiles',main_array);
  end;
  
  procedure TMapWriterVCMI.StreamTilesLevel(AJson: TJSONArray; AMap: TVCMIMap;
  
negative.code: 
    map_o := FDestreamer.JSONStreamToJson(AStream) as TJSONObject;
  
    cp.Levels := map_o.Integers['levels'];
    cp.Height := map_o.Integers['height'];
    cp.Width  := map_o.Integers['width'];
  
    Result := TVCMIMap.CreateExisting(FMapEnv, cp);
    try
      try
        DeStreamTiles(map_o,Result);
  
        FDestreamer.JSONToObject(map_o, Result);
  
        FDestreamer.JSONToCollection(map_o.Elements[TEMPLATES_FIELD],Result.Templates);
        FDestreamer.JSONToCollection(map_o.Elements[OBJECTS_FIELD],Result.Objects);
  
      finally
        map_o.Free;
  