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

#include <wa_types.h>
#include <macros.h>
#include <stdproperties.h>

#define TP              this_player()
#define TO              this_object()

void
create_weapon()
{
   ustaw_nazwe( ({ "sztylet", "sztyletu", "sztyletowi", "sztylet", "sztyletem",
                   "sztylecie" }), ({ "sztylety", "sztyletow", "sztyletom",
                   "sztylety", "sztyletami", "sztyletach" }), PL_MESKI_NOS_NZYW);

     
    dodaj_przym("srebrzysty","srebrzysci");
    dodaj_przym("opalizujacy","opalizaujacy");
    
 
   set_long("Pieknie wykonany sztylet o dwustronnym ostrzu z lekkim skrzywienem na koncu. "+
            "Rekojesc wykonana jest z mithrylu a ostrze z jakiegos nieznanego topbie srebrnego stopu."+
            "Calosc sprawia wrazanie doskonale wywazonej i smiertelnej broni. Pod pewnym kontem swiatla "+
            "dostrzegasz herb Kislevu wygrawerowany na ostrzu.\n");

            set_hit(49);
            set_pen(51);
            
              likely_dull = 0;
              likely_corr = 0;
            
            set_wt(W_KNIFE);
            set_dt(W_IMPALE);
            set_hands(W_ANYH);             
            add_prop(OBJ_I_WEIGHT, 800);
            add_prop(OBJ_I_VOLUME, 500);
            add_prop(OBJ_I_VALUE, 601);
            add_prop(MAGIC_AM_MAGIC, ({33, "enchantment"}));
            add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);  
            set_wf(this_object());                                 

}

  
 mixed
wield(object ob)
{
    
     write("Dobywajac tej wspanialej broni czujesz jakby obca sile wspomagajaca twe zdolnosci "+
           "walki.\n");
            
   say("Nagle "+QCIMIE(TP,PL_MIA)+" staje sie bardzo pewny siebie.\n");
    
    TP->set_skill(3, TP->query_skill(3) + 10);
    TP->set_skill(24, TP->query_skill(24) + 10);
    TP->set_skill(23, TP->query_skill(23) + 10);
    
     return 0;

}

mixed
unwield(object ob)
{

  
                 write("Opuszczasz swa wspaniala bron.\n");
                say(""+QCIMIE(TP,PL_MIA)+" opuszcza swoja bron z westchnieniem smutku.\n");
  
    
    TP->set_skill(3, TP->query_skill(3) - 10);
    TP->set_skill(24, TP->query_skill(24) - 10);
    TP->set_skill(23, TP->query_skill(23) - 10);


        return 0;
}