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, scOptions);
  -  // scSpells, scIdentification
  +    scSell, scRepair, scBuy, scCalendar, scDifficulty, scRest, scName, scSpells,
  +    scOptions);
  +  // scClasses, scRaces, scIdentification
   
   type
     TScene = class(TObject)
  
positive.code:       Scenes.SetScene(scStatistics);
      TK_O:
        Scenes.SetScene(scOptions);
      TK_V:
        if Game.Wizard then
          Scenes.SetScene(scWin);
      TK_B:
        if Game.Wizard then
          Scenes.SetScene(scDef);
      TK_SLASH:
        Scenes.SetScene(scHelp);
      TK_Y:
  
negative.code:   end
  end;
  
  { TSceneSpells }
  
  procedure TSceneSpells.Render;
  begin
    Self.Title(_('Spell book'));
  
    AddKey('Esc', _('Back'), True, True);
  end;
  
  procedure TSceneSpells.Update(var Key: Word);
  begin
    case Key of
      TK_ESCAPE:
        Scenes.SetScene(scGame);
    end
  end;
  
  initialization
  
  Scenes := TScenes.Create;
  