anchor.diff:  unit uPlayer;
   
   interface
  +
  +type
  +  TSkill = record
  +    Value: Integer;
  +    Exp: Integer;
  +  end;
   
   type
     TPlayer = class(TObject)
  
positive.code: end;
  
  constructor TPlayer.Create;
  begin
    Turn := 0;
    Look := False;
  end;
  
  destructor TPlayer.Destroy;
  
negative.code:     FLife: Word;
      FMaxLife: Word;
      FLook: Boolean;
      FSkill: array [Byte] of TSkill;
    public
      constructor Create;
      destructor Destroy; override;
  