inherit "/d/Imperium/std/monster.c";
#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include "local.h"
#include <wa_types.h>
#include <filter_funs.h>
#define PEN_SPECJALA 300
#include "/d/Imperium/funkcje/specjal1.c"
create_monster()
{
    set_long("Wysoki i umiesniony mezczyzna kolo czterdziestki. Mimo wieku wyglada " +
             "i porusza sie jak mlodzik. Poorana bliznami twarz swiadczy o niezbyt " +
             "zabawnym zyciu. U lewej reki dostrzegasz brak jednego palca.\n");
             
    ustaw_nazwe(({"altrad","altrada","altradowi","altrada","altradem","altradzie"}),
                ({"","","","","",""}),PL_MESKI_NZYW);
    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    dodaj_przym("zablizniony","zabliznieni");  
    dodaj_przym("potezny","potezny");
    set_gender(G_MALE);
      
    set_stats(({100,280,150,50,53,200}));
    set_skill(SS_DEFENCE, random(50)+100);
    set_skill(SS_PARRY, random(50)+100);
    set_skill(SS_WEP_SWORD,random(50)+100);
    add_prop(LIVE_I_SEE_INVIS, 20);
    add_prop(LIVE_I_SEE_DARK, 20);
    set_chat_time(2+random(10));
    set_act_time(5+random(10));
    
    add_act("emote przyglada sie swemu mieczowi z krzywym usmiechem.");
    add_act("emote wpatruje sie w ciebie przenikliwie.");
    add_act("emote poprawia swa i tak wspaniale dopasowana zbroje.");
    add_act("emote mowi: Trzeba zgniesc chaos u jego zrodel.");
    add_act("emote mowi: Ciekawe ilu tym razem zginie...");
    add_cact("emote mowi: Zginiesz marnie.");
    add_cact("emote mowi: Chcesz ze mna wygrac? Haaa...");
    add_cact("emote mowi: Lepiej juz zacznij uciekac glupcze.");
    add_cact("emote mowi: Jestem najlepszym miecznikiem w miescie. Nikt mi nie dorowna");
    add_cact("emote krzyczy: Straaaz!!! Straaaz!!!");
    add_cact("emote zagryza wargi i mruzy wsciekle oczy.");
    add_cact("emote uchyla sie nagle i wywija pirutet. Po czym wraca do walki.");
    set_alignment(900);
    add_weapon("/d/Imperium/Altdorf/bronie/cmiecz");
    add_armour("/d/Imperium/Altdorf/zbroje/cbasinet");
    add_armour("/d/Imperium/Altdorf/zbroje/cbuty");
    add_armour("/d/Imperium/Altdorf/zbroje/cplaszcz");
    add_armour("/d/Imperium/Altdorf/zbroje/ckolcz");
    add_armour("/d/Imperium/Altdorf/zbroje/cnagol");
    add_armour("/d/Imperium/Altdorf/zbroje/ctarcz");
}
void
add_introduced(string imie)
{
    set_alarm(2.0,0.0,"return_intro",imie);
}
varargs void
return_intro(string kto)
{
    command("przedstaw sie " + find_player(kto)->query_real_name(PL_CEL));
}
string
query_presentation()
{
    return"Altrad Graan Kapitan Altdorfskiej Strazy, Najlepszy Miecznik Stolicy, Czarne Ostrze";
}
                                          
public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}
void
attacked_by(object wrog)
{
    command("krzyknij ZGINIESZ!!!");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}