anchor.diff:  begin
     C := Player.HClass;
     repeat
  -    Player.HClass := TClassEnum(Math.RandomRange(0, Ord(High(TClassEnum)) + 1));
  +    SetClass(TClassEnum(Math.RandomRange(0, Ord(High(TClassEnum)) + 1)));
     until (C <> Player.HClass);
  +end;
  +
  +procedure TSceneClass.SetClass(const AClassEnum: TClassEnum);
  +begin
  +  Player.HClass := AClassEnum;
  +  ReRoll;
   end;
   
   procedure TSceneClass.Update(var Key: UInt);
  
positive.code:   private
      procedure PrevScene;
      procedure NextScene;
    public
      procedure ReRoll;
      procedure SelRand;
  
negative.code:   Trollhunter.Attribute,
    Trollhunter.Game,
    Trollhunter.Player.Races,
    Trollhunter.UI;
  
  { TSceneClass }
  