/* Prostytutka z Nuln. (c) Written by Morty */

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

#define PRZYMIOTNIKI (({({"ladny", "ladni"}), ({"mlody", "mlodzi"}), \
        ({"powabny", "powabni"}), ({"kuszacy", "kuszacy"}), ({"usmiechniety", "usmiechnieci"})}))
#define LICZBA_PRZYMIOTNIKOW 5

#define TP this_player()
#define TO this_object()
#define NPATH "/d/Imperium/Nuln/"

void
create_monster()
{
        int i, j;


        dodaj_nazwy(({"prostytutka", "prostytutki", "prostytutce", "protytutke",
                "prostytutka", "prostytutce"}), ({"prostytutki", "prostytutek",
                "prostytutkom", "prostytutki", "prostytutkami", "prostytutkach"}),
                PL_ZENSKI);
    add_prop(LIVE_I_NEVERKNOWN,1);
    set_restrain_path(NPATH + "lokacje/");
    set_gender(G_FEMALE);
        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("Hu hu! Dziwka jak ich malo. Ma na sobie skapy ubior "+
	    "z widocznymi cyckami i rowem rozkoszy. Jesli chcesz, "+
	    "mozesz sprobowac zgwalcic ta nieskazitelna dziwke.\n");
        
        ustaw_odmiane_rasy(PL_CZLOWIEK);

        add_prop(CONT_I_WEIGHT, 55000);
        add_prop(CONT_I_HEIGHT, 165);

        set_stats(({ 22+random(10), 31+random(10), 20+random(15), 40, 40, 30 }));
        
        set_act_time(22 + random(15));
        set_cchat_time(6);

        add_act("emote szepcze: Kochasiu ... nie chcialbys sie zabawic ?");
        add_act("emote pyta: Czy nie chcialbys aby ktos cie ogrzal ?");
        add_act("emote mowi: Ehh ... parszywa pogoda dzisiaj.");
        add_act("emote mowi: Chyba czas do domu.");
        add_act("emote usmiecha sie do ciebie zalotnie.");
        add_act("emote puszcza do ciebie zalotnie oczko.");
        add_act("emote kuszaco poprawia sukienke.");
	add_act("emote mowi: Wylizesz mi szparke malutki?\n");
        
        add_cchat("ZBOCZENIEC !!! RATUNKU !!!");
        add_cchat("Nie mysl sobie ze tak latwo ci ze mna pojdzie.");
        add_cchat("A moze sie inaczej zabawimy ??");
        
    set_alignment(150);

}



int
zgwalc( string str )
{
    if (str == "dziwke" || str == "kobiete" || str == "prostytutke")
	{
	if (TP->query_prop("players_sperm") >= 3 )
	    {
	    TO->command("powiedz Oj chlopczyku, twoja faja opadla, wiec jak "+
		"chcesz mnie wydymac?");
	    return 1;
	    }
	if (TP->query_gender() == 1 )
	    {
	    write("Hm, zdaje sie, ze jestes kobieta.\n");
	    return 1;
	    }
	
	TP->catch_msg("Lapiesz "+QIMIE(TO,PL_BIE)+", wywracasz "+
	"na ziemie, po czym z rozkosza gwalcisz ja od tylca spogladajac "+
	"sobie na jej sliczny, zgrabny tyleczek. Nagle z twej armaty "+
	"wystrzeliwuje strumien gesty i mleczny jak mleko, "+
	"a ty jeczysz rozkosznie delektujac sie ta cudowna chwila.\n");
		
	tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" rzuca sie "+
	"na "+QIMIE(TO,PL_BIE)+", wywraca na ziemie, a po chwili "+
	"zaczyna ja intensywnie posuwac... Slyszysz jek rozkoszy, "+
	"a zadowolony gwalciciel wstaje z usmiechem na twarzy.\n",({TP}));
	
	TP->heal_hp(50);
	TP->add_prop("players_sperm",TP->query_prop("players_sperm")+1);
	return 1;	
	}


write("Zgwalc kogo? moze dziwke? kobiete ?\n");
return 1;
}




void
init_living()
{
::init_living();
    
add_action("zgwalc","zgwalc");    


}