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


#include "mag.h"
#include "mag_npc.h"

create_monster()
{
  ustaw_odmiane_rasy(({"upior","upiora","upiorowi","upiora","upiorem","upiorze"}),
          ({"upiory","upiorow","upiorom","upiory","upiorami","upiorach"}),
	  PL_MESKI_OS);

  ustaw_imie(({"vrax","vraxa","vraxowi","vraxa","vraxem",
      "vraxie"}),PL_MESKI_OS);

  dodaj_przym(({"wielki"}),({"wielcy"}));
  dodaj_przym(({"okrutny"}),({"okrutni"}));

  set_long("Upior.\n");
  set_living_name("straznik_gildii_nekro");

  set_gender(G_MALE);

  add_prop(LIVE_I_UNDEAD,100);
  add_prop(CONT_I_HEIGHT, 180);
  add_prop(CONT_I_WEIGHT, 60000);
  add_prop(NPC_M_NO_ACCEPT_GIVE, 1);
  

  set_skill(SS_UNARM_COMBAT, 100);
  set_skill(SS_DEFENCE, 100);
  set_skill(SS_BLIND_COMBAT, 100);
  set_skill(SS_WEP_SWORD,500);

  set_stats(({300, 200, 320, 10, 10, 90}));

    add_weapon("/d/Imperium/Nuln/bronie/dwmiecz2.c");
  
}

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 "Lord Vrax, Niszczyciel Kislevskich Ziem oraz Wielki Konsul i "+
          "Dowodca Ozywienczej Hordy";
}





int
wstap( string str )
{
object sh;

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


if ( TP->query_prop("nekro") )
    {
    write("Jestes juz w gildii!\n");
    return 1;
    }
write("Wstepujesz do gildii nekromantow.\n");
    
    setuid();
    seteuid(getuid());
    
    sh = clone_object(OBJ+"shadow.c");
    sh->shadow_me(TP, GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object(OBJ+"czaszka.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_nekro") )
    {
    this_player()->catch_msg(""+QCIMIE(cel[0],PL_MIA)+" ma juz poparcie.\n");
    return 1;
    }
    
    if (!TP->query_prop("szef_nekro"))
	{
	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_nekro",1);

    return 1;
}


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

	return 0;

    if ( !sizeof(cel))
	{
	write("set kogo?\n");
	return 1;
	}
    if ( cel[0]->query_prop("nekro") )
	{
	write("To jest mag!\n");
	return 1;
	}
		
setuid();
seteuid(getuid());
	
    sh=clone_object(OBJ+"shadow");
    
    sh->shadow_me(cel[0], GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object(OBJ+"czaszka")->move(cel[0]);
}

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