#include <wa_types.h>
#include <stdproperties.h>
#include <pl.h>
#include <macros.h>
inherit "/std/weapon";
#define TO this_object()
#define TP this_player()
void
prop()
{
    add_prop(OBJ_I_VOLUME, 3000);
    add_prop(OBJ_I_WEIGHT, 500);
    add_prop(OBJ_I_VALUE, 900);
    add_prop(CONT_I_VOLUME, 3000);
    add_prop(OBJ_I_WEIGHT, 500);
}
void
create_weapon()
{
    ustaw_nazwe(({"katana", "katany", "katanie", "katane", "katana",
"katanie"}),
                 ({"katany", "katan", "katanom", "katany", "katanami",
"katanach"}),
                PL_ZENSKI);
    set_long("Patrzac na ta katane masz wrazenie jakbys patrzyl na cos znajomego. "+
       "Masa katany jest tak doskonala, ze czujesz jakbys "+
       "trzymal cos znacznie lzejszego niz miecz. Katana wykonana jest z 2 rodzajow "+
       "metalu -twardego i miekkiego. Oby dwie warstwy byly ze soba tak dlugo bite az "+
       "stworzyly jednosc. Na wspanialej rekojesci znajduja sie dziwne wzory. "+
       "Ostrze katany zostalo tak wykonane by przeciac wszystko jednym zamaszystym cieciem.\n");   
      
    dodaj_przym("blyszczaca", "blyszczace");
    dodaj_przym("dluga", "dlugie");
    set_wt(W_SWORD);
    set_dt(W_SLASH);
    set_hands(W_ANYH);
    set_pen(55);
    set_hit(55);
    set_likely_dull(0);
    set_dt(MAGIC_DT);
    add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);
    add_prop(MAGIC_AM_MAGIC, ({ 75, "enchantment"}));



}

mixed
wield(object what)
{
   set_alarm(0.1,0.0,"add_wielder");
   TP->set_skill_extra(0, 40);
   TP->set_skill_extra(30, 50);
   write("Dobywajac tej poteznej broni twoje cialo przepelnia mistyczna energia "+
         ", czujesz sie jakbys mial explodowac.Zapada Ciemnosc...Gdy odzyskujesz wzrok spogladasz na  "+
         "swoja reke i widzisz jak bron zespolila sie z nia, a dziwny plomien okraza cala twoja reke. "+
         "Dusza miecza polaczyla sie z toba w jednosc,twa reka zmienila sie w swietliste ostrze "+       
         "ktore rozetnie wszystko, nawet mur bez najmniejszych problemow.\n");
   say("Z miecza wystrzeliwuje oslepiajace swiatlo, przez chwile nic nie widzisz... "+
       QCIMIE(this_player(),PL_BIE) + " gdy ten dobywa go tworzac z nim zespolona jednosc.\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("Czujesz jakby twoja dusza opuszczala twe cialo, nie mozesz przestac plakac z bolu"+
         "i nagle... po chwili widzisz jak swietliste ostrze przeobraza sie w zwykly miecz\n"); 
   say(QCIMIE(this_player(),PL_MIA)+" krzyczy i placze z bolu,"+
       "gdy dusza swietlistego ostrza wylatuje z jego ciala,ostrze zmienia sie w zwykly miecz.\n");
          
   return 1;
}