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>
#define TO this_object()
#define TP this_player()
         

void
create_monster()
{
    add_prop(LIVE_I_NEVERKNOWN,1);


    ustaw_odmiane_rasy( ({"kobieta", "kobiety", "kobiecie", "kobiete",
                "kobieta", "kobiecie"}), ({"kobiety", "kobiet",
                "kobietom", "kobiety", "kobietami", "kobietach"}), PL_ZENSKI);


    dodaj_nazwy( ({"czlowiek", "czlowieka", "czlowiekowi", "czlowieka",
                   "czlowiekiem", "czlowieku"}), ({"kobiety", "kobiet",
                   "kobietom", "kobiety", "kobietami", "kobietach"}), PL_MESKI_OS);

    dodaj_przym("czarnooki", "czarnoocy");
    dodaj_przym("filigranowy", "filigranowi");


    set_long("Stoi przed Toba nieruchomo jakby filigranowa dziewczyna. Jej suknia kontrastuje z polyskliwa "+
              "czernia dlugich rozczochranych wlosow, spadajacych na ramiona. Wydaje sie, ze jest lekko "+
              "usmiechnieta, ale nie mozna stwierdzic tego na pewno. Spod burzy splatanych wlosow blyszcza  "+
              "wlepione w Ciebie ogromne, szeroko rozwarte oczy koloru antracytow. Ma drobne rece, tak biale, "+
              "ze wydaja sie przezroczyste.\n");

    set_gender(G_FEMALE);

    add_prop(CONT_I_WEIGHT, 64000); 
    add_prop(CONT_I_HEIGHT, 180);   

    set_stats(({100, 150, 100, 111, 111, 10}));
set_exp_factor(249);

    set_act_time(5);
    add_act("emote obraca za Toba malenka twarzyczke o wyrazie nieopisanej tesknoty, pelna uroku, "+
            "ktory sprawia, ze wciaz slyszysz piesn - choc malenkie, blade usteczka sa zacisniete i "+
            "nie dobywa sie zza nich najmniejszy nawet dzwiek.\n");
    add_act("emote zanosi sie placzem. Lzy sciekaja jej po pieknych rumianych policzkach.");
    add_act("emote lka zalosnie wzbudzajac w tobie wspolczucie. Pragniesz jej pomoc, ale jak?");
    add_act("emote podnosi sie nagle mowiac: Tak ty mi mozesz pomoc!\n"+
            "Kobieta wskazuje piers.\n"+
            "Mowi: Zabij mnie, to mnie uwolni raz na zawsze do tego cierpienia!");
  
    set_chat_time(8);
    add_chat("Gdziez ja zbladzilam, kto mi pomoze znalesc droge na zewnatrz..?");
    add_chat("Pomocy...czy moze mi ktos pomoc?");
    add_chat("Boje sie...boje sie...boje sie...");



}

void
attacked_by(object wrog)
{
object ob;
setuid();
seteuid(getuid());
    
    command("emote nagle blednie.");
    
    tell_room(environment(TP),"W miejscu gdzie jeszcze przed chwila siedziala dziewczyna w bialej sukni, "+
                               "rozplaszcza swe cielsko ogromny czarny nietoperz, rozwierajac dluga, waska "+ 
                               "paszczeke, przepelniona rzedami igloksztaltnej bieli..\n");
    TO->remove_adj("czarnooki","czarnoocy");
    TO->remove_adj("filigranowy","filigranowi");

    TO->ustaw_odmiane_rasy( ({"bruxa", "bruxy", "bruxie", "bruxe",
                              "bruxa", "bruxie"}), ({"bruxy", "brux",
                              "bruxom", "bruxy", "bruxami", "bruxach"}), PL_ZENSKI);


    TO->dodaj_nazwy( ({"wampir", "wampira", "wampirowi", "wampira",
                       "wampirem", "wampirze"}), ({"kobiety", "kobiet",
                       "kobietom", "kobiety", "kobietami", "kobietach"}), PL_MESKI_OS);

    TO->set_long("Jest to ogromny czarny nietoperz, rozwiera dluga, waska paszczeke, przepelniona rzedami "+
                 "igloksztaltnej bieli. Bloniaste skrzydla rozwijaja sie i lopocza bezglosnie. Potrafi runac na "+
                 "przeciwnika jak belt wystrzelony z kuszy. Jest to niewatpliwie jedna z odmian wampira zwana bruxa "+
                 "odporna na swiatlo jak mula i alp, mozna ja wiec zranic jedynie srebrna bronia lub magiczna. Jest "+
                 "smiertelnie niebezpieczna!\n");
    TO->dodaj_przym("kruczoczarny","kruczoczarni");
    TO->dodaj_przym("krzykliwy","krzykliwi");
    set_attack_unarmed(1, 240, 550, W_IMPALE,  50, "bialymi klami");
    set_attack_unarmed(4, 240, 550, W_BLUDGEON, 50, "szopniasta lapa");

    set_hitloc_unarmed(0, 190, 25, "czarne skrzydlo");
    set_hitloc_unarmed(1, 190, 50, "wlochaty tulow");
    set_hitloc_unarmed(4, 190, 25, "psi pysk");
    TO->usun_nazwe( ({"czlowiek", "czlowieka", "czlowiekowi", "czlowieka",
                       "czlowiekiem", "czlowieku"}), ({"kobiety", "kobiet",
                       "kobietom", "kobiety", "kobietami", "kobietach"}), PL_MESKI_OS);
    
    return ::attacked_by(wrog);
}