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