/* Plik:     karzel.c
 * Autor:    Kaes i Karraluch
 * Data:     12.11.97
 * Last update:  12.11.97
 * Opis:     karly lazace po lochach i atakujace
*/

inherit "/d/Imperium/std/monster.c";
#include "kaes.h"
#include "/d/Imperium/std/ialfen.h"
#define PRZYMIOTNIKI ({({"brudny","brudni"}),({"oblesny","oblesni"}), \
      ({"wsciekly","wsciekli"}),({"pokrwawiony","pokrwawieni"}), \
      ({"spocony","spoceni"})})
#define LICZBA_PRZYMIOTNIKOW 5
      
create_monster()
{
 int i,j;
 ustaw_nazwe(({"karzel","karla","karlowi","karla","karlem","karle"}),
        ({"karly","karlow","karlom","karly","karlami","karlach"}), PL_MESKI_NOS_ZYW);
 add_name("_karzel_kaesa_");
 set_gender(G_MALE);
 ustaw_odmiane_rasy(PL_MEZCZYZNA);
 i=random(LICZBA_PRZYMIOTNIKOW - 1);
 j=random(LICZBA_PRZYMIOTNIKOW - 2);
 if ( j == i) j++;
  dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
  dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);

 ustaw_krotki_opis(({"karzel","karla","karlowi","karla","karlem","karle"}),
            ({"karly","karlow","karlom","karly","karlami","karlach"}), PL_MESKI_NOS_ZYW);

 add_prop(LIVE_I_NEVERKNOWN,1);           
 add_prop(CONT_I_WEIGHT,40000);
 add_prop(CONT_I_HEIGHT,90);
 set_alignment(-100);
 set_long("@@dlugi_opis");
 set_random_move(10);
 set_stats(({45,40,50,15,15,20}));

 set_skill(SS_PARRY, 35);
 set_skill(SS_WEP_WARHAMMER, 35);

 set_act_time(10+random(12));
 set_aggressive(1);
 add_act("emote wrzeszcy z wsciekloscia na twoj widok: Uaaarghh?");
 add_act("emote wola w ciemnosc: Zawolajcie Setha!");
 add_act("emote strzela koscmi palcow.");
 add_act(({"splun"}));
 add_act("emote wpatruje sie w ciebie z wsciekloscia.");
 
 set_cact_time(15);
 add_cact("emote belkocze glosno.");
 add_cact("emote syczy cos cicho pod nosem.");

 add_weapon(PATH + "mlot1.c"); 
 set_restrain_path(PATH);

}

string dlugi_opis()
{
 return("Wstretny, niskiego wzrostu karzel. Wyglada pokracznie, jednak "+
  "wolisz przecenic poczatkowo jego mozliwosci. Jest caly brudny, ubrany "+
  "w potargane, krotkie spodnie. Twoja uwage przykuwaja jego rece, ktore "+
  "sa nieproporcjonalnie duze do reszty ciala.\n");
}

mixed
oke_to_move(string exit)
{
    return exit == "gora" ? 0 : ::oke_to_move(exit);
}