inherit "/d/Imperium/std/monster";

#include <ss_types.h>
#include <stdproperties.h>
#include <macros.h>
#include "../kislev.h"
#include <car.h>

#define MA_QUESTA "_ma_questa_od_borysa"

object lok;


void
remove_object()
{
if (lok)
    {
    lok->remove_object();
    (TRAKT+"area15")->remove_exit("wschod");
    (TRAKT+"area15")->set_long("Trakt.\n");
    }	
::remove_object();
}









void
create_monster()
{ 
    
    ustaw_imie( ({"borys", "borysa", "borysowi", "borysa", "borysem", 
        "borysie" }), PL_MESKI_OS);

    ustaw_odmiane_rasy(PL_CZLOWIEK);
        

    dodaj_nazwy(({ "car", "cara", "carowi",
        "cara", "carem", "carze" }), ({ "carowie",
        "carow", "carom", "carow", "carami",
        "carach" }), PL_MESKI_OS);
    
    
    dodaj_przym("wielki","wielki");
    dodaj_przym("brodaty","brodaci");

    set_long("Przed toba wznosi sie olbrzymia sylwetka poteznego, "+
	    "obrosnietego mezczyzny, ktory emanuje niesamowitym smrodem "+
	    "wodki. Pomimo to zdajesz sobie sprawe, ze sprawuje najwieksza "+
	    "wladze w calym Kislevie i wlada olbrzymia, slynna na caly "+
	    "Stary Swiat armia. Jego masywne cialo okryte jest grubym, "+
	    "ciezkim kozuchem, pod ktorym zauwazasz blyszczaca stal "+
	    "zbroi plytowej.\n");


    set_gender(G_MALE);
        
    add_prop(CONT_I_WEIGHT, 70000);
    add_prop(CONT_I_HEIGHT, 185);
    add_prop(MAGIC_I_RES_FIRE,60);
    add_prop(MAGIC_I_RES_AIR,60);
    add_prop(MAGIC_I_RES_EARTH,60);
    add_prop(MAGIC_I_RES_WATER,60);
    add_prop(MAGIC_I_RES_LIFE,60);
    add_prop(MAGIC_I_RES_ACID,60);
    add_prop(MAGIC_I_RES_DEATH,60);
    
    set_skill(SS_DEFENCE,100);
    set_skill(SS_UNARM_COMBAT,100);
    set_skill(SS_PARRY,100);
    set_skill(SS_WEP_AXE,150);
    set_skill(SS_WEP_SWORD,150);
    set_skill(SS_WEP_WARHAMMER,150);
    set_skill(SS_WEP_POLEARM,150);
    set_skill(SS_2H_COMBAT,150);
    set_skill(SS_SHIELD_PARRY,150);
    
    set_stats(({500, 500, 500, 100, 100, 60}));
    
    set_chat_time(10);
    add_chat("Vodku mie tu dawaj!");
    add_chat("Ja lublu maju zenu w jej zopu.");
    add_chat("Tawariszczy zakurym cygarety!");
    add_chat("Palewaj Vodku!!!");
    add_chat("Vania! Prynisi wiedro wady...");
    add_chat("Bystra! Bystra! Dawaj!");
    add_chat("Rozpierdolim imperium waszu rodinu!");
    add_chat("Waszu stranu!");
    add_chat("Kak kiebia za wud?");
    add_chat("Skolka tiebie let?");
    add_chat("Kuda ty zywios?");
    add_chat("Ty malczyk ili dziewuszka ?");
    add_chat("Choczesz ty wypic czornojo smorodinu!");
    add_chat("Ilys spiert!");
 


    
    set_cchat_time(10);
    add_cchat("Prac ! Prac !");
    add_cchat("Ura Ura Ura Pierot!");
    add_cchat("Rozryzom tebia lepetyne!");
    add_cchat("Ja haczu rozrezac tibie bjalawu!");
    
    set_act_time(21);
    add_act("emote smarka.");
    add_act("emote beka gromko.");
    add_act("emote smieje sie rubasznie."); 
    add_act("emote sapie desperacko.");


    add_weapon(BRONIE+"car_sword");
    add_weapon(BRONIE+"car_sword");
    add_armour(ZBROJE+"car_plate");
    

    add_ask(({"zadanie","prace","pomoc"}), VBFC_ME("repomoc"));
    add_ask(({"nagrode","wynagrodzenie"}), VBFC_ME("renagroda"));
}


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

varargs void 
return_intro(string kto)
{
    command("przedstaw sie " + find_player(kto)->query_real_name(PL_CEL));
}



string
query_presentation()
{
    return "Borys III Krwawy, Car Kislevu, czlowiek";
}    

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


    if (!rand && !interactive(enemy))
	{
	tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" z zawzietoscia "+
	    "i perfekcja niesamowicie szybkim ruchem krzyzuje swoje "+
	    "dwa lsniace miecze na glowie "+QIMIE(enemy,PL_DOP)+", ktora "+
	    "eksploduje wyrzucajac w powietrze ohydne, krwawiace "+
	    "elementy czaszki i mozgu!\n",({TO,enemy}));
	
	enemy->catch_msg(""+QCIMIE(TO,PL_MIA)+" z zawzietoscia i "+
	    "i perfekcja niesamowicie szybkim ruchem krzyzuje swoje "+
	    "dwa lsniace miecze na Twojej glowie... Ostatnie glosy "+
	    "jakie slyszysz to okrzyk cara mowiacy: ZA KISLEV SWINIAKU!\n");
	    
	    enemy->set_hp(0);
	    enemy->do_die(TO);
	
	}
}

void
dzban()
{
command("emote wznosi kielich z wodka w gore krzyczac: Zdrowi Naroda!");
}

varargs string
repomoc(int nr)
{

    if (this_player()->query_prop(MA_QUESTA))
	{
	command("'Job twojo mac, przecio dalem tiebie zlecenie!");
	return 0;
	}
    if (TP->test_bit("imperium",1,6))
	{
	command("'Hm, zrobiles usz swoje.");
	return 0;
	}


    command("'O! Ti mie moszesz pomoc! Suchoj wiec. Wszystko poczelo sie "+
	    "od dawien czasow temu kidy to paskudne hordy z polnocy "+
	    "natargnely no nosz piekny kroj. Ji taki kurva chuj "+
	    "ze tok pem wyskoczyl, otoz obesrance pozostawily "+
	    "po sobie zajebanskom problemem, bowiem nieopodal stomd, "+
	    "od noszej stolycy na trakcie musiesz odszukac grote, "+
	    "taaak, hm duzom grote z czuwajomcym tam monstrem szkodliwym "+
	    "i uprzykszojomcym nom hamdel z ksiemstwem Imperialnym. Takowiemc "+
	    "przypierdol mu sowicie, a i nagroda bemdzi sowita!");
    set_alarm(2.0,0.0,"dzban");
    
    TP->add_prop(MA_QUESTA,1);
    setuid();
    seteuid(getuid());
    
    
    if (lok)
      return 0;
    
        
    lok=clone_object("/d/Imperium/std/room.c");
    lok->set_short("Wielka grota");
    lok->set_long("Jest to olbrzymia grota, ktora wyscielaja "+
	"konczyny, czaszki i wszystko co najohydniejsze.\n");
    lok->add_prop(ROOM_I_INSIDE,1);
    lok->add_prop(ROOM_I_LIGHT,-2);
    lok->add_exit(TRAKT+"area15.c","wyjscie");
    clone_object(NPC+"widmo")->move(lok);

    (TRAKT+"area15")->set_long("Ta czesc traktu znacznie sie odroznia, "+
	    "gdyz posrod zalegajacych krzakow na wschodzie dostrzegasz "+
	    "przebiegajaca tamtedy sciezke.\n");
    (TRAKT+"area15")->add_exit(lok,"wschod",0,2,1);	

}			

varargs string
renagroda( int nr )
{
if (!this_player()->query_prop("_zajebal_avatara"))
    {
    command("'Uo spierdalaj mie stomd!");
    return 0;
    }
if (this_player()->test_bit("imperium",1,6))
    return 0;
    
    command("'Ohoho dobrzy zrobilys! Napij siem z nomo vodki!");
    
    TP->set_bit(1,6);
    TP->catch_msg("Czujesz sie bardziej doswiadczony.\n");
    TP->add_exp(500000,0);
    TP->remove_prop(MA_QUESTA);
    TP->remove_prop("_zajebal_avatara");
    
}