#include <pl.h>
#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>
inherit "/std/armour";
void
create_armour()
{
        setuid();
        seteuid(getuid());
        
        ustaw_nazwe(({ "szata", "szaty", "szacie", "szate", "szata",
            "szacie" }), ({ "szaty", "szat", "szatom", "szaty", "szatami",
            "szatach" }), PL_ZENSKI);
        dodaj_przym("czarny","czarni");
   dodaj_przym("runiczny", "runiczni");
        
        set_long("Wspaniala czarna szata przepelniona magia. Jej wyglad przypomina ci czern "
             +   "polnocy na bezksiezycowym niebie. Od czasu do czasu tu i owdzie pokazuja sie "
             +   "czerwone runy.\n");
                
    set_alarm(0.5, 0.0, "oszukaj_liba");
        set_ac( A_BODY, 75, 75, 75,
                A_ARMS, 75, 75, 75,
                A_LEGS, 75, 75, 75,
                A_HEAD, 75, 75, 75);
        
        set_slots(A_ROBE|A_BODY|A_ARMS|A_LEGS);
}
void
oszukaj_liba()

{
  this_object()->add_prop(OBJ_I_WEIGHT, 1000);
  this_object()->add_prop(OBJ_I_VOLUME, 1000);
  this_object()->add_prop(OBJ_I_NO_DROP, "Nie chcesz chyba by szate przejal ktos obcy\n");
  this_object()->add_prop(OBJ_I_NO_GIVE, "Nie chcesz chyba by szate ktos inny posiadal niz ty");
}



wear_me(int i=0)
{
        mixed tmp = ::wear_me(i);
        object ob, tp = this_player();
        int align, r_hp;
        
        if (intp(tmp) && tmp)
        {
                write("Czujesz sie odporny na promienie sloneczne.\n");
        }
        return tmp;
       this_player()->add_prop(LIVE_I_SEE_DARK, (this_player()->query_stat(7)/1));
	this_player()->add_prop(LIVE_I_SEE_INVIS,1);
           if ( this_player()->query_prop("wampir") )
        return 0;
        write("szata wyparowuje!\n");
         this_object()->remove_object();
            return 1;

}