#include <pl.h>
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>

inherit "/std/armour";
inherit "/cmd/std/command_driver";

#define A "_zbroja_chaosu_"
#define TP this_player()
#define TO this_object()



void
create_armour()
{
    ustaw_nazwe(({"zbroja plytowa", "zbroi plytowej", "zbroi plytowej",
		      "zbroje plytowa", "zbroja plytowa", "zbroi plytowej"}),
		({"zbroje plytowe", "zbroj plytowych", "zbrojom plytowym",
		      "zbroje plytowe", "zbrojami plytowymi", "zbrojach plytowych"}),
		PL_ZENSKI);

    dodaj_nazwy(({"zbroja", "zbroi", "zbroi", "zbroje", "zbroja", "zbroi"}),
		({"zbroje", "zbroj", "zbrojom", "zbroje", "zbrojami", "zbrojach"}),
		PL_ZENSKI);

    
    dodaj_przym("pelny", "pelni");
    

    set_long("Jest to ciezka, bardzo dobrze wykonana zbroja. "+
	    "Daje ona fantastyczna ochrone, lecz w znacznym stopniu "+
	    "krepuje ruchy osoby, ktora ja nosi. Jest wypolerowana na blysk, "+
	    "a swiatlo odbijajace sie od niej niemal cie oslepia. "+
	    "Po lewej stronie, w miejscu gdzie znajduje sie serce, "+
	    "widnieje symbol Sigmara Mlotodzierzcy.\n");

    set_ac(A_BODY, 45, 45, 45, A_R_ARM, 45, 45, 45, A_L_ARM, 45, 45, 45,
	A_LEGS,45,45,45);

    add_prop(OBJ_I_VALUE, 700);
    add_prop(OBJ_S_WIZINFO, "by Cipa '99\n");
    add_prop(CONT_I_WEIGHT,35000);
    add_prop(CONT_I_VOLUME,25000);
//    add_prop(OBJ_M_NO_DROP,"Chyba ci sie to nie uda!\n");
//    add_prop(OBJ_M_NO_SELL,"Nie ma bata.\n");
//    add_prop(OBJ_M_NO_GIVE,"Nie oddasz jej.\n");
    
    set_af(this_object());

}

int
wear( object ob )
{
setuid();
seteuid(getuid());
say(QIMIE(this_player(),PL_MIA)+" przyodziewa pelna zbroje plytowa.\n");
    this_player()->remove_subloc(A);
    this_player()->add_subloc(A,this_object());
    this_object()->move(this_player(),A);
            
return 1;
}



int
remove( object ob )
{
write("Zdejmujesz zbroje.\n");
say(QCIMIE(TP,PL_MIA)+" zdejmuje zbroje.\n");
TP->remove_subloc(A);
return 1;
}


string
query_recover()
{
    return 0;
}


string
show_subloc ( string subloc, object ob, object obf )

{

if ( subloc != A ) return "";
    if ( obf == ob )
    return "";
    return "Piekna, pelna zbroja zdobi jego cialo, a na napiersniku "+
	"spostrzegasz majestatyczny symbol serca spowitego plomieniami.\n";
    return "";
	
return MASTER+":";


}