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