//Sklep z bronia
//Copyright (c) 1997 Tigran Latchinian "Tigr"
//Ostatnie zmiany wprowadzone 25.06.97

#include <std.h>
#include <macros.h>
#include "ss_types.h"
#include "local.h"
#include <pl.h>

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 Kislevickim 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/Kislev/lokacje/kis111.c","polnoc",0,1,0);
  set_store_room("/d/Imperium/Kislev/lokacje/magazyn_zb.c");
  set_shop_keeper("/d/Imperium/Kislev/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;
}