inherit "/d/Imperium/std/weapon";
object wielder;
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <formulas.h>
#include <filter_funs.h>
#include <options.h>
#define TP              this_player()
#define TO              this_object()
void
create_weapon()
{
    ustaw_nazwe(({"mlot", "mlota", "mlotowi", "mlot", "mlotem",
                "mlocie"}), ({"mloty", "mlotow", "mlotom", "mloty",
                "mlotami", "mlotach"}), PL_MESKI_NZYW);
                
    dodaj_przym("gigantyczny","gigantyczni");
    dodaj_przym("kruczoczarny","kruczoczarni");
    set_long("Gigantyczny mlot bojowy wykonany z jakiegos nie znanego ci, kruczoczarnego " +
             "materialu. Jest bardzo lekki jak na jego wielkosc i poslugiwanie sie nim nie " +
             "powinno sprawic problemu nawet niezbyt wprawnym wojownikom.\n");
             
    set_likely_dull(0);
    add_prop(OBJ_M_NO_BUY, 1);
    
    add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);
    
    add_prop(MAGIC_AM_MAGIC, ({ 90, "enchantment"}));
    set_hit(44);
    set_pen(57);
    set_wt(W_WARHAMMER);
    set_dt(W_BLUDGEON);
    set_hands(W_ANYH);
    add_prop(OBJ_I_WEIGHT, 1500);
    add_prop(OBJ_I_VOLUME, 6000);
    add_prop(OBJ_I_VALUE, 8500);
}
mixed
wield(object what)
{
   set_alarm(0.1,0.0,"add_wielder");
   TP->set_skill_extra(5, 30);
   TP->set_skill_extra(24, 30);
   write("Z mlota, ktorego wlasnie dobyles zaczyna wydobywac sie dziwny wibrujacy dzwiek. " +
         " Nagle czujesz, ze potrafisz lepiej poslugiwac sie bronia i do tego swiat lekko " +
         "zwolnil dzieki czemu bedzie ci latwiej unikac ciosow.\n");
   say( "Powoli "+ QCIMIE(this_player(),PL_MIA) +" dobywa gigantycznego kruczoczarnego mlota. Nagle " +
       "slyszysz jakis dziwny wibrujacy dzwiek a " + QCIMIE(this_player(),PL_MIA) + " zaczyna " +
       "poruszac sie jakby szybciej.\n");
   return 1;
}
void
add_wielder()
{
    wielder = environment(this_object());
}
object
query_wielder()
{
    return wielder;
}    
mixed
unwield(object what)
{
   set_this_player(wielder);
   if(environment(this_object())!=wielder) 
       return 1;
   TP->set_skill_extra(5, 0);
   TP->set_skill_extra(24, 0);
   write("Wszystko zgaslo. Cala twa potezna moc, ktorej dostarczyl ci ten artefakt uleciala " +
         "jak poranna mgielka. Chcesz go dobyc spowrotem...BARDZO CHCESZ!!!\n");
   say(QCIMIE(this_player(),PL_MIA)+" opuszcza swoj gigantyczny kruczoczarny mlot i ku twojemu " +
         "zaskoczeniu po policzku osoby, ktora byla tak potezna splywa krystalicznie czysta lza.\n");     
   return 1;
}