// by Flex '97

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

#include <ss_types.h>
#include <macros.h>
#include <stdproperties.h>

create_zolnierz()
{
    int i,j,WIEK;
    WIEK = random(20) + 30;
    set_random_move(30+random(15));
    ustaw_nazwe(({"pikinier","pikiniera",
                  "pikinierowi","pikiniera",
                  "pikinierem","pikinierze"}),
                    
                ({"pikinierzy","pikinierow",
                  "pikinierom","pikinierow",
                  "pikinierami","pikinierach"}),PL_MESKI_OS);
    ustaw_krotki_opis(({"pikinier","pikiniera",
                  "pikinierowi","pikiniera",
                  "pikinierem","pikinierze"}),
                    
                ({"pikinierzy","pikinierow",
                  "pikinierom","pikinierow",
                  "pikinierami","pikinierach"}),PL_MESKI_OS);


    set_long("Pikinier, stacjonujacy w koszarach przy Nuln, " +
        "jest czlowiekiem w wieku okolo " + WIEK  + " lat. " +
        "Widac ze jest zaprawionym w bojach zolnierzem. "
       +"Kilka blizn na twarzy swiadczy ze przezyl juz niejedna niebezpieczna sytuacje. "
       +"Z jego postaci emanuje aura pewnosci siebie. \n");
    
    set_act_time(30 + random(20));
    
    add_act("emote pyta opryskliwie: Czego tu szukasz ?");
    add_act("emote grozi: Tu sa koszary, lepiej stad zmiataj !");
    add_act("emote patrzy na ciebie i mowi: Czego tu ?");
    add_act("emote rozglada sie.");
    add_act("emote dlubie w nosie.");
    add_act("emote patrzy na ciebie jakby mial ochote cie pobic.");
    add_act("emote przyglada ci sie badawczo.");    

    add_weapon(NPATH + "bronie/pika.c");
    add_armour(NPATH + "zbroje/napiersnik.c");   
    
}   

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);
}