inherit "/std/monster";

#include "../defs.h"


    void
dobywaj()
{
TO->command("dobadz wszystkich broni");
}

void
create_monster()
{
   

    ustaw_odmiane_rasy(({"ghoul", "ghoula", "ghoulowi",
                "ghoula", "ghoulem", "ghoulu"}),
                ({"ghoule", "ghouli", "ghoulom",
                "ghouli", "ghoulami", "ghoulach"}),
                PL_MESKI_OS);

    add_prop(LIVE_I_NEVERKNOWN,1);
    set_gender(G_MALE);




    dodaj_przym("przerazajacy","przerazajacy");
    dodaj_przym("monstrualny","monstrualni");

    set_long("Ten ghoul jest conajmiej dwa razy wiekszy od wszystkich innych tutaj. "+
             "Prawdopodobnie ma on silna wiez z magia tych okolic a pozatym dochdozisz "+
             "do wniosku ze jest on kanibalem. Z jego oczu bije bezdenna pustka a cialo "+
             "mimo zgnilosci wydaje sie byc naprawde poteznie zbudowane.\n");


    add_prop(LIVE_I_UNDEAD, 1);
    add_prop(CONT_I_HEIGHT, 180);
    add_prop(CONT_I_WEIGHT, 75000);
    
    add_prop(MAGIC_I_RES_DEATH, 100);
    
    set_stats(({200+random(70),160+random(100),200+random(70),20,35,300}));

    set_skill(SS_DEFENCE, 90+random(40));
    set_skill(SS_PARRY, 90+random(25));
    set_skill(SS_UNARM_COMBAT, 90+random(40));
    set_skill(SS_WEP_CLUB, 90+random(40));

    set_act_time(23 + random(15));
    set_cchat_time(5 + random(4));

    add_act("emote wyje: Jeeeessc!!");
    add_act("emote syczy potepienczo");
    add_act("emote przesuwa sie w twoim kierunku z wypisanym glodem na twarzy.");
    add_act("emote wydlubuje jakiegos robaka z ziemi poczym go zjada.");

    enable_commands();
    
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Sylvania/bronie/maczugag.c")->move(TO);

    set_alarm(1.0,0.0,"dobywaj");  
    


    set_aggressive(1);
    set_restrain_path("/d/Imperium/Sylvania/lokacje/las/");
    set_alignment(-1200);

}

public int
block_exit()
{
int r;
    string  action = query_verb();
    
    r = random(100);
    
      if ( r <= 70 )
        {    
        TP->catch_msg(""+QCIMIE(TO,PL_MIA)+" blokuje ci droge ucieczki.\n");   
        tell_room(environment(TO),""+QCIMIE(TO,PL_MIA)+" blokuje "+
        ""+QIMIE(TP,PL_CEL)+" droge ucieczki.\n",({TP}));
        return 1;
        }
        return 0; 
}

public void
init_living()
{
string *exit;
int size;
    ::init_living();

    if (environment(this_object()))
    {
        exit = environment(this_object())->query_exit_cmds();
        size = sizeof(exit);
            while (--size >= 0)
            {
            add_action(block_exit, exit[size]);
    }
  }
}