// Pracownia zlotnika

inherit "/d/Imperium/std/sklep_std";

#include "local.h"

#define OBJECT_I_WYROB_ZLOTNICZY "_obj_i_wyrob_zlotniczy_"

void
create_imperium_shop()
{
        add_prop(ROOM_I_INSIDE,1);
        add_prop(ROOM_I_LIGHT,1);

        set_short("Pracownia zlotnicza");

        set_long("Jestes w przestronnej komnacie, mocno oswietlonej lampami "+
        "oliwnymi, rozmieszczonymi w calym pokoju. Ich blask igra na "+
        "gladkich, wyszlifowanych scianach. Niewatpliwie jest to pracownia "+
        "zlotnicza. Wszedzie dostrzegasz polki, poleczki oraz szafki z "+
        "niezliczona liczba malych szufladek. Te kunsztownie zdobione "+
        "meble wygladaja dziwnie w tak surowym miejscu, jak jaskinie Karak Varn.\n");

        add_item(({"polki","poleczki"}),("Po scianach rozmieszczone sa "+
        "roznego rodzaju machoniowe polki i poleczki. Sa na nich "+
        "roznorodne przedmioty.\n"));
  
        add_item(({"rozmaitosci","przedmioty","narzedzia"}),("Na polkach " +
        "i za szybkami kredensikow mozna dostrzec "+
        "rozne narzedzia, zapewne pomocne w pracy zlotnika.\n"));

        add_item(("szafki"),("Tu i owdzie stoja debowe szafki z niezliczona "+
        "liczba malenkich szufladek.\n"));
       
        add_item(("szufladki"),("Malenkie szufladki w szafkach "+
        "rozmieszczonych po komnacie. Sa ich TYSIACE!\n"));

        add_item(({"kredens","kredensik","kredensiki"}),("Pod sciana stoi "+
        "debowy kredensik, z mosieznymi okuciami. Za szklem sa ulozone "+
        "blyszczace przedmioty, zapewne drogocenne...\n"));

    add_item("tabliczke","Na metalowej tabliczce wygrawerowano " +
  			"instrukcje. Moze ja przeczytasz?\n");
  
    set_standard_shop_item("zlota bransolete","zlote bransolety");


    add_exit(VARN + "lokacje/koryt1.c","poludnie");

    set_shop_keeper(VARN + "zabojcy/zabojcy_jubiler.c");
    set_store_room(VARN + "lokacje/magazyn_zl.c");
}

int
shop_hook_allow_sell(object ob)
{
  object temp = query_shop_keeper();
  notify_fail("");
  if (!ob->query_prop(OBJECT_I_WYROB_ZLOTNICZY))
  {
    if (temp)
      temp->command("powiedz do "+this_player()->query_imie(PL_DOP) +
        " Zajmuje sie wyrobami zlotniczymi, a nie jakim bezwartosciowym "+
        "smieciem.");
    else
      notify_fail("Skupowane sa tu tylko wyroby zlotnicze.\n");
    return 0;
  }
  return 1;
}


int
query_sell_price(object ob)
{
  int p = ::query_sell_price(ob);
  return p/5 + p;
}



int
query_buy_price(object ob)
{
  int p = ::query_buy_price(ob);
  return p/5 + p;
}