#pragma strict_types
inherit "/std/weapon";

#include <filter_funs.h>
#include <ss_types.h>
#include <wa_types.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <cmdparse.h>
#include <macros.h>
#include <pl.h>
#include <options.h>
#include <macros.h>
#include <formulas.h>
#include <const.h>

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

int ktory_cios;

object wielder;

string
query_recover()
{
    return 0;
}

string
query_auto_load()
{
    return MASTER;
}

void
create_weapon()
{


   ustaw_nazwe(({ "cinquenda", "cinquendy", "cinquendzie", "cinquende", "cinquenda", "cinquendzie" }),
               ({ "cinquendy", "cinquend", "cinquendom", "cinquendy", "cinquendami", "cinquendach" }),
               PL_ZENSKI);

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


    dodaj_przym("polyskliwy","polyskliwi");
    dodaj_przym("srebrny","srebrni");

    set_long("Dlugi opis Cinquendy.\n");

   
            set_hit(45);

            set_pen(40);

            add_prop(OBJ_I_IS_MAGIC_WEAPON, 1);

            
            set_wt(W_KNIFE);

            set_hands(W_ANYH);

            set_dt(W_SLASH);

                      
            add_prop(OBJ_I_WEIGHT, 2500);

            add_prop(OBJ_I_VOLUME, 2000);
  this_object()->add_prop(OBJ_I_NO_DROP, "Nie chcesz chyba by miecz przejal ktos obcy\n");
  this_object()->add_prop(OBJ_I_NO_GIVE, "Nie chcesz chyba by miecz ktos inny posiadal niz ty");
  object *ja = FILTER_LIVE(all_inventory(environment(this_player()))) - ({ this_player() });
}

int did_hit(int aid, string hdesc, int phurt, object enemy, int dt, int phit, int dam)
{
        object *ja = FILTER_LIVE(all_inventory(environment(this_player()))) - ({ this_player() });
        int i;
        mixed* rezultat;
        string jak;
        ::did_hit();
        
        if (ktory_cios < CO_ILE) ktory_cios++;
        
        if ((this_player()->query_stat(SS_DEX) > 60) && (ktory_cios == CO_ILE))
        {
         rezultat=enemy->hit_me( 2* ( ( this_player()->query_stat(SS_DEX) + this_player()->query_stat(SS_WIS) ) ), 50,
W_SLASH, ja, -1);

         ja -= ({enemy});
         
         jak = "prawie niezauwazalnie";
         if (rezultat[0] > 5) jak = "nieznacznie";
         if (rezultat[0] > 8) jak = "bardzo lekko";
         if (rezultat[0] > 10) jak = "lekko";
         if (rezultat[0] > 15) jak = "widocznie";
         if (rezultat[0] > 20) jak = "dosc mocno";
         if (rezultat[0] > 25) jak = "mocno";
         if (rezultat[0] > 30) jak = "dotkliwie";
         if (rezultat[0] > 40) jak = "powaznie";
         if (rezultat[0] > 50) jak = "ciezko";
         if (rezultat[0] > 55) jak = "bardzo ciezko";
         if (rezultat[0] > 60) jak = "poteznie";

         
         if (enemy->query_hp() <= 0)
         {
                this_player()->catch_msg("Nagle ostrze twojej cinquendy zaczyna dziwnie blyszczec "
                +"a bron wiedziona jakby nadludzka sila uderza celnie i smiercionosnie twojego " 
                +"przeciwnika. W oczach zauwazasz przerazenie, fontanna krwi nagle tryska z ust "
                +"a cialo bezwladnie osuwa sie po ostrzu twojej broni.\n");

                
                enemy->catch_msg("Nagle ostrze sztyletu dzierzonego przez " + QIMIE(this_player(), PL_BIE) 
                +" rozblyska jakims magicznym swiatlem. Zdziwion" + this_player()->koncowka("y","a")
                +" jakby tym faktem " + QIMIE(this_player(),PL_MIA) + " spoglada na bron, ktora "
                +"celnie i smiercionosnie wbija sie w twoje cialo. Czujesz jak ostrze penetruje "
                +"twoje wnetrze i sieje spustoszenie posrod organow. Ostatnim widokiem jaki zapamietujesz "
                +"jest blyszczaca nieludzko cinquenda w rekach przeciwnika.\nPotem nie ma juz nic...\n");

                
                for(i=0;i<sizeof(ja);i++)
                {
                        ja[i]->catch_msg("Nagle ostrze sztyletu dzierzonego przez " + QIMIE(this_player(), PL_BIE)
                        +" rozblyska jakims magicznym swiatlem. Zdziwion" + this_player()->koncowka("y","a")
                        +" jakby tym faktem " + QIMIE(this_player(),PL_MIA) + " spoglada na bron, ktora "
                        +"celnie i smiercionosnie wbija sie w cialo przeciwnika. Z ust "+QIMIE(enemy,PL_DOP)+
                        "tryska fontanna krwi podczas gdy ostrze cinquendy sieje spustoszenie posrod organow "
                        +"wewnetrznych.\n "+QIMIE(enemy,PL_MIA)+" pada na kolana, chwieje sie chwile "
                        +"po czym upada na ziemie w kaluzy krwi.\n");
 
                }
                
                enemy->do_die(this_player());
                return 1;

         
         }
         
         enemy->catch_msg("Nagle ostrze sztyletu " + QIMIE(this_player(), PL_DOP)
         +" rozblyska dziwnym, magicznym swiatlem. Zdziwion" + this_player()->koncowka("y","a")
         +" jakby tym faktem " + QIMIE(this_player(),PL_MIA) + " spoglada na bron, ktora "
         +"wiedziona jakas nadludzka sila wbija sie w twoje cialo raniac cie "+jak+".\n");

         this_player()->catch_msg("Ostrze twojej cinquendy rozblyska nagle magicznym swiatlem. "
         +"Rekojesc przykleja sie do twojej reki, a sztylet zaczyna prowadzic twoja dlon.\n"
         +"Z niejakim zdziwieniem spogladasz na bron, ktora celnie trafia przeciwnika, raniac go "
         +jak+".\n");

         
         for(i=0; i<sizeof(ja); i++)
         {
                ja[i]->catch_msg("Nagle ostrze sztyletu " + QIMIE(this_player(), PL_DOP)
                +" rozpala sie magicznym swiatlem. Zdziwion" + this_player()->koncowka("y","a")
                +" jakby tym faktem " + QIMIE(this_player(),PL_MIA) + " spoglada na bron, ktora "
                +"przeszywa cialo "+QIMIE(enemy,PL_DOP)+" raniac "
                +enemy->koncowka("go", "ja")+" " + jak + ".\n");

         }
         
         return 2;

       
       }
       
       return 0;


}
mixed wield(object what)
{
   set_alarm(0.1,0.0,"add_wielder");

   
   this_player()->set_skill_extra(0, 30);
   this_player()->set_skill_extra(23, 30);

   write("Gdy dobywasz sztyletu, ostrze rozblyskuje dziwnym, magicznym blaskiem, ktore na chwile "
   +"cie oslepia. Po chwili jednak wszystko wraca do normy...\n");
   say(QCIMIE(this_player(),PL_MIA)+" dobywa sztyletu i unosi go w gore. Ostrze rozjarza sie dziwnym blaskiem, "
   +"a w oczach " + QCIMIE(this_player(),PL_DOP) + " dostrzegasz fanatyczny obled.\nPo chwili jednak wszystko wraca do normy.\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("Opuszczasz sztylet i czujesz, jakby cos wyrywalo czesc ciebie. Pragniesz ponownie dobyc broni, "
   +"aby moc walczyc.\n");

   say(QCIMIE(this_player(),PL_MIA)+" opuszcza sztylet. W " + this_player()->koncowka("jego","jej") + "oczach zauwazasz"
   +"nieopisany smutek, a " + this_player()->koncowka("jego","jej") + " dlonie jakby wiedzione jakas nadludzka sila same "
   +"wedruja w kierunku rekojesci.\n. Po chwili jednak " + QCIMIE(this_player(),PL_MIA) + " otrzasa sie i "
   +"uspokaja.\n");
     
   
   return 1;

}