/*
 * Jednorozec by Tanis
 */


#define PRZYMIOTNIKI ({ ({"mlody","mlodzi"}), ({"stary","starzy"}), ({"stary","starzy"}), \
                        ({"narowisty","narowisci"}), ({"spokojny","spokojni"}), ({"majestatyczny","majestatyczni"}) })

#define LICZBA_PRZYMIOTNIKOW 6

#include "ogolne.h"

inherit PATH + "zwierzeta/lesne.c";

#include "lelf.h"

void
create_lesne_zwierze()
{
    int i;

    set_random_move(5);

    ustaw_odmiane_rasy(({"jednorozec","jednorozca","jednorozcowi",
       "jednorozca","jednorozcem","jednorozcu"}),
     ({"jednorozce","jednorozcy","jednorozcom",
          "jednorozce","jednorozcami","jednorozcach"}),PL_MESKI_NOS_ZYW);

    add_prop(LIVE_I_NEVERKNOWN, 1);

    set_gender(G_MALE);

    i = random(LICZBA_PRZYMIOTNIKOW);
   
    dodaj_przym("snieznobialy","snieznobiali");
    dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);

    set_long("Widzisz snieznobialego jednorozca. "
        + "To majestatyczne zwierze z rogiem na glowie jest bardzo szanowane przez wszystkie Lesne Elfy. Porusza "
        + "sie bardzo dostojnie, a jednoczesnie nadzwyczaj zgrabnie i zrecznie. Delikatnie "
        + "stapa po ziemi, lecz widac, ze jest zdolne do bardzo szybkiego i dlugiego biegu.\n");
        
    set_stats(({85,55,90,1,1,60}));

    set_act_time(8);
    add_act("emote rozdyma chrapy czujac jakas won.");
    add_act("emote pochyla glowe, prawie dotykajac rogiem ziemi");
    add_act("emote rozglada sie spokojnie wokol.");
    add_act("emote patrzy na ciebie nieufnie.");

    set_attack_unarmed(1, 2, 12, W_IMPALE, 40,"rogiem");
    set_attack_unarmed(1, 4, 15, W_BLUDGEON, 40,"jednym z kopyt");
    
    set_hitloc_unarmed(1, ({4,4,5}), 30,"glowe");
    set_hitloc_unarmed(2, ({2,3,4}), 20,"jedna z nog");
    set_hitloc_unarmed(8, ({3,4,4}), 50,"tulow");

    set_alignment(800);

    set_aggressive(0);

    wlacz_karanie_innych();
    wlacz_karanie_gildii();
    wlacz_ploszenie();
    set_whimpy(95);   
}

void
attacked_by(object ob)
{
   if((GILDIA)->query_prawa(ob->query_real_name())>=LEV_CZLONEK) reaguj_gildia(ob);

  ::attacked_by(ob);
}