inherit "/d/Imperium/std/zwierze.c";
#include "../wieza.h"

#define H_GLOWA 300
#define H_CIALO 300
#define H_LEWA_LAPA 300
#define H_PRAWA_LAPA 300

#define A_PYSK 390
#define A_LEWA_LAPA 490
#define A_PRAWA_LAPA 490



create_zwierze()
{

    
    set_long("Ten niedzwiedz to ogromna masa tluszczu i miesni porosnieta "+
    "gestym, brunatnym futrem. Olbrzymie rozmiary sprawiaja, ze czujesz sie "+
    "przy nim bardzo niepewnie. Od zwyklego niedzwiedzia wyroznia sie swoimi "+
    "nienaturnalnymi rozmiarami, i czerwoonyki oczami. Domyslasz sie, ze to moze "+
    "byc swojego rodzaju mutacja.\n");            
        
    ustaw_odmiane_rasy(({"niedzwiedz", "niedzwiedzia", "niedzwiedziowi",
        "niedzwiedzia", "niedzwiedziem", "niedzwiedziu"}), ({"niedzwiedzie", 
        "niedzwiedzi", "niedzwiedziom", "niedzwiedzie", "niedzwiedziami",
        "niedzwiedziach"}), PL_MESKI_NOS_ZYW);

    dodaj_przym("wielki","wielcy");
    dodaj_przym("zmutowany","zmutowani");
    
    set_gender(G_MALE);

    set_stats(({700,700,700,1,1,300}));
    		
    set_skill(SS_AWARENESS, 500);
    set_skill(SS_UNARM_COMBAT, 500);               
    set_skill(SS_BLIND_COMBAT,500);
    set_skill(SS_DEFENCE,500);      		
  
    set_act_time(15+random(10));
    add_act("emote pomrukuje cicho.");
    add_act("emote staje na tylnych lapach i weszy.");
    add_act("emote drapie pazurami swoj bok.");
    
    set_attack_unarmed(A_PYSK, 99, 300, W_IMPALE, 100, "klami");
    set_attack_unarmed(A_LEWA_LAPA, 99, 300, W_SLASH, 100, "lewa lapa");    
    set_attack_unarmed(A_PRAWA_LAPA, 99, 300, W_SLASH, 100, "prawa lapa");     
    set_combat_speed(290);

    set_hitloc_unarmed(H_GLOWA, ({480, 480, 480}), 20, "glowe");
    set_hitloc_unarmed(H_CIALO, ({480, 480, 480}), 40, "cialo");
    set_hitloc_unarmed(H_PRAWA_LAPA, ({480, 480, 480}), 20, "prawa lape");
    set_hitloc_unarmed(H_LEWA_LAPA, ({480, 480, 480}), 20, "lewa lape");

    set_aggressive(1);
    set_npc_react(1);

    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(CONT_I_HEIGHT, 75);
    add_prop(CONT_I_WEIGHT, 155000+random(10000));
    add_prop(CONT_I_VOLUME, 55000+random(10000));
 //   add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);

}

void
attacked_by(object ob)
{
    if (ob != this_object()->query_follow())
    {
        if(ob->query_prop("_live_i_is"))
        {
            set_alarm(0.05, 0.0, &set_follow(ob, 0.05));
            ::attacked_by(ob);
            return;
        }
        else        
           set_alarm(0.05, 0.0, &set_follow(ob, 0.05));
    }
    ::attacked_by(ob);
}

void
attack_object(object ob)
{
    if (ob != this_object()->query_follow())
    {
        if(ob->query_prop("_live_i_is"))
        {
            set_follow(ob, 0.05);
            ::attack_object(ob);
            return;
        }
        set_follow(ob, 0.04);
    }

    ::attack_object(ob);
}


public void
wesprzyj(object ob)
{
    if (query_attack())
    {
        return ;
    }
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Do boju!"); break;
            case 1: command("krzyknij Waaaaaagh!"); break;
            case 3: command("krzyknij Krwiiiii!"); break;
            case 4: command("krzyknij Smierci!!"); break;
        }
        return ;
    }

    switch(random(5))
    {
        case 0: command("powiedz do "+OB_NAME(ob)+" O Mamo !!!"); break;
        case 1: command("powiedz do "+OB_NAME(ob)+" Sam se radz."); break;
        case 2: command("powiedz do "+OB_NAME(ob)+" Chyba zartujesz ?!"); break;
        case 3: command("powiedz do "+OB_NAME(ob)+" He, he. Ja Ci nie pomoge...");
        				break;
        case 4: command("powiedz Ratunku!");
    }
}
public int
block_exit()
{
int r;
    string  action = query_verb();
    
    if (!sizeof(({ this_player() }) & query_enemy(-1)))
    {
    return 0; // this_player() isnt fignting us
    }

	{    
	TP->catch_msg(""+QCIMIE(TO,PL_MIA)+" blokuje ci droge ucieczki.\n");    
	tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" blokuje "+
	""+QIMIE(TP,PL_CEL)+" droge ucieczki.\n",({TP}));
	         return 1;
	}
return 0; 
}