/*
 * Plik:        szczur.c 
 * Autor:       Aleksy
 * Data:        26.10.98
 * Last Update: 26.10.98
 * Opis: 	Szczur.
 */

inherit "/d/Imperium/std/zwierze";

#include <wa_types.h>
#include <ss_types.h>
#include <zamek.h>

#define A_ZEBY 0

#define H_GLOWA 0
#define H_CIALO 1

#define PRZYMIOTNIKI ({({"olbrzymi", "olbrzymi"}), \
	({"brudny", "brudni"}), \
	({"potworny", "potworni"}), ({"czarny", "czarni"}), \
	({"smierdzacy", "smierdzacy"})})

#define LICZBA_PRZYMIOTNIKOW 5

void
create_zwierze()
{
    int i, j;
    i = random(LICZBA_PRZYMIOTNIKOW);
    j = random(LICZBA_PRZYMIOTNIKOW - 1);
    if(j >= i)
      ++j;
    dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
    dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);  

    ustaw_nazwe(({"szczur","szczura","szczurowi","szczura","szczurem",
	"szczurze"}),({"szczury","szczurow","szczurom","szczury",
	"szczurami","szczurach"}),PL_MESKI_NZYW);
    ustaw_odmiane_rasy(({"szczur","szczura","szczurowi","szczura","szczurem",
	"szczurze"}),({"szczury","szczurow","szczurom","szczury",
	"szczurami","szczurach"}),PL_MESKI_NOS_ZYW);
        
    set_gender(G_MALE);
         
    set_long("Potworne zwierze wielkosci psa. Masz wrazenie, ze "
	+ "jego krwawo-czerwone oczy na odleglosci rozrywaja "
	+ "ciebie na czesci. Jego brudna szersc jest pokryta "
	+ "nieczystosciami i zastygla krwia.\n"); 

    set_stats(({20,25,15,1,1,20}));
        
    set_hp(query_max_hp());
        
    set_skill(SS_DEFENCE,20);
    set_skill(SS_BLIND_COMBAT,20);
       
    add_prop(LIVE_I_NEVERKNOWN, 1); 
    add_prop(CONT_I_WEIGHT, 15000 + random(5000));
    add_prop(CONT_I_VOLUME, 15000);

    set_attack_unarmed(A_ZEBY,10,10,W_IMPALE,100,"ostrymi zebami");

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

    set_random_move(10);

    set_alignment(-100);
    set_aggressive(1);  

}