anchor.diff:  uses
     SysUtils, Math, uMap, uCreature, uAttribute;
   
  -  { TShop }
  +{ TShop }
   
   procedure TShop.Add(const AItem: Item);
   begin
  
positive.code: begin
    for S := Low(TShopEnum) to High(TShopEnum) do
      FShop[S] := TShop.Create;
  end;
  
  destructor TShops.Destroy;
  
negative.code: initialization
  
  Shops := TShops.Create;
  
  finalization
  
  