inherit "/d/Imperium/std/weapon";
#include "ranger.h"
#include <filter_funs.h>
#define CO_ILE 5
void oszukaj_liba();
int ktory_cios;
int query_cios();
void
create_weapon()
{
        int i;
   ustaw_nazwe( ({ "halabarda", "halabardy", "halabardzie", "halabarde", "halabarda",
                   "halabardzie" }), ({ "halabardy", "halabard", "halabardom",
                   "halabardy", "halabardami", "halabardach" }), PL_ZENSKI);

     
    dodaj_przym("czarny","czarni");
    dodaj_przym("smukly","smukli");
    
    
 
   set_long("Spaczona halabarda z najglebszych i najmroczniejszych "+
            "kuzni chaosu.\n");

            set_hit(50);
            set_pen(80);
        ktory_cios = 0;
        
        set_wt(W_POLEARM);
        set_dt(W_SLASH);
        set_alarm(0.1, 0.0, "oszukaj_liba");
        set_hands(W_BOTH);
   
}
void
oszukaj_liba()
{
        add_prop(OBJ_I_WEIGHT,           12000);
        add_prop(OBJ_I_VOLUME,           5000);
  this_object()->add_prop(OBJ_I_NO_DROP, "Nie chcesz chyba by halabarde przejal ktos obcy\n");
  this_object()->add_prop(OBJ_I_NO_GIVE, "Nie chcesz chyba by halabarde ktos inny posiadal niz ty");
}
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(0) > 100) && (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});
         // opiszemy specjal
         jak = "nieznacznie";
         if (rezultat[0] > 30) jak = "niezle";
         if (rezultat[0] > 40) jak = "powaznie"; // itp
         if (enemy->query_hp() <= 0)
         {
                 this_player()->catch_msg("Magia zakleta w broni przejmuje kontrole nad twymi rekami "+
                               "by wprowadzic smiertelny cios dla twego przeciwnika.\n");
                 enemy->catch_msg("Czarna smukla halabarda " + QIMIE(this_player(), PL_DOP) + " zdaje sie sama poruszac "+
                                  "i prawie niewidoczny cios rozcina ci skron. Bol szybko mija i nastaje ciemnosc.\n");
                 for(i=0; i<sizeof(ja); i++)
                  ja[i]->catch_msg("Widzisz jak czrna smukla halabarda dzierzona przez " + QIMIE(this_player(), PL_DOP) +
                                   " staje w plomieniach i z szybkoscia blyskawicy klinga przecina skron "+
                                   QIMIE(enemy, PL_DOP) + ".\n");
enemy->do_die(this_player());
                 return 1;
         }
         enemy->catch_msg(QCIMIE(this_player(), PL_MIA) + " wprowadza potezny cios swoja czarna smukla halabarda "+
                          "raniac cie " + jak + ".\n");
         this_player()->catch_msg("Trafiasz swego przeciwnika czarna smukla halabarda " + jak + " " + enemy->koncowka("go", "ja") +
                       " raniac.\n");
         for(i=0; i<sizeof(ja); i++)
          ja[i]->catch_msg(QCIMIE(this_player(), PL_MIA) + " bierze potezny zamach i trafia "+
                           QIMIE(enemy, PL_DOP) + " raniac go " + jak + ".\n");
         return 2;
       }
       return 0;
}
int
query_cios()
{
        return ktory_cios;
}