anchor.diff:      FLife: Word;
       FMaxLife: Word;
       FLook: Boolean;
  -    FSkill: array [Byte] of TSkill;
  +    FSkill: array [TSkillEnum] of TSkill;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: 
  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;
  
  
negative.code:     FX := Clamp(X + AX, 0, High(Byte));
      FY := Clamp(Y + AY, 0, High(Byte));
      AddTurn;
      if (Map.GetTileEnum(FX, FY, Map.Deep) in StopTiles) and not WizardMode then Exit;
      X := FX;
      Y := FY;
    end;
  