anchor.diff:      property Y:integer read GetY write SetY;
       property L:integer read GetL write SetL;
   
  -    property &Type: AnsiString read FType write SetType;
  -    property Subtype: AnsiString read FSubtype write SetSubtype;
  -
       property Template: TMapObjectAppearance read FTemplate;
  -  public
  +  public //manual streamimg
  +    property &Type: AnsiString read GetType write SetType;
  +    property Subtype: AnsiString read GetSubtype write SetSubtype;
  +
       property Options: TObjectOptions read FOptions;
     end;
   
  
positive.code:   Result := FPosition.L;
  end;
  
  function TMapObject.GetX: integer;
  begin
    Result := FPosition.X;
  
negative.code: function TMapObject.Serialize(AHandler: TVCMIJSONStreamer): TJSONData;
  var
    opt_json: TJSONData;
    res: TJSONObject;
  begin
    res := AHandler.ObjectToJson(Self);
  
    res.Add('type', &Type);
    res.Add('subtype', Subtype);
  
    if HasOptions then
    begin
  