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("srebrzysty","srebrzysci");
    dodaj_przym("zdobiony","zdobieni");
    set_long("Wspanialy okaz broni. Ostrze jest bardzo dlugie i wykonane " +
             "z najprzedniejszej stali. Zdobienia na calej jego dlugosci " +
             "sa wspaniale, przedstawiaja zawile roslinne motywy. Rekojesc " +
             "zrobiona ze skory jakiegos gada pozwala utrzymac miecz w " +
             "gotowosci nawet gdy jest mokry. Na taszce dostrzegasz jakis " +
             "dziwny, inkrustowany platyna rysunek. W glowni miecza osadzony " +
             "jest krwistoczerwony rubin.\n");
             
             
    add_item(({"glownie","rubin"}),"Rubin osadzony w glowni jest dosc duzy " +
               "i mieni sie w swietle. Wartosc tego kamienia jest napewno " +
               "wysoka ale wyjecie go z miecza spowodowalo by, ze ten " +
               "przestal by byc tak wspanialym orezem.\n");
    add_item("rysunek","Przedstawia dziwne, zawile runy. Moze uda ci sie je " +
             "odczytac.\n");           
    add_cmd_item(({"znaki","runy"}),"odczytaj","@@znaki");
    set_likely_dull(3);
    add_prop(OBJ_M_NO_BUY, 1);
    
    add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);
    
    add_prop(MAGIC_AM_MAGIC, ({ 40, "enchantment"}));
    set_hit(46);
    set_pen(37);
    set_wt(W_SWORD);
    set_dt(W_SLASH | W_IMPALE);
    set_hands(W_ANYH);
    add_prop(OBJ_I_WEIGHT, 1500);
    add_prop(OBJ_I_VOLUME, 1000);
    add_prop(OBJ_I_VALUE, 8500);
}    
string
znaki()
{
    write("Runy sa zbyt zawile aby je odczytac.\n");
    say(QCIMIE(this_player(),PL_MIA) + " przyglada sie swemu mieczowi.\n");
    return"";
}
mixed
wield(object what)
{
   set_alarm(0.1,0.0,"add_wielder");
   write("Ostrze, gdy go dobywasz wydaje sie o wiele lzejsze, dzieki " +
         "czemu latwiej jest sie nim poslugiwac.\n");
   say("Gdy "+ QCIMIE(this_player(),PL_MIA) +" dobywa swojego miecza " +
       "na jego twarzy wykwita najpierw zdumienia a pozniej lekki " +
       "usmieszek.\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;
   write("Gdy opuszczasz miecz czujesz nostalgie do tak wspanialego ostrza.\n");
   say("Na twarzy "+ (QCIMIE(this_player(),PL_MIA)+" ukazuje sie dziwny " +
       "nostalgiczny wyraz gdy opuszcza swoj miecz.\n"));     
   return 1;
}