inherit "/d/Imperium/std/monster";
inherit "/cmd/std/command_driver";
#include "chaos.h"
#include "chaos_npc.h"


create_monster()
{
  ustaw_odmiane_rasy(PL_CZLOWIEK);

  ustaw_imie(({"dzandalf","dzandalfa","dzandalfowi","dzandalfa","dzandalfem",
      "dzandalfie"}),PL_MESKI_OS);

  dodaj_przym(({"wysoki"}),({"wysocy"}));
  dodaj_przym(({"zmutowany"}),({"zmutowani"}));
  set_long("Mezczyzna.\n");
  set_living_name("straznik_gildii_chaosu");

  set_gender(G_MALE);

  add_prop(CONT_I_HEIGHT, 170);
  add_prop(CONT_I_WEIGHT, 60000);
  add_prop(NPC_M_NO_ACCEPT_GIVE, 1);
  

  set_skill(SS_UNARM_COMBAT, 90);
  set_skill(SS_DEFENCE, 90);
  set_skill(SS_BLIND_COMBAT, 50);

  set_stats(({100, 100, 120, 70, 60, 70, 80, 0, 0}));

  
}

void
add_introduced(string name)
{
   set_alarm(2.0,0.0,"return_info", name);
}

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

string
query_presentation()
{
  return "Dzandalf, brat Gandalfa, zmutowany skurczybyk";
}





int
wstap( string str )
{
object sh;

if ( str == "do gildii" )
{
if (!TP->query_prop("poparcie_chaosu") )
{
   write("Nie masz poparcia!\n");
   return 1;
}


if ( TP->query_prop("chaosnik") )
    {
    write("Jestes juz w gildii!\n");
    return 1;
    }
write("Wstepujesz do gildii rycerzy chaosu. Mozesz przeczytac tabliczke "+
"i wybrac se mutacje ktore chcesz miec.\n");
    
    setuid();
    seteuid(getuid());
    
    sh = clone_object("/d/Imperium/vic/chaos_sh.c");
    sh->shadow_me(TP, GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object("/d/Imperium/vic/chaos_armour.c")->move(TP);

}

write("Wstap gdzie?\n");
return 1;




}


int
poprzyj( string str )
{
object *cel = parse_this(str,"%l:"+PL_BIE);

if (!sizeof(cel))
{
    write("Poprzyj kogo?\n");
    return 1;
}

if ( cel[0]->query_prop("poparcie_chaosu") )
    {
    this_player()->catch_msg(""+QCIMIE(cel[0],PL_MIA)+" ma juz poparcie.\n");
    return 1;
    }
    
    if (!TP->query_prop("chaosnik"))
        {
        write("Twoje poparcie nic nie znaczy.\n");
        return 1;
        }
    
    this_player()->catch_msg("Popierasz "+QCIMIE(cel[0],PL_BIE)+".\n");
    cel[0]->add_prop("poparcie_chaosu",1);

    return 1;
}

int
set( string str )
{
object sh;
object *cel = parse_this(str,"%l:"+PL_BIE);


    if ( !sizeof(cel))
        {
        write("set kogo?\n");
        return 1;
        }
    if ( cel[0]->query_prop("chaosnik") )
        {
        write("To jest rycerz!\n");
        return 1;
        }
                
setuid();
seteuid(getuid());
        
    sh=clone_object("/d/Imperium/vic/chaos_sh.c");
    
    sh->shadow_me(cel[0], GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object("/d/Imperium/vic/chaos_armour.c")->move(cel[0]);
}

void
init_living()
{
::init_living();
    add_action("wstap","wstap");
    add_action("poprzyj","poprzyj");
    add_action("popros","popros");
    add_action("set","set");
}


int
popros( string str )
{
if (TP->query_prop("mutacje") >= 3 )
   {
 TO->command("powiedz Jestes juz zmutowany jak skurwysyn, "+
"szkoda mi na ciebie spaczenia.");
    return 1;
   }
if ( str == "o skrzydla" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze wyrastaja ci skrzydla - jak w Red Bullu! "+
"Co lepsze mozesz tera uzywac komendy 'lot'!\n");
clone_object("/d/Imperium/vic/mut02.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }

if ( str == "o rogi" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze wyrastaja ci rogi! Tera podczas walki "+
"masz nowego speca: nadziej!\n");
clone_object("/d/Imperium/vic/mut01.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }

if ( str == "o oczy" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze twoje oczy zmieniaja sie!\n");
clone_object("/d/Imperium/vic/mut03.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }
if ( str == "o kopyta" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze twoje nogi zmieniaja sie!\n");
clone_object("/d/Imperium/vic/mut04.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }
if ( str == "o skore" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze twoja skora zmienia sie!\n");
clone_object("/d/Imperium/vic/mut05.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }
if ( str == "o szpony" )
 {
 if (!TP->query_prop("chaosnik") )
  {
   write("Nie jestes rycerzem Khorne'a losiu!\n");
   return 1;
  }
write("Dzandalf wyrzuca w ciebie zielonego fireballa ktory "+
"cie mutuje. Czujesz ze wyrastaja ci szpony! Jak chcesz to tera "+
"podczas walki masz nowego speca: szarp!\n");
clone_object("/d/Imperium/vic/mut06.c")->move(TP);
TP->add_prop("mutacje",TP->query_prop("mutacje")+1);
 }
write("Popros o [rogi/skrzydla/oczy/skore/kopyta/szpony]?\n");
return 1;

}