//Sklep przy Krancowej
//Copyright (c) 1997 Tigran Latchinian "Tigr"
//Ostatnie zmiany wprowadzone 20.06.97
//poprawione przez Alfena


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

#define OBJECT_I_WYROB_ZLOTNICZY "_object_i_wyrob_zlotniczy_"

inherit GPATH + "std/sklep_std.c";

object ob;

string opispokoju()
{
  string s = "Znajd=jesz sie w nieduzym pomieszczeniu sklepu jubilerskiego.";
  s = s + " Lada dzieli pokoj na dwie czesci, zas przy scianach stoja gabloty."
  + " Wewnatrz gablot i pod szklem lady leza wyroby zlotnicze i jubilerskie:"
  + " klejnoty, pierscienie, branzoletki. Na polkach za lada stoja puchary,"
  + " ";
  
  return s; 
}

string sufit()
{
    string s = "Sufit jest na wysokosci okolo 2,5 metra, na hakach wisi kilka lamp";
    
    switch (pora_dnia())
    {
      case "wieczor":
      case "noc":
          s = s + ", oswietlajacych wnetrze.";
          break;
      default:
          s = s + ".";
    }
    
    return s + "\n";
}


void
create_imperium_shop()
{
  set_short("Sklep zlotnika.");

  set_long("@@opispokoju");
  
  set_standard_shop_item("zlota bransolete","zlote bransolety");
  
  add_exit(NPATH + "lokacje/kranc3.c","poludnie",0,1,0);
  
  set_shop_keeper(NPATH + "npc/zlotnik.c");
  set_store_room(NPATH + "sklepy/magazyn_zl.c");
}


int
shop_hook_allow_sell(object ob)
{
  object temp = query_shop_keeper();
  notify_fail("");
  if (!ob->query_prop(OBJECT_I_WYROB_ZLOTNICZY))
  {
    if (temp)
      temp->command("powiedz "+this_player()->query_nazwa(PL_CEL) +
        " Zajmuje sie wyrobami zlotniczymi, a nie jakim 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 p/5 + p;
}



int
query_buy_price(object ob)
{
  int p = ::query_buy_price(ob);
  return p/5 + p;
}