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("mithrilowy","mithrilowi");
    dodaj_przym("swietlisty","swietlisci");
    set_long("Jedno z najpiekniejszych dziel sztuki jakie kiedykolwiek " +
             "udalo ci sie ujrzec. Pelna zbroja plytowa wykonana z " +
             "czystego mithrilu. Jasniejace kawalki bezcennej blachy " +
             "sa nieskazitelne. Nie ma na nich ani jednej rysy. Na " +
             "kirysie wygrawerowany jest wspamialy mlot, inkrustowany " +
             "zlotem. Zbroja mimo swej calej masynosci i potegi jest " +
             "nadzwyczaj lekka. Miekka skora, ktora jest wyscielona " +
             "pozwala noszac ta zbroje na wykonywanie wszystkich " +
             "normalnych czynnosci bez potrzeby jej zdejmowania.\n");
    add_prop(MAGIC_AM_MAGIC, ({ 100, "enchantment"}));         
    set_ac(A_BODY, 52, 52, 52, A_ARMS, 50, 50, 50, A_LEGS, 50, 50, 50);
    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("Gdy tylko masz zamiar zalozyc zbroje ona jakby odczytujac " +
          "twe zamiary rozpada sie na drobne kawaleczki. Po chwili, " +
          "jeden po drugim zaczynaja przyklejac sie do twego ciala. " +
          "W momecie gdy juz ostatnia czesc przylepila sie do ciebie, widzisz " +
          "biale liny, stworzone z czystej energii, ktore zespalaja " +
          "zbroje w jedna calosc. Po zakonczeniu tego procesu, czujesz " +
          "sie niezwyciezony.\n");
    say(QCIMIE(this_player(),PL_MIA)+ " upuszcza " +short(PL_MIA)+ " na ziemie. " +
        "Zbroja rozsypuje sie na czesci. W pewnym momecie, kazda kolejna " +
        "wzlatuje w powietrze i przykleja sie do " + QCIMIE(this_player(),PL_DOP)+ ". " +
        "Po chwili gdy proces sie zakonczyl pojawiaja sie jakby z innego swiata, " +
        "biale, jasniejace swiatlem liny, ktore lacza zbroje w jedna calosc.\n");
    return 1;
}
mixed
remove(object armour)
{
    object *kogo;
   
    kogo = ({TO->query_worn()});
    kogo[0]->catch_tell("Zbroja nagle odpada z twego ciala. Szybko zbierasz kazda " +
                                    "czesc, ktora spadla z loskotem na ziemie.\n");
    say("Nagle " +short(PL_MIA)+ " noszona przez " + QCIMIE(kogo[0],PL_DOP)+ " spada " +
        "z loskotem na ziemie. W mgnieniu oka " + QCIMIE(kogo[0],PL_MIA)+ " zbiera " +
        "bezcenne czesci ekwipunku.\n");
    return 1;
}