anchor.diff:    end;
   
   implementation
  +
  +{ TProxyResourceSet }
  +
  +constructor TProxyResourceSet.Create(AData: TRewards);
  +begin
  +  inherited Create;
  +  FData := AData;
  +end;
   
   { TRewards }
   
  
positive.code: constructor TCreatureOptions.Create(AObject: IMapObject);
  begin
    inherited Create(AObject);
    FRewardResources := TResourceSet.Create;
  end;
  
  destructor TCreatureOptions.Destroy;
  begin
    FRewardResources.Free;
    inherited Destroy;
  end;
  
  
negative.code:   Result := (not FRewardResources.IsEmpty);
  end;
  
  function TCreatureOptions.IsRewardStored: Boolean;
  begin
    Result := false;
  end;
  
  procedure TCreatureOptions.SetNoGrowing(AValue: boolean);
  begin
    FNoGrowing := AValue;
  