/*
 * Plik : zakon_plytowa.c
 * Autor: Torg
 * Opis : Zbroja plytowa do wykucia w kuzni zakonnej
 * Data : 2002-11-16
 * Mod. : 2002-11-16
 */

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("pelny", "pelni");

    set_long("Jest to ciezka, bardzo dobrze wykonana zbroja. "+
            "Daje ona fantastyczna ochrone, lecz w znacznym stopniu "+
            "krepuje ruchy osoby, ktora ja nosi. Jest wypolerowana na blysk, "+
            "a swiatlo odbijajace sie od niej niemal cie oslepia. "+
            "Po lewej stronie, w miejscu gdzie znajduje sie serce, "+
            "widnieje symbol Sigmara Mlotodzierzcy.\n");

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

    add_prop(OBJ_I_VALUE, 700);
    add_prop(OBJ_S_WIZINFO, "Plytowka zakonna.\n");
    add_prop(CONT_I_WEIGHT,35000);
    add_prop(CONT_I_VOLUME,25000);
    set_af(this_object());
}

int
wear(object ob)
{
    setuid();
    seteuid(getuid());
    write("Powolnymi ruchami przyodziewasz pelna zbroje plytowa.\n");
    say(QIMIE(TP,PL_MIA)+" przyodziewa pelna 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 zbroje plytowa.\n");
    say(QCIMIE(TP,PL_MIA)+" z wysilkiem zdejmuje zbroje.\n");
    TP->remove_subloc(A);
    return 1;
}

string
query_recover()
{
    return 0;
}

string
show_subloc( string subloc, object ob, object obf )
{
    if ( subloc != A ) return "";
    if ( obf == ob ) return "";
    if ( environment(TO)->query_prop("zakonnik") != 1 ) return "";
    return "Piekna, pelna zbroja zdobi jego cialo, a na napiersniku "+
        "spostrzegasz majestatyczny symbol serca spowitego plomieniami.\n";
    return "";
    return MASTER+":";
}