anchor.diff:    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;
  
positive.code:   AddKey('L', _('Look mode'));
    AddKey('R', _('Rest'));
    AddKey('M', _('Last messages'));
    AddKey('N', _('Statistics'));
    AddKey('O', _('Options'));
    AddKey('I', _('Inventory'));
  
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)
  