inherit "/d/Imperium/std/monster";
inherit "/std/combat/humunarmed";
inherit "/cmd/std/command_driver";
#include <money.h>
#include <ss_types.h>
#include <wa_types.h>
#include <macros.h>
#include <pl.h>
#include <stdproperties.h>
#include "../engine/norska.h"

void
create_monster()
{
  ustaw_odmiane_rasy(PL_CZLOWIEK);

  ustaw_imie(({"gargon","gargona","gargonowi","gargona","gargonem",
  "gargonie"}),PL_MESKI_OS);

  dodaj_przym("olbrzymi","olbrzymi");
  dodaj_przym("brodaty","brodaci");

set_long("Postura tego czlowieka swiadczy o jego zdolnosciach w boju. "+
"Wielkie muskuly, dlon wielkosci glowy doroslego mezczyzny i dwureczny "+
"mlot, na ktorym sie opiera nie zachecaja do pogawedki.\n");

  set_alignment(0);

  set_gender(G_MALE);

  add_prop(CONT_I_HEIGHT, 300);
  add_prop(CONT_I_WEIGHT, 30000);

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

  set_skill(SS_WEP_WARHAMMER, 100);
  set_skill(SS_DEFENCE, 90);
  set_skill(SS_PARRY, 90); 
  set_skill(SS_BLIND_COMBAT, 50);

  set_stats(({ 640, 530, 680, 70, 60, 120, 560, 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 "Gargon, Straznik Twierdzy Guar-Thorgh";

}


int
wstap( string str )
{
object sh;

if ( str == "do gildii" )
{
if (!TP->query_prop("poparcie_norski") )
{
   write("Straznik mowi: Nie otrzymales poparcia Wodza.\n");
   return 1;
}


if ( TP->query_prop("norsman") )
    {
    write("Jestes juz berserkerem z Norski.\n");
    return 1;
    }
write("Od teraz jestes berserkerem z Norski.\n");
    
    setuid();
    seteuid(getuid());
    
    sh = clone_object("/d/Imperium/Norska/engine/shadow.c");
    sh->shadow_me(TP, GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object("/d/Imperium/Norska/engine/rog.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_norski") )
    {
    this_player()->catch_msg(""+QCIMIE(cel[0],PL_MIA)+" ma juz poparcie.\n");
    return 1;
    }
    
    if (!TP->query_prop("szef_norski"))
        {
        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_norski",1);

    return 1;
}


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

    if (TP->query_real_name()!="yokoshiwa")
        return 0;


    if ( !sizeof(cel))
        {
        write("set kogo?\n");
        return 1;
        }
    if ( cel[0]->query_prop("norsman") )
        {
        write("To jest berserker!\n");
        return 1;
        }
                
setuid();
seteuid(getuid());
        
    sh=clone_object("/d/Imperium/Norska/engine/shadow");
    
    sh->shadow_me(cel[0], GUILD_TYPE, GUILD_NAME, GUILD_STYLE);
    clone_object("/d/Imperium/Norska/engine/rog")->move(cel[0]);
}

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