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(({"miecz", "miecza", "mieczowi", "miecz", "mieczem",
                "mieczu"}), ({"miecze", "mieczy", "mieczom", "miecze",
                "mieczami", "mieczach"}), PL_MESKI_NZYW);
                
    dodaj_przym("runiczny","runiczni");
    dodaj_przym("swietlisty","swietlisci");
    set_long("Bardzo dlugi i niesamowicie wygladajacy miecz. Nie mozesz sie mu " +
             "przyjrzec z bliska, gdyz jakies wewnetrzne swiatlo bijace od niego oslepia cie. " +
             "Jedyna rzecza, ktora mozesz dostrzec sa runy, od zawilych wzorow i znakow " +
             "bije blask innej, troche mniej intensywnej barwy. Ostrze jest w dotyku cieple " +
             "i nie przypomina zadnego znanego ci metalu. Ostrosc broni sprawdzona zostala " +
             "przez twoj palec gdy delikatnie dotknal jednej z ostrych krawedzi, do tej pory " +
             "mozna zobaczyc na twoim lewym kciuku proste, czyste i niestety dosc glebokie " +
             "skaleczenie. W rekojesci zostal zatkniety wielki czerwony rubin. Gdy na niego " +
             "spogladasz lekkie swiatlo wydaje sie pulsowac w srodku, powoli czujesz jak " +
             "swiat zaczyna wirowac. Slyszysz cichy glos w glowie: 'Jestem gloooodnyyy...' " +
             "i nagle dziki wrzask: 'CHCE KRWIIII!!!!!'. Dziala to na ciebie jak kubel " +
             "zimnej wody wylany na glowe i wychodzisz z hipnotycznego stanu. Coz za niesamowita " +
             "bron.\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(47);
    set_pen(44);
    set_wt(W_SWORD);
    set_dt(W_SLASH);
    set_hands(W_ANYH);
    add_prop(OBJ_I_WEIGHT, 1500);
    add_prop(OBJ_I_VOLUME, 2000);
    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("Ostrze miecza rozblyska kolorowym swiatlem, oslepiajac cie na chwile.\n");
   say("Ostrze runicznego smietlistego miecza rozblyska wielokolorowym blaskiem gdy "+
       QCIMIE(this_player(),PL_MIA) + " 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("Switliste ostrze przygasa gdzy opuszczasz swa wspaniala bron.\n");
   say(QCIMIE(this_player(),PL_MIA)+" opuszcza swoj runiczny swietlisty miecz, "+
       "ostrze prawie calkowicie wyzbya sie blasku.\n");     
   return 1;
}