/*
 *  Plik:         ghoule.c
 *  Autor:        Aleksy
 *  Data:         23.10.1998
 *  Last Update:  25.10.1998
 *  Opis:         Trupojad.
 */
   
#include "zamek.h"

inherit "/d/Imperium/std/undead.c";
inherit "/std/combat/humunarmed.c";

#define PRZYMIOTNIKI ({({"potworny","potworni"}), \
	({"smierdzacy","smierdzacy"}), ({"paskudny","paskudni"}), \
        ({"szalony","szaleni"}), ({"oblakany","oblakani"}), \
	({"oblesny","oblesni"}), ({"brudny","brudni"})})

#define LICZBA_PRZYMIOTNIKOW 7		       
#define <ss_types.h>

      
create_undead()
{
    int i, j;
    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]);  

    ustaw_nazwe(({"ghoul", "ghoula", "ghoulowi", "ghoula",
        "ghoulem", "ghoulu"}), ({"ghoule", "ghouli", "ghoulom",
        "ghouli","ghoulami","ghoulach"}), PL_MESKI_NOS_ZYW);
    ustaw_nazwe(({"trupojad", "trupojada", "trupojadowi",
        "trupojada", "trupojadem", "trupojadzie"}),
        ({"trupojady", "trupojadow", "trupojadom",
        "trupojadow", "trupojadami", "trupojadach"}), PL_MESKI_NOS_ZYW);

    ustaw_odmiane_rasy(({"ghoul","ghoula","ghoulowi","ghoula","ghoulem",
                         "ghoulu"}), ({"ghoule","ghouli","ghoulom",
			 "ghouli","ghoulami","ghoulach"}), PL_MESKI_NOS_ZYW);
    set_gender(0);
  

    add_prop(LIVE_I_NEVERKNOWN,1);
    add_prop(LIVE_I_UNDEAD, 35);
    add_prop(NPC_I_NO_FEAR, 1);

    set_alignment(-100);

    set_long("Stworzenie, ktoremu sie wlasnie przygladasz, jest niesamowicie "
	+ "brudne i odrazajace. Smrod rozkladajacego sie ciala bijacy od niego "
	+ "przyprawia cie o mdlosci i daje pewnosc, ze istota ta, to ghoul, "
	+ "lub, jesli wolisz - trupojad. Po potwornej bladosci jego ciala, "
	+ "widocznego spod lachmanow, mozesz sie domyslic, ze stwor "
	+ "ten prowadzi nocny tryb zycia. Kiedys zapewne byl czlowiekiem, "
	+ "lecz potworna egzystencja niemal calkowicie pozbawila go "
	+ "czlowieczenstwa.\n");

    set_stats(({40 + random(20), 30 + random(20), 30 + random(15), 40, 45, 50 }));
  
    set_skill(SS_AWARENESS,50);
    set_skill(SS_DEFENCE, 25);
    set_skill(SS_UNARM_COMBAT, 40 + random(20));
    set_skill(SS_WEP_CLUB, 20 + random(20));
    
    ustaw_whimpy(25,2,0);

    set_aggressive(1);

    set_random_move(20+random(10));

    switch (random(2)+1)
        {
          case 1: 
          //  add_weapon(BRONIE + "kosc.c");
            break;
          case 2: 
          //  add_weapon(BRONIE + "palka.c");
            break;
        }
   
    set_act_time(8+random(5));
    add_act("emote rozglada sie jakby czegos szukal.");
    add_act("przestap");
    add_act("powiedz I co ja tu robie?!");
    add_act("usmiechnij sie krwiozerczo");
    add_act("jeknij demonicznie"); 
    add_act("krzyknij Czy nikt nie widzial gdzies tu trupa? "
	+ "Bo zgubilem...");
    add_act("emote ociera krew z czola.");
    add_act("sapnij");
    add_act("krzyknij Jestem bardzo glodny!!!");
    add_act("zasmiej sie"); 
}

void
wesprzyj(object kto)
{
	if (query_attack())
	{
		return ;
	}
	
	command("wesprzyj " + OB_NAME(kto));
	
	if (query_attack())
	{
		command("krzyknij Atakowac nas? Gin!");
	}
	else
	{
		command("krzyknij Pomocy! Naszych bija!");
	}
}

void
wsparcie()
{
	(all_inventory(environment(TO)) - ({TO}))->wesprzyj(TO);
}

void
attacked_by(object kto)
{
	set_alarm(0.1, 0.0, "wsparcie");
	::attacked_by(kto);
}