anchor.diff:  type
     TSceneClass = class(TScene)
     public
  +    procedure ReRoll;
       procedure Render; override;
       procedure Update(var Key: UInt); override;
     end;
  
positive.code:       end;
      TK_ENTER, TK_KP_ENTER:
        begin
          Scenes.SetScene(scClass, scRace);
        end;
      TK_ESCAPE:
  
negative.code:   AddKey('?', _('Help'), True);
  end;
  
  procedure TSceneClass.ReRoll;
  begin
  
  end;
  
  procedure TSceneClass.Update(var Key: UInt);
  begin
    case Key of
      TK_A .. TK_Z:
        begin
          Player.HClass := TClassEnum(Math.EnsureRange(Ord(Key) - Ord(TK_A), 0, Ord(High(TClassEnum))));
          ReRoll;
        end;
      TK_ENTER, TK_KP_ENTER:
        begin
          Scenes.SetScene(scTalents, scClass);
  