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

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

#include "zwierz.h"

create_creature()
{
    int i,j;
    
    set_long("@@dlugi_opis");
        
    ustaw_odmiane_rasy(({"zajac", "zajaca", "zajacowi", "zajaca", "zajacem",
        "zajacu"}), ({"zajace", "zajecy", "zajecom", "zajace", "zajacami",
        "zajacach"}), PL_MESKI_NOS_ZYW);

    i=(random(LICZBA_PRZYM_ZAJACA)*2); j=(random(LICZBA_PRZYM_ZAJACA)*2);
    while (i==j) j=(random(LICZBA_PRZYM_ZAJACA)*2);
    
    dodaj_przym(ZAJAC_PRZYM[i], ZAJAC_PRZYM[i+1]);
    dodaj_przym(ZAJAC_PRZYM[j], ZAJAC_PRZYM[j+1]);
    
    set_gender(G_MALE);
    
    set_stats(({8,22,10,1,1,12}));
    
    set_skill(SS_AWARENESS, 60);
      
    set_act_time(15+random(10));
    
    add_act("emote strzyze nerwowo uszami.");
    add_act("emote kica wkolo szukajac pozywienia.");
    add_act("emote staje slupa na tylnych lapach.");
    add_act("emote obgryza kore z niewielkiego drzewka.");

    set_hitloc_unarmed(H_GLOWA, ({3, 2, 5}), 10, "glowe");
    set_hitloc_unarmed(H_CIALO, ({2, 3, 5}), 40, "tulow");
    set_hitloc_unarmed(H_LEWA_LAPA, ({2, 3, 5}), 15, "przednie lapy");    
    set_hitloc_unarmed(H_PRAWA_LAPA, ({2, 3, 5}), 15, "tylne lapy");
    set_hitloc_unarmed(H_UCHO, ({2, 3, 5}), 20, "uszy");    
    
    
    set_random_move(5);
    ustaw_whimpy(100, 2);
    set_restrain_path(DIR);
    set_m_in("wskakuje.");
    set_m_out("kica");
    
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(CONT_I_HEIGHT, 40);
    add_prop(CONT_I_WEIGHT, 2800);
    add_prop(CONT_I_VOLUME, 1800);

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

}

string dlugi_opis()
{
    string str;

    str = "Najbardziej pospolity mieszkaniec lasow i borow. Mimo "+
     	  "swojego niewinnego wygladu i delikatnej budowy potrafi naprawde "+
    	  "szybko biegac gdy znajdzie sie w niebezpieczenstwie. ";        

    if (environment(this_object())->pora_dnia()=="wieczor" ||
    	environment(this_object())->pora_dnia()=="pozny wieczor" ||
    	environment(this_object())->pora_dnia()=="noc") 
    	str += "W dzien niechetnie opuszcza swoja nore, robi to tylko "+
               "wtedy gdy nic go niepokoi.\n";
    else
     	str += "Najchetniej zeruje o zmierzchu i w nocy, wlasnie dlatego "+
       	       "mozna go teraz spotkac.\n";
    
    return str;
}