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)
{

    if(TP->query_prop("_live_i_undead"))
        {
    
    write("Nagle tuz przed toba wylania sie postac jasnej pani ktora wskazuje cie palcem, "+
          "a ty czujesz ze to juz koniec twe martwe od dawna cialo rospada sie w pyl...\n");
    say(""+QCIMIE(TP,PL_MIA)+" nagle rospada sie w pyl.\n"); 
            TP->set_hp(-1);
	    TP->do_die(TO);
            TP->set_hp(-1);
	    TP->do_die(TO);
	    TP->set_hp(-1);
	    TP->do_die(TO);
	    TP->set_hp(-1);
	    TP->do_die(TO);
	    return 1;
	     
	}  
       


    if(TP->query_alignment() < 500)
       {
    
    write("Gdy probujesz zalozyc ten dziwny plaszcz nagle dokoola ciebie zaczyna wirowac "+
          "biala poswiata, ktora powoli sie zaciska i zaciska az wkocnu zamyka sie na tobie "+
          "miazdzac ci klatke piersiowa pozbawiajac oddechu!.\n");
    say(""+QCIMIE(TP,PL_MIA)+" nagle pada na ziemie z zmiazdzona klatka piersowa... Zastanawiasz "+
        "sie co to bylo.\n");
       
            TP->set_hp(-1);
	    TP->do_die(TO);
	    TP->set_hp(-1);
	    TP->do_die(TO);
	    TP->set_hp(-1);
	    TP->do_die(TO);
	    TP->set_hp(-1);
	    TP->do_die(TO);
	     return 1;
	
	}   
	 
     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;
}