/*
 * Jubiler z Athel-Loren
 * by Tanis
 * lipiec 1998
 */



#include "ogolne.h"

#define OBJECT_I_WYROB_ZLOTNICZY "_obj_i_wyrob_zlotniczy_"

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

object ob;

void
create_imperium_shop()
{
  set_short("Sklep jubilera");

  set_long("@@dlugi_opis");
  
  set_standard_shop_item("zlota bransolete","zlote bransolety");

  add_item("lade","Lada dzieli cale pomieszczenie na dwie czesci. Oprocz zwyklych funkcji sklepowych bardzo skutecznie "
     + "chron tez sprzedawce przed agresja klientow.\n");
  add_item(({"skrzyneczke","skrzyneczki"}),"Wszystkie skrzyneczki jakie dostrzegasz za lada sa "
     + "zamkniete. Wiele z nich zdobia ciekawe rzezbienia i okucia.\n");
  
  add_exit(APATH + "ulica19.c","polnoc",0,1);
  
  set_shop_keeper(PATH + "npc/zlotnik.c");
  set_store_room(PATH + "sklepy/sklad_jub.c");

  set_event_time(20.0, 200.0);

  add_event("Na zewnatrz slyszysz szum drzew i swist wiatru... Czujesz sie, jakby otaczal cie las a nie sciany sklepu...\n",0);
  add_event("Slyszysz, jak jakies lesne zwierze delikatnie skrobie o sciane.\n",0);
  add_event("Z zewnatrz dobiega cie jakas rozmowa, jednak nie rozrozniasz slow.\n",1);
  add_event("Z lasu dobiega glosny odglos jakiegos nocnego ptaka.\n",2);

  set_events_on(1);

  config_default_trade();

  set_money_give_max(4000);
}

string
dlugi_opis()
{
    return("Znajdujesz sie w niezbyt duzej, drewnianej chacie. Sciany i dach, choc wykonane z galezi, "
       + "sprawiaja wrazenie bardzo wytrzymalych. Pomieszczenie jest podzielone na dwie czesci drewniana lada, "
       + "pelniacej nie tylko funkcje blatu, ale tez calkiem skutecznie chroniacej sprzedawce. "
       + "Po drugiej stronie lady dostrzegasz wiele roznej wielkosci skrzyneczek.\n");
}

int
shop_hook_allow_sell(object ob)
{
  object temp = query_shop_keeper();
  notify_fail("");
  if (!ob->query_prop(OBJECT_I_WYROB_ZLOTNICZY))
  {
    if (temp && !this_player()->query_prop(OBJ_I_INVIS))
      temp->command("powiedz do " + OB_NAME(this_player()) +
        " Zajmuje sie wyrobami zlotniczymi, a nie jakims 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 ftoi(itof(p)/5.0) + p;
}

int
query_buy_price(object ob)
{
  int p = ::query_buy_price(ob);
  return ftoi(itof(p)/5.0) + p;
}