inherit "/std/weapon";

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

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


void
create_weapon()
{
    ustaw_nazwe(({"miecz", "miecza", "mieczowi", "miecz", "mieczem", "mieczu"}),
		({"miecze", "mieczy", "mieczom", "miecze", "mieczami", "mieczach"}),
		PL_MESKI_NZYW);
    dodaj_przym("zakrzywiony", "zakrzywione");
    dodaj_przym("dlugi", "dlugie");
    dodaj_przym("przepiekny", "przepiekne");
    set_long("Od pierwszego spojrzenia widac, ze nie jest to zwyczajna bron. " +
	     "Przepieknie wykonana klinga sciaga na siebie twoje spojrzenie. " +
	     "Widac, ze jest dzielem nielada mistrza... Dluga, ponad metrowa " +
	     "glownia o lekko zakrzywionym ksztalcie. Jednostronne ostrze " +
	     "wykonano z niezwykle twardej hartowanej stali, zas rdzen, plazy " +
	     "i grzbiet z miekszych stopow o wiekszej sprezystosci. Glownie " +
	     "zdobia misternie wykonane roslinne ornamenty pokretnie " +
	     "ukladajace sie w kilku miejscach w jakies niezrozumiale " +
	     "inskrypcje zapisane starszymi runami. Jednak centralne miejsce " +
	     "zajmuje cudownie wytrawiona kilkunastocentymetrowa czapla. " +
	     "Dluga rekosc, choc wykonana wyraznie pozniej i przez innego " +
	     "mistrza takze jest istnym dzielem sztuki, choc niewatpliwie " +
	     "budzi niepokoj. Pieknie wykonany jelec majacy forme kilku " +
	     "splecionych ze soba wezy o krwistoczerwonych rubinowych oczach " +
	     "oraz pokrywajace cala rekojesc dziwne kostropate znaki budza " +
             "groze i nieodparcie kojarza sie z demonologia i zakazana wiedza. " +
	     "Kiedy wreszcie udaje ci sie oderwac oczy od tego majstersztyku " +
	     "czujesz, ze niedobycie tego miecza teraz i tu byloby " +
	     "niewybaczalnym bledem.\n");
    set_hit(48);
    set_pen(56);
    set_wt(W_SWORD);
    set_dt(W_SLASH);
    set_hands(W_BOTH);
    add_prop(OBJ_I_VOLUME, 1300);
    add_prop(OBJ_I_WEIGHT, -10000);
    set_wf(this_object());
}

int
wield(object ob)
{
    write("Z pewna obawa zblizasz swoje dlonie do tego miecza. Dopiero " +
	  "kiedy twoje rece zaciskaja sie na idealnie wyprofilowanej " +
	  "rekojesci wkracza w ciebie pewnosc siebie. Wydaje ci sie, ze " +
	  "zaczynasz odczuwac przyjemny chlod ostrza swiecacego groznym " +
	  "blaskiem... ze miecz powoli laczy sie z toba az staje sie " +
	  "czescia twojego ciala... Szybko nabierasz przekonania, ze " +
	  "doskonale wywazona klinga bezblednie odgadnie twoje mysli " +
	  "i niemalze sama dosiegnie celu.\n");
    say(QCIMIE(TP, PL_MIA) + " z wahaniem zbliza dlonie " +
	  "do " + QSHORT(TO, PL_DOP) + ". Lecz kiedy " + 
	  TP->koncowka("jego", "jej", "jego") + " rece zaciskaja sie na " +
          "rekojesci, " QIMIE(TP, PL_MIA) + "rozluznia sie a w " + 
	  TP->koncowka("jego", "jej", "jego") + " oczach pojawia sie " +
          "oczarowanie i fascynacja.\n");
    return 1;
}

int
unwield(object ob)
{
    write("Kiedy opuszczasz miecz nagle ogarnia cie uczucie dojmujacej " +
	  "pustki i straty... a kiedy twoj wzrok jakos mimowlnie wraca " +
	  "do blyszczacej klingi uzmyslawiasz sobie, ze nie ma " +
	  "wspanialszego uczucia niz trzymac te bron w rekach i sluchac " +
	  "jej przepieknego spiewu...\n");
    say(QCIMIE(TP, PL_MIA) + " opuszcza " + QSHORT(TP, PL_BIE) + " na " +
	TP->koncowka("jego", "jej", "jego") + " pojawia sie oszolomienie, " +
	"a w mimowolnie wracajacych do blyszczacej klingi oczach widac " +
	"tesknote za ponownym jej dobyciem.\n");
    return 1;
}