/*
 *  Plik:         npc_p.c
 *  Autor:        Aleksy
 *  Data:         15.01.1999
 *  Last Update:  15.01.1999
 *  Opis:         Probny npc.
 */

inherit "/d/Imperium/std/monster.c";
#include "aleksy.h"

void
create_monster()
{
	
	ustaw_nazwe(({"brudny mezczyzna", "brudnego mezczyzny",
		           "brudnemu mezczyznie", "brudnego mezczyzny",
		           "brudnym mezczyzna", "brudnym mezczyznie"}),
				   ({"", "", "", "", "", ""}),
				  PL_MESKI_OS);


	ustaw_odmiane_rasy(PL_CZLOWIEK);

	set_gender(G_MALE);

	dodaj_przym("brudny", "brudni");

	set_long("Jakis brudny czlowiek. Wyglada na przerazonego "
		+ "i zmeczonego zyciem. Jest przykuty za prawa reke do "
		+ "poteznego kamiennego slupa. Zauwazasz ze jego prawa "
		+ "noga jest prawie oderwana od reszty ciala. Byl on "
		+ "pewnie katowany i bity wielokrotnie. Moze i ty masz "
		+ "ochote go uderzyc i pociagnac?\n");

	add_prop(OBJ_M_NO_ATTACK, "Ufff, nie odwazysz sie zaatakowac "
		+ "tak biednego, starego i zmeczonego zyciem mezczyzne.\n");

	set_stats(({20, 10, 15, 10, 10, 20}));

	set_act_time(5 + random(10));
	add_act("emote kopie cie brutalnie.");
	add_act("emote krzyczy: Idz stad! Zamalo miejsca tu dla nas!");
	add_act("emote mowi: Ano spadaj stad ty brudna i smierdzaca istota!");
	add_act("emote mowi: Co tu jeszcze robisz? Spieprzaj stad kutasie!");
	add_act(({"usmiech lekko", "wzdrygnij sie"}));
	add_act("emote mowi: No co patrzysz, cos tu zapomniales?");
	add_act("emote mowi: Spieprzaj stad... nie widzisz ze umieram?");
	add_act("emote mowi: Moze pomozesz mi umrzec? Prosze... ");
	add_act("emote mowi: Alez ja jestem zmeczony zyciem... ", "usmiech smutno");
	add_act("spanikuj");
}

void
init_living()
{
::init_living();
add_action("f_pociagnij", "pociagnij");
add_action("f_uderz", "uderz");
add_action("f_zbij", "zbij");
}

string
f_pociagnij(string kogo)
{
	switch (kogo)
    {
    case "brudnego mezczyzne za prawa noge":
		write("Pociagasz brudnego mezczyzne za prawie wyrwana prawa "
            + "noge.\n");
        say(QCIMIE(TP, PL_MIA) + " pociaga brudnego mezczyzne "
	        + "za prawie wyrwana prawa noge.\n");
		command("krzyknij");
		command("emote mowi: WAAAAA! Zostaw, boli mi WAAAAAAA!");
	    command("emote mowi: Po co zadajesz mi taki bol! Zostaw mnie w spokoju!");
		command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak pociagnac!");
		command("emote krzyczy: Ano zabierz swe brudne rece ode mnie i spadaj stad!");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
    break;
	case "brudnego mezczyzne za lewa noge":
        write("Pociagasz brudnego mezczyzne za lewa noge.\n");
        say(QCIMIE(TP, PL_MIA) + " pociaga brudnego mezczyzne "
	        + "za lewa noge.\n");
		command("krzyknij");
		command("emote mowi: WAAAAA! Zostaw, boli mi WAAAAAAA!");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne za prawa reke":
		write("Pociagasz brudnego mezczyzne za prawa reke.\n");
        say(QCIMIE(TP, PL_MIA) + " pociaga brudnego mezczyzne "
			+ "za prawa reke.\n");
		command("krzyknij");
		command("emote mowi: WAAAAA! Zostaw, boli mi WAAAAAAA!");
	 	command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak pociagnac!");
		command("emote krzyczy: Ano zabierz swe brudne rece ode mnie i spadaj stad!");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne za lewa reke":
		write("Pociagasz brudnego mezczyzne za lewa reke.\n");
        say(QCIMIE(TP, PL_MIA) + " pociaga brudnego mezczyzne "
			+ "za lewa reke.\n");
		command("krzyknij");
		command("emote mowi: WAAAAA! Zostaw, boli mi WAAAAAAA!");
	 	command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak pociagnac!");
		command("emote krzyczy: Ano zabierz swe brudne rece ode mnie i spadaj stad!");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne za kuske":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za kutafon":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za kutasa":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za pale":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za drut":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za gnat":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	case "brudnego mezczyzne za chuj":
		write("Chyba nie jestes na tyle brutalny by zrobic cos takiego, "
		    + "ale kto wie...\n");
		write("Brudny mezczyzna patrzy na ciebie z nadzieja.\n");
	break;
	default:
	write("Pociagnij brudnego mezczyzne za co?\n");
	}   
}

string
f_uderz(string kogo)
{
	switch(kogo)
    {
	case "brudnego mezczyzne w pysk":
		write("Z calej mocy uderzasz brudnego mezczyzne w pysk.\n");
		say(QCIMIE(TP, PL_MIA) + " z calej mocy uderza brudnego "
			+ "mezczyzne w pysk.\n");
		command("krzyknij");
		command("emote krztusi sie nagle z bolu.");
	    command("emote blednie jak sciana nie mogac oddychac.");
		command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak uderzuc!");
		write("Brudny mezczyzna probuje uderzyc cie lewa noga ale ty "
		    + "zrecznie unikasz tego ciosu.\n");
		say(QCIMIE(TO, PL_MIA) + " probuje uderzyc " + QCIMIE(TP, PL_DOP) +
			" lewa noga ale on zrecznie unika tego ciosu.\n");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne w leb":
		write("Z calej mocy uderzasz brudnego mezczyzne w leb.\n");
		say(QCIMIE(TP, PL_MIA) + " z calej mocy uderza brudnego "
			+ "mezczyzne w leb.\n");
		command("emote krztusi sie nagle z bolu.");
	    command("emote pada na kolana.");
		command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak uderzuc!");
		write("Brudny mezczyzna probuje uderzyc cie lewa noga ale ty "
		    + "zrecznie unikasz tego ciosu.\n");
		say(QCIMIE(TO, PL_MIA) + " probuje uderzyc " + QCIMIE(TP, PL_DOP) +
			" lewa noga ale on zrecznie unika tego ciosu.\n");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne w glowe":
		write("Z calej mocy uderzasz brudnego mezczyzne w glowe.\n");
		say(QCIMIE(TP, PL_MIA) + " z calej mocy uderza brudnego "
			+ "mezczyzne w glowe.\n");
		command("krzyknij");
		command("emote krztusi sie nagle z bolu.");
		command("emote blednie jak sciana nie mogac oddychac.");
		command("emote krzyczy: Ty narwancu, jak cie kopne teraz!");
		write("Brudny mezczyzna probuje uderzyc cie lewa noga ale ty "
		    + "zrecznie unikasz tego ciosu.\n");
		say(QCIMIE(TO, PL_MIA) + " probuje uderzyc " + QCIMIE(TP, PL_DOP) +
			" lewa noga ale on zrecznie unika tego ciosu.\n");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	case "brudnego mezczyzne w rzebra":
		write("Z calej mocy uderzasz brudnego mezczyzne w rzebra.\n");
		say(QCIMIE(TP, PL_MIA) + " z calej mocy uderza brudnego "
			+ "mezczyzne w rzebra.\n");
		command("krzyknij");
		command("emote krztusi sie nagle z bolu.");
		command("emote traci przytomnosc na jakis czas.");
		command("emote momroczy cos niezrozumiale nie moga nic powiedziec.");
        command("emote odzyskuje przytomnosc.");
		command("emote krzyczy: Ty bezmozgly idioto a zeby cie tak uderzuc!");
		write("Brudny mezczyzna probuje uderzyc cie lewa noga ale ty "
		    + "zrecznie unikasz tego ciosu.\n");
		say(QCIMIE(TO, PL_MIA) + " probuje uderzyc " + QCIMIE(TP, PL_DOP) +
		    " lewa noga ale on zrecznie unika tego ciosu.\n");
		command("emoty krzyczy glosno od bolu.");
		write("Brudny mezczyzna kopie cie brutalnie.\n");
		write("Brudny mezczyzna opluwa cie.\n");
	break;
	default:
	write("Uderz brudnego mezczyzne w co?\n");
	}
}

string
f_zbij(string kogo)
{
	switch(kogo)
	{
	case "brudnego mezczyzne rozga":
		write("Zdejmujesz rozge ze slupa i przymierzajac sie zaczynasz "
			+ "chlostac nia brudnego mezczyzne.\n");
		say(QCIMIE(TP, PL_MIA) + " zdejmuje rozge ze slupa "
			+ " i zaczyna chlostac nia brudnego mezczyzne.\n");
		command("emote krzyczy od bolu.");
		command("emote probuje uniknac twej rozgi lecz mu sie nie udaje.");
		command("spanikuj");
		command("emote mowi: Proszeeeeeeee przestan! Wiecej nie wytrzymam!");
		write("Jestes tak zadowolony z widoku meczennika ze bez przerwy "
			 + "bijesz go dalej.\n");
		say(QCIMIE(TP, PL_MIA) + " jest tak zadowolony ze nie przestaje bic "
			 + "brudnego mezczyzne.\n");
		command("emote kolejny raz probuje uniknac rozgi lecz znowu sie nie udaje.");
		command("emote patrzy na ciebie z nadzjeja.");
		command("emote krzyczy: Proszeeee przestan!");
		command("emote nie wytrzymuje juz i traci przytomnosc.");
		write("Jestes na tyle usatysfakcjonowany ze wieszasz z powrotem rozge "
			+ "i patrzysz na konajacego brudnego mezczyzne.\n");
		say(QCIMIE(TP, PL_MIA) + " wyglada na zadowolonego. Po chwili wiesza rozge "
			+ "na slup i z zadowoleniem przyglada sie brudnemu mezczyznie.\n");
		command("emote za jakis moment odzyskuje przytomnosc.");
		command("warknij");
		command("parsknij");
		write("Brudny mezczyzna opluwa cie.");
	break;
	default:
	write("Zbij brudnego mezczyzne rozga?");
	}
}