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(({"zbroja plytowa", "zbroi plytowej", "zbroi plytowej", 
                  "zbroje plytowa", "zbroja plytowa", "zbroi plytowej" }),
                ({"zbroje plytowe", "zbroi plytowych", "zbrojom plytowym",
                  "zbroje plytowe", "zbrojami plytowymi", "zbrojach
plytowych"}), PL_ZENSKI);
    dodaj_przym("kruczoczarny","kruczoczarni");
    dodaj_przym("swietlisty","swietlisci");
    set_long("Jedno z najlepszych dziel sztuki kowalskiej " +
             "jaka istnieje na tym swiecie. Zbroja ta jest wykonana " +
             "czystego mithrilu. Jasniejace kawalki bezcennej blachy " +
             "sa nieskazitelne. Nie ma na nich ani jednego zadrapania. " +
             "Na samym srodku zbroi wygrawerowany jest wspamial runa " +
             "zastanawia Cie co ona moze oznaczac. Po chwili dochodzisz " +
             "do wniosku, ze jest to znak wyznawcow Malala. " +
             "Zbroja ta, wyglada na nie zniszczalna, lecz mozesz " +
             "sie mylic, lecz napewno jest bardziej wytrzymala od innych.\n");
    add_prop(MAGIC_AM_MAGIC, ({ 100, "enchantment"}));         
    set_ac(A_BODY, 60, 60, 60, A_ARMS, 60, 60, 60, A_LEGS, 60, 60, 60);
    add_prop(OBJ_I_VALUE, 120000);
    this_object()->set_af(this_object());
    add_prop(OBJ_I_WEIGHT, 4500);
    add_prop(OBJ_I_VOLUME, 1600);
    set_likely_cond(0);
    set_likely_break(0);
}
mixed
wear(object armour)
{
   write("Probujesz zalozyc zbroje, lecz ona jest na Ciebie za mala. " +
        "Po chwili jednak, kiedy na nia patrzysz rozszerza sie, tak, ze " +
        "jest wspaniale przystosowana do zalozenia. Zakladasz. " +
        "Czujesz nie samowita energie, ktora przechodzi przez Twoje cialo .\n");
  say(QCIMIE(this_player(),PL_MIA)+ " proboje zalozyc " +short(PL_MIA)+ ", lecz " +
   "jest na niego za mala. Obserwujesz go dalej. Widzisz jak zbroja ta " +
   "zaczyna sie rozszerzac, do tego stopnia, ze jest doskonale przystosowana " +
   "dla niego. Zaklada ja, widzisz jak jego cialo zaczyna drzec po czym przestaje.\n");
    return 1;
}
mixed
remove(object armour)
{
    object *kogo;
   
    kogo = ({TO->query_worn()});
    kogo[0]->catch_tell("Zdejmujesz cudowna zbroje. Czujesz jak sily Cie opuszczaja " +
                        "wraz z magiczna moca, ktora otrzymales.\n");
  say("Nagle " +short(PL_MIA)+ " spada z ciala " + QCIMIE(kogo[0],PL_DOP)+ " widzisz " +
    "jak opuszczaja go sily.\n");
    return 1;
}