/* Plik:          rep2.c
 * Autor:         Elve
 * Opis:          Duuuuzy reptilion z Karak Varn.
 */

inherit "/d/Imperium/std/monster";

#include "local.h"

#define PEN_SPECJALA 600

#include "/d/Imperium/funkcje/specjal1.c"

void
create_monster()
{
    set_long("Widzisz potezna postac obrzydliwej mieszanki czlowieka i jaszczura." +
             " Blyszczace, gadzie oczy lustruja wszystko wkolo. Ten osobnik "+
             "jest wyjatkowo masywny i wyglada na wodza calej tej podziemnej "+
             "bandy. Ubrany jest w skorzany stroj, zaslaniajacy luskowate "+
             "cielsko. Ruchliwy jezyk co i raz wysuwa sie zza drobnych zebow.\n");

        dodaj_przym("potezny", "potezni");
    dodaj_przym("plaskoglowy", "plaskoglowi");
    ustaw_odmiane_rasy(({"reptilion", "reptiliona", "reptilionowi", "reptiliona", "reptilionem",
    "reptilionie"}), ({"reptiliony", "reptilionow", "reptilionom", "reptiliony", "reptilionami", "reptilionach"}), PL_MESKI_NOS_ZYW);
    

    
    set_stats(({ 85, 65, 65, 25, 40, 75 }));
    
    set_alignment(-150);
    set_gender(G_MALE);


    set_skill(SS_DEFENCE, 95);
    set_skill(SS_AWARENESS, 60);
    set_skill(SS_WEP_AXE, 95);
    set_skill(SS_BLIND_COMBAT, 70);
    set_skill(SS_PARRY, 95);

    add_prop(LIVE_I_NEVERKNOWN, 1);
    
    add_armour(ZBROJE + "kolczwodza.c");
    add_armour(ZBROJE + "nagwodza.c");

    set_act_time(30 + random(15));
    add_act("usmiech paskudnie");
    add_act("emote wysuwa dlugi cienki jezyk, porusza nim przez chwile po czym chowa go z cichym syknieciem.");
    add_act("emote gwaltownie wypuszcza powietrze nozdrzami.");
    add_act("rozejrzyj sie podejrzliwie");
    add_act("emote wydaje glosny swiszczacy syk.");

    set_cact_time(15);
    add_cact("emote syczy glosno.");
    add_cact("emote wlepia w ciebie gadzie oczy. Czujesz ciarki przechodzace po plecach.");
    add_cact("emote przesuwa jezykiem po wargach.");

}

public void
wesprzyj_rep(object ob)
{
    if (query_attack())
    {
        command("emote syczy: No to masssssz pecha ...");
        return ;
    }
    
    command("wesprzyj " + OB_NAME(ob));
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj_rep(this_object());
}

void
attacked_by(object wrog)
{
    command("krzyknij Na pomoccss!");
    set_alarm(0.1, 0.0, "pomocy");
    return ::attacked_by(wrog);
}