inherit "/std/monster";
#include "../mafia.h"
string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "mlody"  ,"stary"  ,"podstarzaly"  ,"dorosly"  ,"nastoletni" ,
       "szpetny" ,"ladny","przystojny","przepiekny","uroczy"});
 lm=({ "mlodzi", "starzy", "podstarzali", "dorosli", "nastoletni",
	"szpetni", "ladni", "przystojni", "przepiekni", "uroczy"});
 i=random(10);

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

string *losowy_przym2()
 {
 string *lpc;
 string *lmc;
 int j;
 lpc=({ "nerwowy"  ,"spokojny"  ,"niepokonany", "arystokratyczny", "anemiczny"});
 lmc=({ "nerwowi"  ,"spokojni", "niepokonani", "arystokratyczni", "anemiczni"});
 j=random(5);

 return ({ lpc[j] , lmc[j] });

 }

void
create_monster()
{
    string *przm;                
    string *przm2;
    przm = losowy_przym();
    przm2 = losowy_przym2();



    ustaw_odmiane_rasy(({"skrytobojca", "skrytobojcy", "skrytobojcy", "skrytobojce", "skrytobojca", "skrytobojcy"}),
                ({"skrytobojcy", "skrytobojcow", "skrytobojcom", "skrytobojcow", "skrytobjocami", "skrytobojcach"}),
                PL_MESKI_OS);
    set_long("Jest to mocno opalony czlowiek, pochodzacy zapewne z jakiegos zamorskiego "
	+"kraju. Pewny siebie usmiech i szybkie palce mowia same za siebie - nie warto "
	+"wdawac sie z nim w bojki. Jego glowa kiwa sie raz w ta raz w ta strone - "
	+"jest bardzo uwazny, a jego refleks z pewnoscia przerasta ciebie\n");

    add_prop(LIVE_I_NEVERKNOWN,1);
    set_gender(G_MALE);
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm2[0], przm2[1] );
    set_random_move(3,0);
    set_combat_speed(550);
    add_prop(CONT_I_HEIGHT, 150+random(100));
    add_prop(CONT_I_WEIGHT, 75000+random(500));

    set_stats(({150+random(50),300+random(50),150+random(50),25,25,200+random(25)}));

    set_skill(SS_DEFENCE, 125+random(25));
    set_skill(SS_PARRY, 90+random(10));
    set_skill(SS_WEP_KNIFE, 110+random(90));
    set_act_time(10 + random(15));
    set_cchat_time(7 + random(4));

    add_act("emote usmiecha sie.");
    add_act("emote rozglada sie na boki.");
    add_act("emote przyglada sie tobie uwaznie.");
    add_act("emote przestepuje z nogi na noge.");
    add_act("emote spoglada ku gorze.");
    set_alignment(-25);

    add_cchat("Czyzbys chcial zginac?");
    add_cchat("Gin zatem!");
    add_cchat("Jeszcze zyjesz?");
    add_cchat("Przygotuj sie na spotkanie z pania...smiercia!");

    add_weapon(OBJ+"bron.c");
 
}
public void
wesprzyj_zol(object ob)
{
    command("wesprzyj " + OB_NAME(ob));
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj_zol(this_object());
}

void
attacked_by(object wrog)
{
    command("krzyknij Uwaga! Intruzi!");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}