/* Autor: Mezon  */
/* Zwierzatko drazace tunele */

inherit "/d/Imperium/std/potwor";
#include "mezon.h"
#include <wa_types.h>

#define A_PAZURY 1
#define A_ZEBY 0
#define H_GLOWA 0
#define H_CIALO 1

string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "niewielki"  ,"smierdzacy"  ,"pokraczny"  ,"zlosliwy"  ,"weszacy" ,
       "zawziety" ,"glupi","ruchliwy","smierdzacy","przygarbiony"});
 lm=({ "niewielcy"  ,"smierdzacy"  ,"pokraczni" ,"zlosliwi"  ,"weszacy"  ,
       "zawzieci" ,"glupi","ruchliwi","smierdzacy","przygarbieni"});
 i=random(10);

 return ({ lp[i] , lm[i] });

 }

void
create_potwor()

{
string *przm = losowy_przym();
string *przm1;

ustaw_odmiane_rasy(({ "ambull", "ambulla", "ambullowi", "ambulla",
    "ambullem", "ambullu" }), ({ "ambulle", "ambullow", "ambullom",
    "ambulle", "ambullami", "ambullach" }), PL_MESKI_NOS_ZYW);

        set_gender(G_MALE);

        
    przm = losowy_przym();
    przm1 = losowy_przym();
    
    while(przm[0]==przm1[0]) przm1 = losowy_przym();
 
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm1[0], przm1[1] );

        set_long("Niewielki, jaskiniowy ambull drazacy korytarze w "+
                 "najtwardszych nawet skalach, dzieki swoim naturalnym "+
                 "przystosowaniom. Sa one glupie, lecz im wieksze tym grozniejsze, a i potrafia "+
                 "swymi pazurami rozkruszyc skale, a co dopiero zbroje, czy "+
                 "kolczuge. Doskonale widza w ciemnosciach wiec lepiej "+
                 "trzymac sie od nich z daleka, gdyz "+
                 "naprawde moga zrobic krzywde...\n");

        set_stats(({45 + random(15),65 + random(10),45 + random(15),0,0,50}));

        set_skill(SS_DEFENCE, 25);
        set_skill(SS_BLIND_COMBAT, 80);
        set_skill(SS_AWARENESS, 78);
        add_prop(LIVE_I_NEVERKNOWN, 1);

        set_attack_unarmed(A_ZEBY,15,25,W_IMPALE,40,"mocnymi zebami");
        set_attack_unarmed(A_PAZURY,15,26,W_IMPALE,60,"dlugimi pazurami");

        set_hitloc_unarmed(H_GLOWA,25,20,"glowe");
        set_hitloc_unarmed(H_CIALO,20,80,"tors");

        set_random_move(10);

        set_alignment(-100);
        if(!random(3)) set_aggressive(1);
        set_restrain_path(({NPATH + "jaskinie/"}));
        set_random_move(10,1);

        set_act_time(20);

        add_act("emote bulgocze niezrozmiale.");
        add_act("emote kopie w ziemi.");


}

void
attacked_by(object wrog)
{
    command("emote sapie przerazliwie.");
    ::attacked_by(wrog);
}