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( ({ "flamberg", "flamberga", "flambergowi", "flamberg",
                    "flambergiem","flambergu" }), ({ "flambergi", 
                    "flambergow", "flambergom", "flambergi", 
                    "flambergami", "flambergach" }), PL_MESKI_NOS_NZYW);
    dodaj_nazwy(({"miecz", "miecza", "mieczowi", "miecz", "mieczem",
                  "mieczu"}), ({"miecze", "mieczy", "mieczom", "miecze",
                  "mieczami", "mieczach"}), PL_MESKI_NZYW);
                
    dodaj_przym("plomienisty","plomienisci");
    dodaj_przym("karmazynowy","karmazynowi");
    set_long("Miecz zostal wykuty z jednego z najtwardszych metali " +
             "znanych w starym swiecie, adamantytu. Przygladajac sie " +
             "blizej ostrzu, koloru krwistej czerwieni zauwazasz, " +
             "ze mieni sie dziwnym wewnetrznym blaskiem. Bron ta " +
             "jest niezwyklym rodzajem flamberga, gdyz zostala " +
             "stworzona do jednorecznego chwytu. Miecz jest mimo tego " +
             "masywny i wladanie nim nie jest prostym zadaniem, " +
             "zwlaszcza dla cherlakow. Rekojesc jest dosc dluga i " +
             "bardzo dobrze wyprofilowana choc juz lekko zluzyta. " +
             "Glownia rzezbiona na ksztalt konskiej glowy prezentuje " +
             "sie nadzwyczaj okazale.\n");
             
    add_item("ostrze","Ostrze rozblyska jasnoczerwonymi plomieniami gdy " +
             "dobywasz tego wspanialego miecza.\n");          
    add_item("rekojesc","rekojesc jest dluga, pokryta skora jakiegos " +
             "nieznanego ci zwierzecia.\n");   
    add_item("glownie","glownia wyrzezbiona jest misternie przez nielada " +
             "artyste. Przedstawia ona konska glowe z nieprawdopodobnie " +
             "dopracowanymi detalami.\n");            
    set_likely_dull(1);
    add_prop(OBJ_M_NO_BUY, 1);
    
    add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);
    
    add_prop(MAGIC_AM_MAGIC, ({ 40, "enchantment"}));
    set_hit(45);
    set_pen(50);
    set_wt(W_SWORD);
    set_dt(W_SLASH | W_IMPALE);
    set_hands(W_RIGHT);
    add_prop(OBJ_I_WEIGHT, 9500);
    add_prop(OBJ_I_VOLUME, 9000);
    add_prop(OBJ_I_VALUE, 1300);
}    
mixed
wield(object what)
{  
    if (TP->query_stat(0) < 100)
    {
	return "Twa sila jest niewystarczajaca by wladac tak potezna " +
	       "bronia.\n";
    }
   set_alarm(0.1,0.0,"add_wielder");
   write("Ostrze rozblyska jasnoczerwonymi plomieniami gdy dobywasz " +
         "tego wspanialego miecza.\n");
   say("Gdy "+ QCIMIE(this_player(),PL_MIA) +" dobywa swego miecza " +
       "rozblyska on jasnoczerwonymi plomieniami.\n");
   TP->set_combat_speed(TP->query_comabt_speed()+20);
   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("Plomienie gasna gdy opuszczasz swoj wspanialy miecz.\n");
   say("Plomienie na mieczu gasna gdy "+ (QCIMIE(this_player(),PL_DOP)+" opuszcza go.\n"));     
   TP->set_combat_speed(TP->query_comabt_speed()-20);
   return 1;
}