anchor.diff:    public
       constructor Create(AOwner: IMapObject);
       property AllowedReward:TAllowedRewards read FAllowedReward write SetAllowedReward;
  -
       procedure AddOrUpdateReward(AType: TMetaclass; AIdentifier: AnsiString; AValue: Int64);
  -
       function GetValue(AType: TMetaclass; AIdentifier: AnsiString = ''): Int64;
  -
       property Owner: IMapObject read FOwner;
     end;
   
  
positive.code:   end;
  
  implementation
  
  { TRewardPrimarySkills }
  
  
negative.code:   end;
  {$pop}
  
    { TBaseCreatureInstInfo }
  
    TBaseCreatureInstInfo = class (TCollectionItem)
    private
      FAmount: Integer;
      FType: AnsiString;
      procedure SetAmount(AValue: Integer);
      procedure SetType(AValue: AnsiString);
    public
      constructor Create(ACollection: TCollection); override;
      function IsEmpty: Boolean; virtual;
    published
      property &type: AnsiString read FType write SetType;
      property Amount: Integer read FAmount write SetAmount default 0;
    end;
  
    { TCreatureInstInfo }
  
    TCreatureInstInfo = class(TBaseCreatureInstInfo)
    private
      FLevel: Integer;
      FUpgraded: Boolean;
      function GetRawRandom: integer;
      procedure SetRawRandom(AValue: integer);
    public
      property RawRandom: integer Read GetRawRandom write SetRawRandom;
      function IsEmpty: Boolean; override;
    published
      property Level: Integer read FLevel write FLevel default 0;
      property Upgraded: Boolean Read FUpgraded write FUpgraded default false;
    end;
  