#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 TP this_player()
#define TO this_object()


void
prop()
{
add_prop(OBJ_I_WEIGHT,20000);
add_prop(OBJ_I_VOLUME,10000);
add_prop(CONT_I_WEIGHT,20000);
add_prop(OBJ_I_VOLUME,10000);

}

void
create_armour()
{

    ustaw_nazwe(({"kirys", "kirysu", "kirysowi", "kirys", "kirysem", "kirysie"}),
                ({"kirysy", "kirysow", "kirysom", "kirysy", "kirysami", "kirysach"}),
                PL_MESKI_NOS_NZYW);


    dodaj_przym("posrebrzany","posrebrzani");
    dodaj_przym("adamantytowy", "adamantytowi");
    

    set_long("Jest to wspaniale wykonany adamantytowy, plytowy kirys. "+
        "Jego masa oraz wysmienita jakosc surowca sprawiaja, ze "+
        "jest naprawde dobra ochrona tulowia,a metal z ktorego go wykonano "+
        "nadaje mu jakas magiczna moc.\n");
        
    set_ac(A_BODY, 95, 95, 95);

    add_prop(OBJ_I_VALUE, 200);
    add_prop(OBJ_S_WIZINFO, "by Cipa '99\n");

    set_alarm(1.0,0.0,"prop");    
    set_af(this_object());

}
mixed
wear(object armour)
{
    write("Zakladasz powoli psrebrzany adamantytowy kirys i czujesz, ze jestes "+
          "w stanie przeciwstawic sie najsilniejszym mocom.\n");
    say("Kirys zakladany przez  " + QCIMIE(this_player(),PL_DOP)+ " rozblyska na chwile.\n");
    TP->set_stat_extra(SS_CON, 200);
    this_player()->heal_hp(this_player()->query_max_hp()); 
    return 1;
}
mixed
remove(object armour)
{
    object *kogo;
   
    kogo = ({TO->query_worn()});
    kogo[0]->catch_tell("Zdejmujesz kirys, czujesz sie mizerniejszy\n");
    say(" Zdejmujac kirys " + QCIMIE(kogo[0],PL_MIA)+ " staje sie jakby mniejszy w twych oczach.\n");
        TP->set_stat_extra(SS_CON, 0);
  
    return 1;
}