anchor.diff:        Scenes.SetScene(scOptions);
       TK_B:
         Scenes.SetScene(scSpellbook);
  +    TK_T:
  +      Scenes.SetScene(scTalents);
       TK_SLASH:
         Scenes.SetScene(scHelp);
       TK_Y:
  
positive.code: 
  type
    TSceneBuy = class(TScene)
    public
      procedure Render; override;
      procedure Update(var Key: Word); override;
  
negative.code:         FScene[I] := TSceneOptions.Create;
        scSpellbook:
          FScene[I] := TSceneSpellbook.Create;
        scTalents:
          FScene[I] := TSceneTalents.Create;
      end;
  end;
  
  