inherit "/std/armour";
 
#define TP              this_player()
#define TO              this_object()
 
#include <stdproperties.h>      
#include <wa_types.h>           
#include <formulas.h>           
#include <macros.h>             
void
create_armour()
{
    ustaw_nazwe(({"plaszcz","plaszcza","plaszczowi","plaszcz","plaszczem","plaszczu"}),
                ({"plaszcze","plaszczy","plaszczom","plaszcze","plaszczami","plaszczach"}),
                PL_MESKI_NOS_NZYW);
    dodaj_przym("snieznobialy","snieznobiali");
    dodaj_przym("dlugi","dludzy");
    set_long("Dlugi, snieznobialy plaszcz wydaje sie rosposcielac swiatlo nawet w calkowitym mroku. "+
             "Od czasu do czasu przez plaszcz przeplywa jakby mglista fala starych, elfickich runow, "+
             "polyskujacych na czerwono. Dodatkowo na stojce widzisz jakby pierscien zlotych rys.\n");
    set_ac( A_BODY, 30, 30, 30,
            A_ARMS, 25, 25, 25,
            A_LEGS, 25, 25, 25,
            A_HEAD, 25, 25, 25);
    set_slots(A_ROBE);
    this_object()->set_af(this_object());
    add_prop(OBJ_I_VALUE, 101);
    add_prop(OBJ_I_VOLUME, 1200);
}
mixed
wear(object armour)
{
     write("Zakladajac ten wspanialy plaszcz czujesz bologoslawienstwo Vereny przeplywajace "+
           "przez twe cialo.\n");    
     say(""+QCIMIE(TP,PL_MIA)+" zaklada plaszcz a po chwili w "+TP- >koncowka("jego","jej")+" wplywa " +
         "swiete blogoslawienstwo.\n");
    
    TP->add_prop(MAGIC_I_RES_DEATH,TP->query_prop(MAGIC_I_RES_DEATH) + 35);
    return 1;
}
mixed
remove(object armour)
{
    object wr = TO->query_worn();
    wr->catch_tell("Zdejmujac z siebie snieznobialy plaszcz doznajesz wizji usmiechnietej Vereny, mowiacej; Bywaj, dziecko.\n");
    say(""+QCIMIE(TP,PL_MIA)+" zdejmuje swoj plaszcz poczym skupia wzrok na czyms przed soba. Hmmmm... Co to moze byc?\n");
    TP->add_prop(MAGIC_I_RES_DEATH,TP->query_prop(MAGIC_I_RES_DEATH) - 35);
    return 1;
}