/*
 * Dla zolnierzy z koszar przerobil Silvy
 * Napisal Elve
 */

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

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

#define A "_tarcza_zakonna"
#define TP this_player()
#define TO this_object()

void
create_armour()
{
    ustaw_nazwe(({ "tarcza", "tarczy", "tarczy", "tarcze",
                   "tarcza", "tarczy" }),
               ({ "tarcze", "tarcz", "tarczom", "tarcze",
                  "tarczami", "tarczach" }), PL_ZENSKI);

    dodaj_przym("trojkatny", "trojkatni" );
    dodaj_przym("szeroki","szerocy");

    set_long("Spora, rycerska tarcza wyglada na bardzo dobrze wykonana. "+
        "W samym centrum, na bialej plycie wymalowano piekne serce spowite "+
        "ogniem, zas rogi pomalowano na zloto.\n");

    set_parry_bonus(20);
    setup_shield(SH_TARCZA, 20);
    set_af(TO);
}

string
query_recover()
{
    return 0;
}

int
wear( object ob )
{
    write("Zakladasz tarcze na swe ramie.\n");
    say(QCIMIE(TP,PL_MIA)+" zaklada na swe ramie piekna tarcze.\n");
    TP->remove_subloc(A);
    TP->add_subloc(A,TO);
    TO->move(TP,A);
    return 1;
}

int
remove( object ob )
{
    write("Zdejmujesz tarcze z ramienia.\n");
    say(QCIMIE(TP,PL_MIA)+" sciaga tarcze z ramienia.\n");
    TP->remove_subloc(A);
    return 1;
}

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 "Na jego tarczy wykuto starozytny mlot, ktorym Sigmar "
           +"zmiazdzyl Chaos.\n";
    return MASTER+":";
}