inherit "/d/Imperium/std/room";

#include <stdproperties.h>
#include <std.h>
#include <macros.h>

#include "local.h"

inherit GPATH + "std/sklep_std.c";

object zbroj;

void
create_imperium_shop()
{
    set_standard_shop_item("helm","helmy");
    set_short("Sklep Platnerza");
    set_long(
             "Znajdujesz sie w sklepie platnerza Joachima Eisenberga. "+
        "Mozesz u niego kupic zbroje wszelakiej masci, rodzaju i jakosci. " +
        "W eleganckich gablotach widzisz kolczugi, helmy i stalowe naramienniki, " +
       "cieszace oko znawcy. Na scianach wisza kompletne zbroje z roznokolorowych metali, " +
        "na podlodze stoja zas tarcze rozmaitych ksztaltow. " +
        "Widac, " +
             "iz wlasciciel jest czlowiekiem bardzo bogatym i nie narzeka "+
             "na brak klientow. Wyjscie ze sklepu znajduje sie na "+
        "zachodzie. Obok niego widzisz tabliczke z instrukcjami.\n");

    add_item(({"zbroje","kolczugi","zbroje plytowe","tarcze","helmy","napiersniki","naramienniki","kolczugi"}),
        "Z satysfakcja zauwazasz ze towar oferowany w tym sklepie jest najlepszej jakosci. " +
        "Zbroje wszelakiej masci sa czyste i tylko czekaja az ktos je kupi i wyruszy w boj.");
    
    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_NO_SKY, 1);
    
    set_shop_keeper(NPATH + "npc/platnerz.c");
    set_store_room(NPATH  + "sklepy/magazyn_pl.c");
    
    add_exit(NPATH + "lokacje/poln1.c","zachod",0,1,1);
}




int 
shop_hook_allow_sell(object ob)
{
    if (function_exists("create_armour" , ob))
	return 1;
	
    
    if (query_shop_keeper())
    {
      notify_fail("");
      query_shop_keeper()->command("powiedz " + 
        this_player()->query_nazwa(PL_CEL)+
        " Skupuje tylko zbroje i nic wiecej.");
    }
    else
      notify_fail("Platnerz mowi: Skupuje tylko zbroje i nic wiecej.\n");
    return 0;	
}


int
query_buy_price(object ob)
{
  return ::query_buy_price(ob)/5+::query_buy_price(ob);
}

int
query_sell_price(object ob)
{
  return ::query_sell_price(ob)/5+::query_sell_price(ob);
}