#include <stdproperties.h>
#include <macros.h>
#include <pl.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>
#define TO      this_object()
#define TP      this_player()
inherit "/d/Imperium/std/sklep_std.c";
object ob;
int
shop_hook_allow_sell(object ob)
{
    if (function_exists("create_armour",ob))
      return ::shop_hook_allow_sell(ob);
    if (query_shop_keeper())
    {
      query_shop_keeper()->command("powiedz do " + 
         (this_player()->query_nazwa(PL_DOP)) + 
         " Kupuje i sprzedaje tylko zbroje.");
      notify_fail("");
    }
    else
      notify_fail("Zbrojmistrz mowi: Skupuje tylko zbroje i nic oprocz nich.\n");
    return 0;
}
string opispokoju()
{
  string s = "Znajdujesz sie w Altdorfskim warszacie zbrojmistrza mozna tu "
  + "nabyc i sprzedac zbroje.";
  s = s + " Na scianach rozwieszone sa wszelakiej masci egzemplarze pokazowe:";
  s = s + " napiersniki, kolczugi, helmy, misiurki, puklerze, i inne czesci pancerza."
  + " Pare lamp oswietla to pomieszczenie w nocy."
  + " Widzisz tabliczke, przytwierdzona do kontuaru.\n";
  return s; 
}
void
create_imperium_shop()
{
  set_short("Warsztaw Zbrojeniowy");
  set_long("@@opispokoju");
  
  set_standard_shop_item("zbroja","zbroje");  
  add_item (({"zbroje","kolczugi","helmy","tarcze","puklerze","napiersniki"}), 
  "Na scianach pomieszczenia wisza piekne okazy uzbrojenia - szkoda ze w"+
  " wiekszosci atrapy.\n");
   
  
  add_exit("/d/Imperium/Altdorf/Ulice/ulsig10.c","zachod",0,1,0);
  set_store_room("/d/Imperium/Altdorf/Other/magazyn_zb.c");
  set_shop_keeper("/d/Imperium/Altdorf/npc/zbrojmistrz.c");
}
int
query_sell_price(object ob)
{
  int p = ::query_sell_price(ob);
  return p/10+p;
}
int
query_buy_price(object ob)
{
  int p = ::query_buy_price(ob);
  return p/10+p;
}