/* Autor : Mezon */
/* Opis: Npc w ruinach - Strzyga */


#include "mezon.h"
#include <wa_types.h>
#include "/sys/macros.h"
#include <money.h>

inherit "/d/Imperium/std/undead";
inherit "/std/combat/unarmed";

#define A_SZPONY 0
#define A_ZEBY 1

string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "piekny"  ,"uwodzicielski"  ,"niewinny"  ,"slodki"  ,"spokojny" ,
       "zakrwawiony" ,"zwinny","kuszacy","usmiechniety","powabny"});
 lm=({ "piekni"  ,"udowdzicielscy"  ,"niewinni" ,"slodcy"  ,"spokojni"  ,
       "zakrwawieni" ,"zwinni","kuszacy","usmiechnieci","powabni"});
 i=random(10);

 return ({ lp[i] , lm[i] });

 }


void
create_undead()
{

string *przm = losowy_przym();
string *przm1;


        ustaw_nazwe(({"strzyga","strzygi","strzydze","strzyge","strzyga","strzydze"}),
                    ({"strzygi","strzyg","strzygom","strzygi","strzygami","strzygach"}),PL_ZENSKI);

        ustaw_odmiane_rasy(({"strzyga","strzygi","strzydze","strzyge","strzyga","strzydze"}),
                    ({"strzygi","strzyg","strzygom","strzygi","strzygami","strzygach"}),PL_ZENSKI);

        set_gender(G_FEMALE);

przm = losowy_przym();
przm1 = losowy_przym();
    
    while(przm[0]==przm1[0]) przm1 = losowy_przym();
 
             
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm1[0], przm1[1] );

        set_stats(({50,80+random(10),60,100,80,95}));

        set_skill(SS_UNARM_COMBAT, 10);
        set_skill(SS_DEFENCE, 10);
        set_skill(SS_BLIND_COMBAT, 80);
        set_skill(SS_AWARENESS, 95);


       set_long("Pierwsze, co przykuwa twoj wzrok do patrzacej uwaznie na Ciebie "+
         "postaci, to jej nagosc. Idealne ksztalty, i splywajace na "+
         "ramiona wlosy, w polaczeniu z pieknymi, niczym nie oslonietymi,"+ 
         "piersiami, sugestywnie podkreslaja jej kobiecosc. "+
         "Jedyne, co wydaje ci nieco dziwne, to to iz jej palce sa nieco "+
         "nieproporcjonalnie dlugie w porownianiu do reszty. "+
         "Przez moment wydawalo ci sie, ze blysk swiatla odbija sie od "+
         "jej skory, jakby byla pokryta luskami. Ale to na pewno zludzenie. "+
         "W starych legendach sa jakies slowa o strzygach, ale to nie moze byc "+
         "Ona.\n");
       
       set_restrain_path(({NPATH + "ruiny/"}));

        set_attack_unarmed(A_SZPONY,25,32,W_IMPALE,70,"dlugimi szponami");
        set_attack_unarmed(A_ZEBY,29,33,W_IMPALE,30,"blyszczacymi zebami");

        set_hitloc_unarmed(1, 3, 20, "glowe");
        set_hitloc_unarmed(2, 3, 50, "korpus");  
        set_hitloc_unarmed(4, 3, 15, "prawe ramie");  
        set_hitloc_unarmed(8, 3, 15, "lewe ramie");  

        set_alignment(-100);
        set_aggressive(1);

    MONEY_MAKE_GC(1)->move(this_object());
}