//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_weapon",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 bron.");
      notify_fail("");
    }
    else
      notify_fail("Miecznik mowi: Skupuje tylko bron i nic oprocz niej.\n");
    return 0;
}

string opispokoju()
{
  string s = "Znajdujesz sie w Kislevickim Sklepie z bronia mozna tu "
  + "nabyc i sprzedac zdobyczna bron.";
  s = s + " Na scianach rozwieszone sa wszelakiej masci egzemplarze pokazowe:";
  s = s + " miecze, topory, kusze, halabardy, noze, sztylety."
  + " Pare lamp oswietla to pomieszczenie w nocy."
  + " Widzisz tabliczke, przytwierdzona do kontuaru.\n";

  return s; 
}

void
create_imperium_shop()
{
  set_short("Sklep z Bronia");

  set_long("@@opispokoju");
  
  set_standard_shop_item("miecz","miecze");  
  add_item (({"bron","miecze","topory","halabardy","noze","sztylety"}), 
  "Na scianach pomieszczenia wisza piekne okazy uzbrojenia - szkoda ze w"+
  " wiekszosci atrapy.\n");
   
  
  add_exit("/d/Imperium/Kislev/lokacje/kis111.c","poludnie",0,1,0);
  set_store_room("/d/Imperium/Kislev/lokacje/magazyn_br.c");
  set_shop_keeper("/d/Imperium/Kislev/npc/miecznik.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;
}