anchor.diff:    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);
  
positive.code: type
    TSceneClass = class(TScene)
    public
      procedure Render; override;
      procedure Update(var Key: UInt); override;
    end;
  
negative.code:       end;
      TK_ENTER, TK_KP_ENTER:
        begin
          (Scenes.GetScene(scClass) as TSceneClass).ReRoll;
          Scenes.SetScene(scClass, scRace);
        end;
      TK_ESCAPE:
  