/* Obiekt gildiowy dla gildii 'Klan Tygrysa'
 *
 *
 *
 *
 * Autor: Lisev
 */
inherit "/std/armour";
#include "defs.h"
string query_metal(mixed przyp);
void
create_armour()
{
	ustaw_nazwe(({"pas", "pasa", "pasu", "pas", "pasem", "pasie" }),
	            ({"pasy", "pasow", "pasom", "pasy", "pasami", "pasach" }), PL_MESKI_NOS_NZYW);
	dodaj_przym("krwistoczerwony", "krwistoczerwoni");
	add_name("_pas_samurajow");
	set_long("Oto duma Klanu Tygrysa. Szkarlatny pas przekazywany z pokolenia na "+
	         "pokolenie nowym czlonkom klanu. Wokol utwierdzonego wewnatrz herbu, "+
	         "przedstawiajacego Biaglego Tygrysa dostrzegasz okucia wykonane "+
	         "z @@query_metal|" + 1 + "@@. Dostrzegasz na nim napis [spomoc].\n");
    add_prop(OBJ_M_NO_SELL, "Chyba nie chcesz sprzedac swego pasa!\n");
    add_prop(OBJ_M_NO_DROP, "Chyba nie chcesz wyrzucic swego pasa!\n");
    add_prop(OBJ_M_NO_GIVE, "Chyba nie chcesz oddac komus swego pasa?\n");
    add_prop(OBJ_M_NO_STEAL, 1);
    add_prop(OBJ_M_NO_GET,"Nie jestes w stanie wziasc tego pasa.\n");
    add_prop(OBJ_I_VALUE, 1800);
    set_slots(A_WAIST);
    set_ac(A_WAIST, 1, 1, 1);    
}
string
query_metal(mixed przyp)
{
	object samuraj;
	int index;
	if(stringp(przyp)) index = 1;
	else if(intp(przyp)) index = 0;
	else index = 0;
	samuraj = environment(TO);
	if(!SILNIK->query_czlonek(samuraj->query_real_name())) return "zjebany";
	if(SILNIK->query_ranga(samuraj->query_real_name()) == DAIMYO)
	   return KLAN_TYGRYSA_PAS[ sizeof(KLAN_TYGRYSA_PAS) - 1][index];
	if(SILNIK->query_ranga(samuraj->query_real_name()) == HATAMOTO)
	   return KLAN_TYGRYSA_PAS[sizeof(KLAN_TYGRYSA_PAS) - 2][index];
	return KLAN_TYGRYSA_PAS[ (samuraj->query_stat(SS_OCCUP) / 10) > (sizeof(KLAN_TYGRYSA_PAS) - 3) ?
	                          sizeof(KLAN_TYGRYSA_PAS) - 3 : samuraj->query_stat(SS_OCCUP) / 10][index];
}
string
query_auto_load()
{
        return MASTER_OB(this_object());
}
string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (on_obj == for_obj)
        return "Masz na sobie krwistoczerwony pas z symbolem Bialego Tygrysa inkrustowany " + query_metal(0) + " okuciami.\n";
    return "Ma na sobie krwistoczerwony pas z symbolem Bialego Tygrysa inkrustowany " + query_metal(0) + " okuciami.\n";
}
mixed
wear_me(int i=0)
{
	mixed tmp = ::wear_me(i);
	if (intp(tmp) && tmp)
	{
      if (this_player()->query_subloc_obj(ZALOZONY_PAS))
         { remove_object(); return 1;}
      this_player()->add_subloc(ZALOZONY_PAS, this_object());
      move(TP, ZALOZONY_PAS);
 	}
	return tmp;
}
int
remove_arm(string s)
{
	int tmp;
	string st;
	tmp = ::remove_arm(s);
	if (tmp)
	{
	    this_player()->remove_subloc(ZALOZONY_PAS);
	    move(TP);
	}
	return tmp;
}
string
query_recover()
{
  return 0;
}