anchor.diff:  
   type
     TSceneBuy = class(TScene)
  +  public
  +    procedure Render; override;
  +    procedure Update(var Key: Word); override;
  +  end;
  +
  +type
  +  TSceneTalents = class(TScene)
     public
       procedure Render; override;
       procedure Update(var Key: Word); override;
  
positive.code:         FScene[I] := TSceneOptions.Create;
        scSpellbook:
          FScene[I] := TSceneSpellbook.Create;
      end;
  end;
  
  
negative.code:   TSceneEnum = (scTitle, scLoad, scHelp, scGame, scQuit, scWin, scDef, scInv,
      scDrop, scItems, scAmount, scPlayer, scMessages, scStatistics, scDialog,
      scSell, scRepair, scBuy, scCalendar, scDifficulty, scRest, scName, scSpellbook,
      scOptions, scTalents);
    // scClasses, scRaces, scIdentification
  
  type
  