anchor.diff:    MsgLog.Add(Format(_('%s says: "%s"'), [NPCName, S]));
   end;
   
  +function TPlayer.GetAtr(I: TAtrEnum): TAtr;
  +begin
  +  Result := FAtr[I];
  +end;
  +
   function TPlayer.GetDV: Byte;
   begin
     Result := EnsureRange(FDV, 0, DVMax);
  
positive.code:   Scenes.SetScene(scAmount);
  end;
  
  procedure TPlayer.Spawn;
  begin
    Self.Clear;
  
negative.code:     FStatistics: TStatistics;
      FSkills: TSkills;
      FTalentPoint: Boolean;
      FAtr: array [TAtrEnum] of TAtr;
      function GetAtr(I: TAtrEnum): TAtr;
      procedure SetAtr(I: TAtrEnum; const Value: TAtr);
      procedure GenNPCText;
      function GetDV: Byte;
      function GetPV: Byte;
  