/*  
 * Imperium projekt: lesne zwierzatka, sarna. 
 * Napisal Pshoddy, styczen '98	    
 */

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

#include "zwierz.h"

create_creature()
{
    int i,j;
    
    set_long("To niezwykle czujne zwierze mozna spotkac w zagajnikach, "+
    "na lakach i w lasach. Jest to trudne, bo z natury plochliwa sarna "+
    "na kazda najmniejsza oznake niebezpieczenstwa reaguje ucieczka. "+
    "Jednak tobie sprzyja szczescie i mozesz ogladac ja z bliska.\n");
        
    ustaw_odmiane_rasy(({"sarna", "sarny", "sarnie", "sarne", "sarna",
        "sarnie"}), ({"sarny", "saren", "sarnom", "sarny", "sarnami",
        "sarnach"}), PL_ZENSKI);

    i=(random(LICZBA_PRZYM_SARNY)*2); j=(random(LICZBA_PRZYM_SARNY)*2);
    while (i==j) j=(random(LICZBA_PRZYM_SARNY)*2);
    
    dodaj_przym(SARNA_PRZYM[i], SARNA_PRZYM[i+1]);
    dodaj_przym(SARNA_PRZYM[j], SARNA_PRZYM[j+1]);
    
    set_gender(G_FEMALE);

    set_stats(({30,25,30,1,1,25}));

    set_skill(SS_AWARENESS, 50+random(10));
     
    set_act_time(15+random(10));
    add_act("emote delikatnie skubie poszycie lesne swoim pyszczkiem.");
    add_act("emote wolno podnosi leb i rozglada sie, uwaznie nasluchujac.");    
    add_act("emote lize swoj bok jezykiem.");

    set_hitloc_unarmed(H_GLOWA, ({3, 2, 5}), 19, "glowe");
    set_hitloc_unarmed(H_CIALO, ({2, 3, 5}), 51, "cialo");
    set_hitloc_unarmed(H_PRAWA_LAPA, ({3, 2, 5}), 15, "przednie nogi");
    set_hitloc_unarmed(H_LEWA_LAPA, ({2, 3, 5}), 15, "tylne nogi");
 
    set_random_move(12);
    set_restrain_path(DIR);
    set_whimpy(100, 3);

    add_prop(LIVE_I_NEVERKNOWN, 1);    
    add_prop(CONT_I_HEIGHT, 75);
    add_prop(CONT_I_WEIGHT, 27000+random(10000));
    add_prop(CONT_I_VOLUME, 20000+random(10000));

    add_leftover(DIR+"skora.c",({"skora","skory","skorze","skore","skora","skorze"}),
               ({"skory","skor","skorom","skory","skorami","skorach"}),
               PL_ZENSKI,1,0,1,1);

}