inherit "/std/monster";
inherit "/obj/spec";
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>
#include <wa_types.h>

#define TO this_object()


#define PRZYMIOTNIKI (({({"odrazajacy", "odrazajacy"}), ({"paskudny", "paskudni"}), \
        ({"ohydny", "ohydni"}), ({"gnijacy", "gnijacy"}), \
        ({"przerazajacy", "przerazajacy"})}))
#define LICZBA_PRZYMIOTNIKOW 5

#define NPATH "/d/Imperium/Kraina/BAGNO/"

void
dobadz()
{
setuid();
seteuid(getuid());
clone_object(NPATH+"czarny_miecz")->move(TO);
command("dobadz broni");
}

void
create_monster()
{
        int i, j;



    ustaw_odmiane_rasy(({"demon","demona","demonowi","demona","demonem","demonie"}),
	    ({"demony","demonow","demonom","demony","demonami","demonach"}),
	    PL_MESKI_NZYW);

     add_prop(LIVE_I_NEVERKNOWN,1);        
     set_gender(G_MALE);
        i = random(LICZBA_PRZYMIOTNIKOW);
        j = random(LICZBA_PRZYMIOTNIKOW - 1);

        if(j >= i)
          ++j;
        dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
        dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);
                
	set_long("Masz przed soba niska postac dodatkowo "+
		"jeszcze zgarbiona. Otacza ja chmura much przywabiona "+
		"jej obrzydliwym zapachem. Spomiedzy platow zoltozielonej, "+
		"ropiejacej skory wypadaja biale tluste robaki. Jego "+
		"dlugie ramiona czesto dotykaja ziemi pozostawiajac "+
		"po sobie obrzydliwe slady. Twarz to uosobienie wszystkiego "+
		"co najobrzydliwsze: sliniace sie pelne zoltych zebow "+
		"usta, pelen sluzu nos i zapadniete czerwone oczy napawaja "+
		"cie najwieksza odraza.\n");
	

                
	enable_commands();
    
        add_prop(CONT_I_HEIGHT, 170);
        add_prop(CONT_I_WEIGHT, 65000);
        set_stats(({ 160, 120, 250, 10, 10, 80 }));

        set_skill(SS_PARRY,60);
	set_skill(SS_DEFENCE, 50);
        set_skill(SS_WEP_SWORD, 85);
	set_skill(SS_WEP_AXE, 85);
        set_skill(SS_WEP_POLEARM, 85);
	set_skill(SS_WEP_WARHAMMER, 85);
        set_skill(SS_WEP_KNIFE, 85);
	
	set_act_time(random(15));

        add_act("emote belkocze plujac krwia: Zhaabbyijee Ccciee...");
        add_act("emote spluwa na ziemie jakas ohydna, mazista wydzielina.");
	add_act("emote rozgania muchy otaczajace jego osobe.");
	add_act("emote rozdzawia swoja parszywa gebe szczerzac rzedy "+
		"ostrych, ociekajacych slina siekaczy!");

set_alarm(1.0,0.0,"dobadz");
set_aggressive(1);
}


void
special_attack( object enemy )
{
int rand=random(2);

    if (!rand)
	{
	odpal_speciala( this_object(), enemy, 
		({"Nie udaje ci sie trafic ofiary.\n",
		  ""+QCIMIE(TO,PL_MIA)+" rozgania nerwowo muchy.\n",
		  ""+QCIMIE(TO,PL_MIA)+" rozgania nerwowo muchy.\n",
		  
		  "Trafiasz ofiare.\n",
		  ""+QCIMIE(TO,PL_MIA)+" dzga mocno "+QIMIE(enemy,PL_BIE)+", "+
			"pozostawiajac na "+enemy->koncowka("jego","jej")+" "+
			"ciele krwawiaca bruzde.\n",
		  ""+QCIMIE(TO,PL_MIA)+" dzga cie swoim mieczem raniac "+
    			"okrutnie i pozostawiajac na twoim ciele spora rane.\n",
			
		  "Zabijasz kolesia.\n",
		  ""+QCIMIE(TO,PL_MIA)+" perfekcyjnym cieciem swojego miecza "+
		    "zabija "+QIMIE(enemy,PL_BIE)+".\n",
		  ""+QCIMIE(TO,PL_MIA)+" niespodziewanie wyprowadza ciecie "+
		    "swoim mieczem i tnie cie bestialsko w glowe!\n"}),
		    500,({W_SWORD,W_AXE}),
		    5.0,1.0);
	
	
	}
	

}