inherit "/std/monster";
#include "szturmix.h"
#define MA_QUESTA "_ma_questa_od_czubka"

void
create_monster()
{
   
    ustaw_imie(({"marin", "marina", "marinowi", "marina", "marinem", "marinie"}),PL_MESKI_OS);
    ustaw_odmiane_rasy(PL_CZLOWIEK);


    set_long("Jest to legendarny szaleniec z ulicy Durnej, plotki o jego smierci byly "
	+"jednak falszywe... Ciekawe co on tu robi i na co czeka...\n");

    set_gender(G_MALE);
    dodaj_przym("powazny", "powazni");  


    add_prop(CONT_I_HEIGHT, 178);
    add_prop(CONT_I_WEIGHT, 88000);

    set_stats(({2,2,2,2,2,2}));


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

    set_alignment(2000);

}
void
add_introduced(string imie)
{
    set_alarm(2.0, 0.0, "return_introduce", imie);
}
string
query_presentation()
{
    return "Marin zwany 'Szalonym', Poslaniec Ulryka Bialego Wilka, czlowiek";
}
void
return_introduce(string kto) 
{
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}
void
attacked_by(object wrog)
{
    command("krzyknij Gin w imie Ulryka!");
    this_player()->heal_hp(-(this_player()->query_max_hp()));
    this_player()->do_die(TO);

}
varargs string
repomoc(int nr)
{

    if (this_player()->query_prop(MA_QUESTA))
        {
        command("'Juz dostales zadanie.");
        return 0;
        }
    if (TP->test_bit("imperium",1,7))
        {
        command("'Juz mi pomogles.");
        return 0;
        }


    command("'Hmm...tak mozesz mi pomoc. Ulryk mnie zeslal bym glosil jego slowo "
	+"i zem glosil ale ten pitok szef gwardii mnie sprzatnal. Zajeb go i pokaz "
	+"mi jego hmmm...tarcze???");
    
    TP->add_prop(MA_QUESTA,1);
  //  setuid();
  //  seteuid(getuid());
    
      

}                       

varargs string
renagroda( int nr )
{
if (!this_player()->query_prop("zajebal_zebaza"))
    {
    command("'Oszukac mnie nie proboj fagasie!");
    return 0;
    }
if (this_player()->test_bit("imperium",1,7))
    return 0;
    
    command("'Ta to jest jego tarcza!!! Ulryk ci to wynagrodzi!!");
    
    TP->set_bit(1,7);
    TP->catch_msg("Czujesz sie bardziej doswiadczony.\n");
    TP->add_exp(900000,0);
    TP->remove_prop(MA_QUESTA);
    TP->remove_prop("_zajebal_szefa_gwardii");
    command("'A teraz....zegnaj.");
    this_player()->heal_hp(-(this_player()->query_max_hp()));
    this_player()->do_die(TO);
}