inherit "/d/Imperium/std/weapon";

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

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

void
create_weapon()
{
   ustaw_nazwe( ({ "maczuga", "maczugi", "maczudze", "maczuga", "maczuga",
                   "mczaudze" }), ({ "maczugi", "maczug", "maczugom",
                   "maczugi", "maczugami", "maczugach" }), PL_ZENSKI);

     
    dodaj_przym("czarny","czarni");
    dodaj_przym("zardzewialy","zardzewiali");
    
    
 
   set_long("Potezna maczuga, wykonana z stopu nieznanych ci metali. Obecnie pokryta "+
            "rdza przez ktora gdzie niegdzie mozna dostrzec delikatne zdobienia prawdopodobnie "+
            "elfickiego wykonania. Mimo swojej powierchownosci nadal jest to zabojcza bron szczegolnie w rekach silnej osoby.\n");

            set_hit(50);
            set_pen(51);
            
              likely_dull = 0;
              likely_corr = 0;
            
            set_wt(W_CLUB);
            set_dt(W_BLUDGEON);
            set_hands(W_BOTH);             
            add_prop(OBJ_I_WEIGHT, 800);
            add_prop(OBJ_I_VOLUME, 500);
            add_prop(OBJ_I_VALUE, 601);
            add_prop(MAGIC_AM_MAGIC, ({33, "enchantment"}));
            add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);  
            set_wf(this_object());                                 

}

public int
did_hit( int aid, string hdesc, int phurt, object enemy, int dt, int phit, int dam, int tohit, mixed def_ob, object armour)
{
	int pen;
	int r = random(100);
	

        if ( r < 20 )
	
	{
		
	pen = (((TP->query_stat(0)))/8);
        
        if(TP->query_stat(0) > 130)
	

	{
		enemy->hit_me(pen, W_BLUDGEON, 50, TP);
		
		TP->catch_msg("Czujesz jak z maczugi w twe cialo wkrada sie jakas obca sila "+
		              "przejmujac nad nim kontrole i powodujac barbarzynski cios w kierunku zaskonczonego "+
		              "wroga!\n");
		
		enemy->catch_msg(""+QCIMIE(TP,PL_MIA)+"nagle rzuca sie w twym kierunku uderzajac swa potezna maczuga!\n");
			
		tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" nagle rzuca sie w kierunku "+QIMIE(enemy,PL_DOP)+" zadajac potezny cios!\n",({TP,enemy}));
			
	}
 
 	::did_hit(aid,hdesc,phurt,enemy,dt,phit,dam,tohit,def_ob,armour);
        }
	


}