anchor.diff:    Trollhunter.Attribute,
     Trollhunter.Game,
     Trollhunter.Player.Races,
  -  Trollhunter.Player.Classes,
     Trollhunter.UI;
   
   { TSceneClass }
  
positive.code:   private
      procedure PrevScene;
      procedure NextScene;
    public
      procedure ReRoll;
      procedure SelRand;
  
negative.code: begin
    C := Player.HClass;
    repeat
      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);
  