anchor.diff:    end
   end;
   
  +{ TSceneTalents }
  +
  +procedure TSceneTalents.Render;
  +begin
  +  Self.Title(_('Spellbook'));
  +
  +  Self.FromAToZ;
  +
  +  MsgLog.Render(2, True);
  +
  +  AddKey('Esc', _('Close'), True, False);
  +  AddKey('A-Z', _('Teach talent'), False, True);
  +end;
  +
  +procedure TSceneTalents.Update(var Key: Word);
  +begin
  +  case Key of
  +    TK_ESCAPE:
  +      Scenes.SetScene(scGame);
  +    TK_A..TK_Z:
  +      ;
  +  end
  +end;
  +
   initialization
   
   Scenes := TScenes.Create;
  
positive.code:       Scenes.SetScene(scOptions);
      TK_B:
        Scenes.SetScene(scSpellbook);
      TK_SLASH:
        Scenes.SetScene(scHelp);
      TK_Y:
  
negative.code:         FScene[I] := TSceneOptions.Create;
        scSpellbook:
          FScene[I] := TSceneSpellbook.Create;
        scTalents:
          FScene[I] := TSceneTalents.Create;
      end;
  end;
  
  