// by Flex '97
// przerobione przez Alfena

#include "silvy.h"
inherit NPATH + "std/zol";

#include <ss_types.h>
#include <macros.h>
#include <stdproperties.h>
#define PEN_SPECJALA 3*random(query_stat(SS_STR)+120)

#include "/d/Imperium/funkcje/specjal1.c"	

public int atak();

create_zolnierz()
{
    set_random_move(20+random(20));
    ustaw_nazwe(({"zolnierz","zolnierza",
                  "zolnierzowi","zolnierza",
                  "zolnierzem","zolnierzu"}),                    
                ({"zolnierze","zolnierzy",
                  "zolnierzom","zolnierzy",
                  "zolnierzami","zolnierzach"}),PL_MESKI_OS);
    ustaw_krotki_opis(({"zolnierz","zolnierza",
                  "zolnierzowi","zolnierza",
                  "zolnierzem","zolnierzu"}),                    
                ({"zolnierze","zolnierzy",
                  "zolnierzom","zolnierzy",
                  "zolnierzami","zolnierzach"}),PL_MESKI_OS);

    set_long("Stoi przed toba zolnierz piechoty imperialnej," +
        " zapewne jeden z wielu ktorych mozesz tu spotkac. " +
        "Nie wyglada na specjalnie uradowanego. Jego ciemnoniebieski " +
        "ubior zdobia " +
        "insygnia trzydziestego piatego pieszego regimentu z Nuln. " +
        "Calosci dopelniaja zolte zdobienia na pancerzu." +
        "\n");

    set_skill(SS_SHIELD_PARRY, 140);
    
    set_act_time(30 + random(20));
    
    add_act("emote pyta: Czego tu szukasz ?");
    add_act("emote krzyczy: Uwazaj to teren wojskowy !");
    add_act("emote mowi: Opusc natychmiast teren koszar !");
    add_act("emote rozglada sie.");
    add_act("emote poprawia ubranie.");
    add_act("emote mruczy cos pod nosem.");
    add_act("emote przyglada ci sie badawczo.");    
    add_act("emote usmiecha sie do ciebie szyderczo.");    
    
    set_cchat_time(30 + random(20));
    
    add_cchat("Poddaj sie lub gin !");
    add_cchat ("Nadszedl twoj czas dziecinko.");
    add_cchat("Nie ujdziesz z zyciem !");
     
    add_weapon(NPATH + "bronie/mieczK.c");
    add_armour(NPATH + "zbroje/tarczaK.c");
    add_armour(NPATH + "zbroje/kolczugaK.c");
    set_npc_react(1);
    set_aggressive("@@atak");

}   

public void
wesprzyj_zol(object ob)
{
    command("wesprzyj " + OB_NAME(ob));
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj_zol(this_object());
}

void
attacked_by(object wrog)
{
    command("krzyknij Do broni!! Na pomoc!!");
    set_alarm(2.0, 0.0, "pomocy");
    return ::attacked_by(wrog);
}


public int 
atak()
{
   string imie=TP->query_real_name();
   if (TP->query_prop("chaosnik")) return 1;
   return 0;
}


public void
notify_you_killed_me(object dead)
{
   set_alarm(0.5,0.0,&command("wez wszystko z ciala"));
}