anchor.diff:      Result := -1;
   end;
   
  -function TMainTownInfo.GetType: AnsiString;
  -begin
  -  if Assigned(FMapObject) and (FMapObject.&Type = TYPE_TOWN) then
  -  begin
  -    Result := FMapObject.Subtype;
  -  end
  -  else
  -    Result := '';
  -end;
  -
   function TMainTownInfo.GetX: integer;
   begin
     if Assigned(FMapObject) then
  
positive.code:     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;
  
negative.code:     FGenerateHero: boolean;
      FMapObject: TMapObject;
      function GetL: integer;
      function GetX: integer;
      function GetY: integer;
      procedure SetGenerateHero(AValue: boolean);
  