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

inherit "/std/weapon";
inherit "/cmd/std/command_driver";

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


void
propy()
{
add_prop(OBJ_I_WEIGHT,5000);
add_prop(OBJ_I_VOLUME,5000);
add_prop(CONT_I_WEIGHT,5000);
add_prop(CONT_I_VOLUME,5000);
}


void
create_weapon()
{
ustaw_nazwe(({"beton pompa", "beton pompy", "beton pompie", "beton pompe", "beton pompa", "beton pompie"}),
		({"beton pompy", "beton pomp", "beton pompom", "beton pompy", "betin pompami", "beton pompach"}),
		PL_ZENSKI);
	


    set_long("Jest to wiekowa, zdobiona w piekne ornamenty i zdobienia "+
	"beton pompa - narzedzie kazdego, szanujacego sie betoniarza.\n");

    
    dodaj_przym("wiekowy", "wiekowi");

    set_wt(W_SWORD);
    set_dt(W_BLUDGEON);
    set_hands(W_ANYH);
    set_pen(50);
    set_hit(50);

    set_wf(TO);
    add_prop(OBJ_I_VALUE, 900);
    set_alarm(1.0,0.0,"propy");    
}



string
query_recover()
{
    return 0;
}


void
beton_out( object ob )
{
ob->remove_prop("_live_s_extra_short");
}


int
betonuj( string str )
{
object beton;
object *kogo = parse_this(str,"%l:"+PL_BIE);

    if (!sizeof(kogo))
	{
	write("Betonuj kogo?\n");
	return 1;
	}



    TP->catch_msg("Betonujesz "+QIMIE(kogo[0],PL_BIE)+".\n");
    kogo[0]->catch_msg(""+QCIMIE(TP,PL_MIA)+" zabetonowal cie ze "+
	"swojej beton pompy!\n");

    beton=clone_object("/std/paralyze");
    beton->set_fail_message("Jestes niczym kamienny posag, w dodatku z betonu, "+
	"wiec dokad chcesz isc?\n");
    beton->set_stop_message("Beton kruszy sie.\n");
    beton->set_remove_time(100);
    beton->move(kogo[0]);
    kogo[0]->add_prop("_live_s_extra_short"," zalany betonem");
    set_alarm(100.0,0.0,"beton_out",kogo[0]);
    return 1;

}



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