/* Szczurek by niezupelnie Silvy */
/* Korekta marzec '97 */

inherit "/d/Imperium/std/zwierze";
#include <wa_types.h>
#include <ss_types.h>
#include <macros.h>
#include <stdproperties.h>
#include "local.h"

#define A_ZEBY 0

#define H_GLOWA 0
#define H_CIALO 1

#define PRZYMIOTNIKI ({({"olbrzymi", "olbrzymi"}), ({"brudny", "brudni"}), \
                        ({"dlugowlosy", "dlugowlosi"}), ({"czerwonooki", "czerwonoocy"}), \
                        ({"smierdzacy", "smierdzacy"})})

#define LICZBA_PRZYMIOTNIKOW 5

void
create_zwierze()
{
        int i, j;

        ustaw_odmiane_rasy(({"szczur","szczura","szczurowi","szczura","szczurem",
              "szczurze"}),({"szczury","szczurow","szczurom","szczury",
              "szczurami","szczurach"}),PL_MESKI_NOS_ZYW);
        
        set_gender(G_MALE);

        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]);
        
        set_long("Przerazajaca kreatura wielkosci sredniego psa. " +
                     "Czerwone oczy palaja nienawiscia do wszystkiego" +
                     "co zywe. Pokryty jest szara, brudna sierscia, umazana " +
                     "szlamem i nieczystosciami.\n"); 

        set_stats(({15,20,10,1,1,20}));
        
        set_hp(query_max_hp());
        
        set_skill(SS_DEFENCE,10);
        set_skill(SS_BLIND_COMBAT,10);
       
        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);  

}