inherit "/d/Imperium/std/monster";
#include <money.h>
#include <ss_types.h>
#include <wa_types.h>
#include <macros.h>
#include <pl.h>
#include <stdproperties.h>

#define TP this_player()
#define TO this_object()

void
create_monster()
{

        set_gender(G_MALE);
        dodaj_przym("zielonkawy","zielonkawi");
        dodaj_przym("zoltooki","zoltoocy");

	set_long("Po krzywej mordzie i posturze pastucha stwierdzasz, ze moze "+
            "to byc tylko kalreg. Sam nie wiesz czemu ale jeszcze nie zakonczyl "+
	    "ani nie zerwal linka na twoj widok, moze czeka zeby go wyruchac ?\n");
            
        ustaw_imie(({"kalreg","kalrega","kalregowi","kalrega","kalregiem","kalregu"}),PL_MESKI_OS);

        ustaw_odmiane_rasy(PL_OGR);

        add_prop(CONT_I_WEIGHT, 85000);
        add_prop(CONT_I_HEIGHT, 260);
        add_prop(NPC_M_NO_ACCEPT_GIVE,1);
        add_prop(LIVE_S_EXTRA_SHORT, " podpierajacy tablice");
        set_skill(SS_DEFENCE, 10);
        set_skill(SS_PARRY, 10);
        set_skill(SS_BLIND_COMBAT, 10);
        set_skill(SS_WEP_AXE, 10);
        set_skill(SS_TRACKING, 10);
        set_skill(SS_WEP_WARHAMMER, 10);

        set_stats(({80, 80, 80, 200, 200, 10, 60}));

        set_act_time(15);
        set_cact_time(2);
        set_cchat_time(2);

        add_act("emote krzyczy: Haaaaaaaaaaakooooooon! Do nogi!");
        add_act("emote mowi: Ehh.. ale mnie dupa boli.");
        add_act("emote mowi: Jesli potrzebujesz.. zastapie ci kobiete na te noc.");
        add_act("emote obejmuje tablice z miloscia.");
        add_act("emote usmiecha sie glupio.");
        add_act("emote grzebie sobie w gaciach.");
	add_act("emote mowi: Ilez to koz sie za mlodu wyruchalo...\n");

        add_cact("emote traci kontakt z rzeczywistoscia. Mimo to, nie opuszcza swiata Klona.");
        add_cact("emote proboje zakonczyc, lecz musi on ochlonac troche od walki.");
        add_cchat("Nie bij panie, daruj zycia!");
        add_cchat("Ej no, czemu nie moge zakonczyc!?");

        add_weapon("/d/Imperium/Norska/bronie/toporek2.c");

    set_alignment(1000);

}



int
wyruchaj( string str )
{
    if (str == "ogra" || str == "kalrega")
	{
	if (TP->query_prop("players_sperm") >= 3 )
	    {
	    TO->command("powiedz Juz mnie dupa boli, moze pozniej panie ?");
	    return 1;
	    }
	if (TP->query_gender() == 1 )
	    {
	    write("Czym mnie chcesz wydymac ?.\n");
	    return 1;
	    }
	
	TP->catch_msg("Lapiesz "+QIMIE(TO,PL_BIE)+" za gebe, odwracasz go "+
	"i spogladasz jak radosnie wypina dupe w twoim kierunku. "+
	"Wyjawszy swoja fujare zaczynasz dymac "+QIMIE(TO,PL_BIE)+" doputy, "+
	"dopuki ci nie mija ochota ruchania tego pedala.\n");
		
	tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" z koniecznosci "+
	"zaczyna ruchac "+QIMIE(TO,PL_BIE)+" doputy, dopuki mu nie mija "+
	"ochota na ruchanie tego pedala.\n",({TP}));
	
	TP->heal_hp(50);
	TP->add_prop("players_sperm",TP->query_prop("players_sperm")+1);
	return 1;	
	}


write("Wyruchac kogo? moze Kalrega ?\n");
return 1;
}

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


}
string
query_presentation()
{
  return "Kalreg, Dupa Berserkerow z Norski, ogr";
}

void
add_introduced (string imie)
{
     set_alarm(2.0,0.0,"return_introduce", imie);
}

void
return_introduce(string kto) 
{
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}