#include <ss_types.h>
#include <pl.h>
#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>
inherit "/std/monster.c";
inherit "/std/combat/unarmed";
#define TO      this_object()
#define TP    this_player

int i=0;




void
create_monster()
{
        ustaw_odmiane_rasy(({ "kraken", "krakena", "krakenowi",
"krakena", "krakenem", "krakenie"}),
                           ({ "krakeny", "krakenow", "krakenom",
"krakeny", "krakenami","krakenach"}),
                           PL_MESKI_NOS_ZYW);


        dodaj_nazwy(({ "kraken", "krakena", "krakenowi", "krakena", "krakenem",
"krakenie"}),
                           ({ "krakeny", "krakenow", "krakenom", "krakeny",
"krakenami", "krakenach"}),
                           PL_MESKI_NOS_ZYW);

    dodaj_przym("gigantyczny", "gigantyczni");
    dodaj_przym("oslizgly", "oslizgli");

        set_stats(({ 550, 450, 700, 300, 450, 700 }));

    set_skill(SS_UNARM_COMBAT,200);
    set_skill(SS_PARRY,150);
    set_skill(SS_DEFENCE,170);

   set_long("Widzisz ogromnego krakena wypelniajacego soba "+
       "cala przestrzen jaskini.Ogromny potwor rusza caly czas "+
       "swoimi mackami,jakby chcial cie zlapac.Chyba przygladanie "+
       "mu sie spokojnie nie jest najlepszym pomyslem.\n");

    add_prop(LIVE_I_NEVERKNOWN, 1);
    set_hitloc_unarmed(0, 290, 65, "olbrzymia glowe");
    set_hitloc_unarmed(1, 290, 35, "oslizgla macke");
set_attack_unarmed(1, 250, 500, W_BLUDGEON, 100, "mackami");
  set_combat_speed(150);

    set_exp_factor(250);
    set_alignment(-1500);


    add_prop(CONT_I_WEIGHT, 300000);
    add_prop(CONT_I_HEIGHT, 600);
    add_prop(NPC_M_NO_ACCEPT_GIVE, 1);
    add_prop(LIVE_I_QUICKNESS, 140);

    set_chat_time(7);
    set_act_time(8);

    add_act("emote wypuszcza z siebie struge atramentu.");
    add_act("emote zaczyna sie gwaltownie poruszac,wzburzajac "+
            "chmure piasku.");
    add_act("emote nagle chwyta jeden z wystajacych stalaktytow "+
            "i wyrywa go bez trudu");
}


void
attacked_by(object wrog)
{
object par;
setuid();
seteuid(getuid());
    par=clone_object("/std/paralyze");
    par->set_fail_message("Ogromny oslizgly kraken zlapal cie jedna ze "+
                             "swoich macek i nie mozesz sie ruszyc.\n");
    par->set_stop_message("Kraken zwalnia swoj uscisk.\n");
    par->set_remove_time(11);
    par->move(wrog);


    return ::attacked_by(wrog);
}


void
special_attack( object ob )
{

    if ( i == 3 || !interactive(ob))
        {
        ob->catch_msg(""+QCIMIE(TO,PL_MIA)+" zrywa sie nagle z "+
        "niesamowita szybkoscia,lapiac cie wszystkimi mackami.Potwor "+       
        "zaczyna zgniatac twoje cialo z ogromna sila,a ty nie wiesz "+
        "czy wytrzymasz chociaz sekunde dluzej.\n");
        tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" zrywa sie "+
        "nagle z niesamowita szybkoscia,lapiac "+QIMIE(ob,PL_BIE)+" wszystkimi "+
        "mackami.Potwor zaczyna zgniatac cialo "+QIMIE(ob,PL_DOP)+" z "+
        "ogromna sila.\n",({TP,ob}));
        ob->reduce_hit_point(2600);
        if (ob->query_hp()<1)
        ob->do_die();
        i=0;
        }
i++;


}


int
atak()
{
    if (!interactive(TP))
        return 1;

    if (TP->query_prop("wypatrzony") >= 3)
        {
        TP->attack_object(TO);
        }

        TP->add_prop("wypatrzony",TP->query_prop("wypatrzony")+1);
        return 0;
}