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>
create_monster()
#define TO this_object()
#define TP this_player()
{
    set_long("Wielki czlowiek wydaje sie zagubiony w ogrodzie.\n");
             
    ustaw_nazwe(({"arturus","arturusa","arturusowi","arturusa","arturusem","arturusie"}),
                ({"","","","","",""}),PL_MESKI_NZYW);
    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    dodaj_przym("czarnowlosy","czarnowlosi");  
    dodaj_przym("ognistooki","ognistoocy");
    set_gender(G_MALE);
      
    set_stats(({140,200,200,50,40,150}));
    set_skill(SS_DEFENCE, random(150)+100);
    set_skill(SS_PARRY, random(150)+100);
    set_skill(SS_WEP_SWORD,random(150)+400);
    set_skill(SS_AWARENESS, 100);
    set_skill(SS_LANGUAGE, 100);
    set_skill(SS_2H_COMBAT, 100);
    set_skill(SS_BLIND_COMBAT, 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 usmiecha sie zimno.");
    add_act("emote gladzi swa wspaniala zbroje.");
    add_act("emote unosi swoj ogromny miecz.");
    add_act("emote mowi: Chwala Sigmarowi.");
    add_act("emote mowi: Musze odnalezc Imperatora.");
    add_cact("emote krzyczy: Ku chwale Sigmara!!!");
    add_cact("emote mowi: Zginiesz marnie!!!");
    add_cact("emote mowi: Ty potworze!!!");
    add_cact("emote mowi: Bogowie cie ukaza.");
    add_cact("emote krzyczy: Nidgy nie zwyciezysz.");
    add_cact("emote usmiecha sie pod nosem.");
    add_cact("emote wymachuje swymi mieczami.");
    set_alignment(1200);
    
    add_weapon("/d/Imperium/Altdorf/bronie/pmiecz");
    add_weapon("/d/Imperium/Altdorf/bronie/pmiecz");
    add_armour("/d/Imperium/Altdorf/zbroje/pplyta");
}
void
special_attack( object enemy )
{
object para;
int r = random(50);
    if ( r < 15 )
        {
        say("Nagle na "+QIMIE(TO,PL_DOP)+" splywa jasne swiatlo, ktore " +
            "wydaje sie go leczyc.\n");
        TO->heal_hp(300)+random(600);
        }
    if ( r < 7 )
        {
        enemy->catch_msg("Mezczyzna uskakuje przed twoim ciosem i wbija swe " +
                         "miecze w twe cialo.\n");
        say("Nagle paladym unika ciosu i wbija swe miecze gleboko w cialo " +
            ""+QIMIE(enemy,PL_DOP)+".\n");    
        enemy->reduce_hit_point(600)+random(600);
        }
}
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"Arturus Khaal, Wielki Paladyn Sigmara, czlowiek";
}
                                          
public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}
void
attacked_by(object wrog)
{
    command("emote wybucha smiechem.");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}