anchor.diff:  initialization
   
   Shops := TShops.Create;
  -Shops.Current := shPotions;
   
   finalization
   
  
positive.code: uses
    SysUtils, Math, uMap, uCreature, uAttribute;
  
    { TShop }
  
  procedure TShop.Add(const AItem: Item);
  begin
  
negative.code:       shHealer:
          Result := efLife in ItemBase[ID].Effects;
        shMana:
          Result := (efMana in ItemBase[ID].Effects) and
            not(efLife in ItemBase[ID].Effects);
        shPotions:
          Result := ItemBase[ID].ItemType in PotionTypeItems;
        shScrolls:
  