anchor.diff:    private
       procedure PrevScene;
       procedure NextScene;
  +    procedure SetClass(const AClassEnum: TClassEnum);
     public
       procedure ReRoll;
       procedure SelRand;
  
positive.code: 
  uses
    Trollhunter.Types,
    Trollhunter.Scenes,
    Trollhunter.Scene.Races;
  
  
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);
  