inherit "/std/monster";     
inherit "/std/combat/unarmed";  
#include <filter_funs.h>
#include <ss_types.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <cmdparse.h>
#include <macros.h>
#include <pl.h>
#include <options.h>
#include <macros.h>
#include <formulas.h>
#include <money.h>
#define TO this_object()
#define TP this_player()
void
create_monster()
{
    add_prop(LIVE_I_NEVERKNOWN,1);


    ustaw_odmiane_rasy( ({"bazyliszek", "bazyliszka", "bazyliszkowi", "bazyliszka",
                "bazyliszkiem", "bazyliszku"}), ({"bazyliszki", "bazyliszkow",
                "bazyliszkom", "bazyliszki", "bazyliszkami", "bazyliszkach"}), PL_MESKI_NOS_ZYW);

    dodaj_przym("kamienny", "kamienni");
    dodaj_przym("ogoniasty", "ogoniasci");


    set_long("Jest to bazyliszek zwany tez regulusem, jest gadem, a konkretniej jaszczurka "+
             "choc pokaznych rozmiarow. Wszytko jedno gdzie ukasi, jego jad jest jedna z "+
             "najsilniejszych neurotoksyn. Zabic moze w ciagu kilku sekund. Stwor ten o postaci "+
             "gada wystepuje czesto w legendach, ktore glosza, iz zabija wzrokiem i oddechem, mowi "+
             "sie tez iz strzega skarbow. Wsrod kregow akademickich zwany jest rowniez (basiliscusem). "+
             "Samce posiadaja na tylnej czesci glowy i ogonie grzebienie ostro zakonczone i bedace "+
             "smiercionosna bronia. Ma dziwaczny ksztalt, cudaczne cielsko. Ponadto posiada  dlugi, "+
             "jaszczurczy ogon, oraz zakrzywiony ptasi dziob, bloniaste skrzydla i sierpowate szpony na "+
             "pokrytych luska lapach. Wydete podgardle karminowego koloru i szkliste, wpadniete oczy..\n");

    set_gender(G_MALE);
    set_exp_factor(200);
    add_prop(CONT_I_WEIGHT, 44000); 
    add_prop(CONT_I_HEIGHT, 40);   

    set_attack_unarmed(1, 340, 550, W_IMPALE,  50, "kolczastym ogonem");
    set_attack_unarmed(4, 340, 550, W_BLUDGEON, 50, "kamienna lapa");

    set_hitloc_unarmed(0, 190, 25, "podluzny leb");
    set_hitloc_unarmed(1, 190, 50, "kamienne cielsko");
    set_hitloc_unarmed(4, 190, 25, "kolczasty ogon");

    set_stats(({270, 30, 620, 190, 201, 124}));
    add_armour("/d/Imperium/Wyspa/Khainowcy/obj/mut04.c");

    set_skill(SS_DEFENCE,10);
    set_skill(SS_BLIND_COMBAT, 100);
    set_alignment(-200);

    set_cact_time(5);
    add_cact("emote macha zwodniczo kolczastym ogonem.");
    add_cact("emote patrzy na ciebie przenikliwym wzrokiem, przerazenie ogarnia cie.");
    add_cact("emote rzuca sie na ciebie uderzajac cie kamienna lapa.\n");

}

int
wez( string str )
{
    if (str == "wszystko" || str == "wszystko")
        {
        
        TP->catch_msg("Nie mozesz nic wziac, gdyz bazyliszek "+
                      "stoi ci na drodze.\n");
        return 1;       
        }


write("Nie mozesz nic wizac, gdyz bazyliszek stoi ci na drodze?\n");
return 1;
}

void
init_living()
{
::init_living();
    
add_action("wez","wez");  


}