anchor.diff:  type
     TSceneEnum = (scTitle, scLoad, scHelp, scGame, scQuit, scWin, scDef, scInv,
       scDrop, scItems, scAmount, scPlayer, scMessages, scStatistics, scDialog,
  -    scSell, scRepair, scBuy, scCalendar, scDifficulty, scRest, scName, scSpells,
  +    scSell, scRepair, scBuy, scCalendar, scDifficulty, scRest, scName, scSpellbook,
       scOptions);
     // scClasses, scRaces, scIdentification
   
  
positive.code:     TK_O:
        Scenes.SetScene(scOptions);
      TK_B:
        Scenes.SetScene(scSpells);
      TK_SLASH:
        Scenes.SetScene(scHelp);
      TK_Y:
  
negative.code:   end;
  
  type
    TSceneSpellbook = class(TScene)
    public
      procedure Render; override;
      procedure Update(var Key: Word); override;
  