anchor.diff:      procedure SetMapObject(AValue: TMapObject);
       property MapObject: TMapObject read FMapObject write SetMapObject;
     published
  -    property &type:AnsiString read GetType;
       property x: integer read GetX default -1;
       property y: integer read GetY default -1;
       property l: integer read GetL default -1;
  
positive.code:     FGenerateHero: boolean;
      FMapObject: TMapObject;
      function GetL: integer;
      function GetType: AnsiString;
      function GetX: integer;
      function GetY: integer;
      procedure SetGenerateHero(AValue: boolean);
  
negative.code:     Result := -1;
  end;
  
  function TMainTownInfo.GetX: integer;
  begin
    if Assigned(FMapObject) then
  