anchor.diff:  
   { TSceneSpells }
   
  -procedure TSceneSpells.Render;
  -begin
  -  Self.Title(_('Spell book'));
  +procedure TSceneSpellbook.Render;
  +begin
  +  Self.Title(_('Spellbook'));
   
     AddKey('Esc', _('Back'), True, True);
   end;
   
  -procedure TSceneSpells.Update(var Key: Word);
  +procedure TSceneSpellbook.Update(var Key: Word);
   begin
     case Key of
       TK_ESCAPE:
  
positive.code:   end;
  
  type
    TSceneSpells = class(TScene)
    public
      procedure Render; override;
      procedure Update(var Key: Word); override;
  
negative.code:         FScene[I] := TSceneName.Create;
        scOptions:
          FScene[I] := TSceneOptions.Create;
        scSpellbook:
          FScene[I] := TSceneSpellbook.Create;
      end;
  end;
  
  