anchor.diff:          FScene[I] := TSceneName.Create;
         scOptions:
           FScene[I] := TSceneOptions.Create;
  -      scSpells:
  -        FScene[I] := TSceneSpells.Create;
  +      scSpellbook:
  +        FScene[I] := TSceneSpellbook.Create;
       end;
   end;
   
  
positive.code: 
  { 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:
  
negative.code:   AddKey('L', _('Look mode'));
    AddKey('R', _('Rest'));
    AddKey('M', _('Last messages'));
    AddKey('B', _('Spellbook'));
    AddKey('N', _('Statistics'));
    AddKey('O', _('Options'));
    AddKey('I', _('Inventory'));
  