inherit "/std/armour.c";
#include <pl.h>
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>


#define TP this_player()
#define TO this_object()

int rog=0;

void
prop()
{
add_prop(OBJ_I_WEIGHT,2000);
add_prop(OBJ_I_VOLUME,1000);
add_prop(CONT_I_WEIGHT,2000);
add_prop(OBJ_I_VOLUME,1000);

}

void
create_armour()
{


    ustaw_nazwe( ({ "przylbica", "przylbicy", "przylbicy", "przylbice", "przylbica",
                   "przylbicy" }), ({ "przylbice", "przylbic", "przylbicom",
                   "przylbice", "przylbicami", "przylbicach" }), PL_ZENSKI);

    dodaj_przym("polyskujacy","polyskujacy");
    dodaj_przym("adamantytowy","adamantytowi");
    

    set_long("Wielki helm zachwyca cie kunsztem wykonania. Zamatowane "+
        "do niego wielkie, zlote rogi moga nieco utrudniac poruszanie sie, "+
        "aczkolwiek w walce moze to pokusic przeciwnika o ucieczke. "+
        " To co od razu przykuwa twa uwage, to olbrzymi rog, z pewnoscia "+
        "moznaby na niego kogos nadziac.\n");
            
    set_ac(A_HEAD, 70, 70, 70);

    add_prop(OBJ_I_VALUE, 200);
    add_prop(OBJ_S_WIZINFO, "by Cipa '99\n");

    set_alarm(1.0,0.0,"prop");    

}

string
query_recover()
{
    return 0;
}



mixed
wear(object armour)
{
    write("Zakladasz adamantytowa przylbice poprawiajac umieszczony centralnie rog.\n");
    say(QCIMIE(this_player(),PL_MIA)+ " zaklada przylbice poprawiajac sterczacy rog.\n");

    return 1;
}
mixed
remove(object armour)
{
    object *kogo;
   
    kogo = ({TO->query_worn()});
    kogo[0]->catch_tell("Zdejmujesz przylbice, spogladajac tesknie na nia.\n");
    say(" Zdejmujac przylbice " + QCIMIE(kogo[0],PL_MIA)+ " spoglada na nia tesknie.\n");
        TP->set_stat_extra(SS_CON, -200);
  
    return 1;
}
int
nadziej( string str )
{
object wrog;
    if (!TP->query_attack())
        {
        write("Nie walczysz z nikim!\n");
        return 1;
        }
    if (rog==1)
        {
        write("Tylko raz mogles kogos nadziac, rog zostal uszkodzony.\n");
        return 1;
        }
        
        wrog = TP->query_attack();
        
        
    if (!str)
        {
        TP->catch_msg("Wykonujesz powolny zamach swoim poteznym "+
            "rogiem na przylbicy i trafiasz "+QIMIE(wrog,PL_BIE)+" raniac "+
            "dosc mocno.\n");
        tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wykonuje "+
            "powolny zamach swoim poteznym rogiem trafiajac "+
            ""+QIMIE(wrog,PL_BIE)+" i raniac go niezbyt mocno.\n",({TP,wrog}));
        wrog->catch_msg(""+QCIMIE(TP,PL_MIA)+" wykonuje powolny zamach "+
            "swoim porozem trafiajac cie w korpus i raniac niezbyt mocno.\n");
        wrog->reduce_hit_point(2000);
        
        rog=1;
        set_alarm(10.0,10.0,"ublok");
        return 1;
        }
        
        
write("Nadziej?\n");
return 1;

}


void
init()
{
::init();
add_action("nadziej","nadziej");
}