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

#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()
object wielder;

create_weapon()
{
ustaw_nazwe(({"monitora", "monitora", "monitorowi", "monitor", "monitorem",
"monitorze"}),
({"monitory", "monitorow", "monitorom", "monitory", "monitorach",
"monitorami"}),
PL_MESKI_NOS_ZYW);
    dodaj_przym("promieniujacy","promieniujace");


    dodaj_przym("potezny","potezne");

set_long("Jest to potezne pudlo wydaje ci sie na zabujcza bron jednak "+
         "nie kazdy moze ja uniesc. Bije od niego gigantyczne promieniowanie "+
         "ktore cie oslepia.\n");


             
    set_likely_dull(0);
    add_prop(OBJ_M_NO_BUY, 1);
    
    add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);
    
    add_prop(OBJ_I_LIGHT, 10);
    
    add_prop(MAGIC_AM_MAGIC, ({ 70, "enchantment"}));
set_hit(73);
set_pen(43);
set_wt(W_POLEARM);
set_dt(MAGIC_DT);

set_hands(W_BOTH);
add_prop(OBJ_I_WEIGHT, 30000);
add_prop(OBJ_I_VOLUME, 30000);
add_prop(OBJ_I_VALUE, 850);
}
mixed
wield(object what)
{
   set_alarm(0.1,0.0,"add_wielder");
   TP->set_skill_extra(0, 30);
   TP->set_skill_extra(23, 30);
   write("Dobywajac poteznego monitora przechodzi przez ciebie dziwna sila "+
         "czujesz sie bardzo dobrze. Patrzac na swoje rece widzisz ze bije od "+
         "nich dziwny blask chyba przejelo cie promieniowanie.\n");
   say("Z monitora wydobywa sie fala promieniowania ktora wchodzi w "+
       QCIMIE(this_player(),PL_BIE) + " gdy ten dobywa go.\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(0, 0);
   TP->set_skill_extra(23, 0);
write("Opuszczajac monitor twoja cialo przez chwile odmawia ci posluszenstwa"+
         " jednak po krotkim czasie wszsytko wraca do normy.\n");
   say(QCIMIE(this_player(),PL_MIA)+" opuszcza monitor i,"+
       " nieruchomieje na moment jednak po chwili wszystko wraca do normy.\n");
          
   return 1;
}