inherit "/std/armour";
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <formulas.h>
#include <filter_funs.h>
#include <options.h>
#include <pl.h>
#define TP              this_player()
#define TO              this_object()
void
create_armour()
{
    ustaw_nazwe(({"szata","szaty",
                  "szacie","szate",
                  "szata","szacie"}),
                ({"szaty","szat",
                  "szatom","szaty",
                  "szatami","szatach"}),PL_ZENSKI);
    dodaj_przym("swiety","swieci");
    dodaj_przym("perlowy","perlowi");
    set_long("Wspaniala, perlowej barwy szata wydaje sie mienic jakims " + 
             "wewnetrznym swiatlem.\n");
    add_prop(MAGIC_AM_MAGIC, ({ 70, "enchantment"}));         
    set_ac(A_BODY, 20, 20, 20, A_HEAD, 10, 20, 20, A_LEGS, 10, 20, 20);
    set_slots(A_ROBE);
    add_prop(OBJ_I_VALUE, 7500);
    this_object()->set_af(this_object());
    add_prop(OBJ_I_WEIGHT, 500);
    add_prop(OBJ_I_VOLUME, 1600);
    set_likely_cond(0);
    set_likely_break(0);   
}             
mixed
wear(object armour)
{
    write("Otulasz swe cialo ta swieta szata i czujesz wzbierajaca w " +
          "tobie moc.\n");
    say("W momecie gdy " +QCIMIE(this_player(),PL_MIA)+ " otula " +
        "sie swa wspaniala szata cala okolica rozblyska swieta moca.\n");
    return 1;
}
mixed
remove(object armour)
{
    object *kogo;
   
    kogo = ({TO->query_worn()});
    kogo[0]->catch_tell("W momecie gdy zdejmijesz szate twa moc odplywa jak " +
                   "poranna mgielka.\n");
    say("W momecie gdy " + QCIMIE(kogo[0],PL_MIA)+ " zdejmuje swa " +
        "wspaniala szate swiat dookola wydaje sie ciemniec na moment.\n");
    return 1;
}