inherit "/std/armour";
inherit "/cmd/std/command_driver";

#include <pl.h>
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>

#define A "_plytowka_zakonna_"
#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", "zbroj plytowych", "zbrojom plytowym",
                "zbroje plytowe", "zbrojami plytowymi", "zbrojach plytowych"}),
                PL_ZENSKI);

    dodaj_nazwy(({"zbroja", "zbroi", "zbroi", "zbroje", "zbroja", "zbroi"}),
                ({"zbroje", "zbroj", "zbrojom", "zbroje",
                "zbrojami", "zbrojach"}), PL_ZENSKI);

    dodaj_przym("starozytna", "starozytne");

    set_long("Wykuta z czarnego metalu zbroja jest bardzo skuteczna ochrona "+
            "praktycznie calego ciala. Misterne wykonanie moze swiadczyc jedynie o  "+
            "tym iz osoba wykuwajaca ja nalezy do najlepszych runicznych kowali. "+
            "Dziwne runy pokrywajace przednia czesc napiersnika pozwalaja sadzic iz podczas kucia "+
            "zostala uzyta bardzo potezna magia. Jak na zbroje plytowa jest "+
            "Jak na zbroje plytowa jest dosyc ciezka a co za tym idzie, krepujaca i utrudniajaca ruchy.\n");

    set_ac(A_BODY, 70, 70, 70,
           A_R_ARM, 70, 70, 70,
           A_L_ARM, 70, 70, 70,
           A_LEGS,70,70,70);

    add_prop(OBJ_I_VALUE, 900);
    add_prop(CONT_I_WEIGHT,25000);
    add_prop(CONT_I_VOLUME,15000);
    set_af(this_object());
}

int
wear(object ob)
{
    setuid();
    seteuid(getuid());
    write("Powolnymi ruchami przyodziewasz starozytna zbroje plytowa.\n");
    say(QIMIE(TP,PL_MIA)+" przyodziewa starozytna zbroje plytowa.\n");
    TP->remove_subloc(A);
    TP->add_subloc(A,TO);
    TP->move(TP,A);
    return 1;
}

int
remove( object ob )
{
    write("Z wysilkiem zdejmujesz z siebie starozytna zbroje plytowa.\n");
    say(QCIMIE(TP,PL_MIA)+" z wysilkiem zdejmuje starozytna zbroje plytowa.\n");
    TP->remove_subloc(A);
    return 1;

}