anchor.diff:    AddKey('L', _('Look mode'));
     AddKey('R', _('Rest'));
     AddKey('M', _('Last messages'));
  +  AddKey('B', _('Spell book'));
     AddKey('N', _('Statistics'));
     AddKey('O', _('Options'));
     AddKey('I', _('Inventory'));
  
positive.code:   end
  end;
  
  initialization
  
  Scenes := TScenes.Create;
  
negative.code: 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,
      scOptions);
    // scClasses, scRaces, scIdentification
  
  type
    TScene = class(TObject)
  