anchor.diff:        shHealer:
           Result := efLife in ItemBase[ID].Effects;
         shMana:
  -        Result := (efMana in ItemBase[ID].Effects) and not (efLife in ItemBase[ID].Effects);
  +        Result := (efMana in ItemBase[ID].Effects) and
  +          not(efLife in ItemBase[ID].Effects);
         shPotions:
           Result := ItemBase[ID].ItemType in PotionTypeItems;
         shScrolls:
  
positive.code: initialization
  
  Shops := TShops.Create;
  Shops.Current := shPotions;
  
  finalization
  
  
negative.code: begin
    for S := Low(TShopEnum) to High(TShopEnum) do
      FShop[S] := TShop.Create;
    Current := shPotions;
  end;
  
  destructor TShops.Destroy;
  