/*
 * Plik : zam_kow.c
 * Autor: Torg
 * Opis : Kowal zakonny
 * Data : 2002-11-16
 * Mod. : 2002-11-16
 */


inherit "/d/Imperium/std/kowal";
#include "lakshmi.h"

void
create_kowal()
{
    ustaw_imie(({"haggard", "haggarda", "haggardowi", "haggarda", "haggardem",
        "haggardzie"}), PL_MESKI_OS);
    ustaw_odmiane_rasy(PL_KRASNOLUD);
    set_gender(G_MALE);
    dodaj_przym("niski", "niscy");
    dodaj_przym("siwobrody", "siwobrodzi");
    set_alignment(0);
    add_item("tatuaz",
             "Na lewym jego ramieniu widnieje niewielki, lecz "+
             "misternie wykonany tatuaz, przedstawiajacy  kufel "+
             "zimnego piwa, na ktorym wygrawerowany jest znak dwoch "+
             "skrzyzowanych mlotow.\n");

    set_long("Niski, siwobrody krasnolud z pewnoscia zna sie na "
            +"rzemiosle kowalskim. Jest poteznej postury, dzieki "
            +"czemu wyglada dosc groznie. Na jego lewym ramieniu "
            +"dostrzegasz jakis tatuaz. Ubrany jest w skorzany "
            +"fartuch, w ktory co chwila wyciera rece.\n");


    set_stats(({ 60, 40, 60, 40, 40, 40 }));

    set_skill(SS_DEFENCE, 10+random(30));
    set_skill(SS_CLIMB, 40);
    set_skill(SS_LOC_SENSE, 30);
    set_skill(SS_TRADING, 25);
    set_skill(SS_WEP_WARHAMMER, 20);

    add_weapon(PATH + "bronie/mlotkow.c");

    set_act_time(22 + random(20));
    add_act("emote mowi: Jak moge Ci pomoc?");
    add_act("emote rozmawia z klientem.");
    add_act("emote usmiecha sie przyjacielsko.");
    add_act("emote gladzi swoja brode.");

    set_cact_time(5);
    add_cact("emote mowi: Pozalujesz tego, Sigmar Cie ukarze.");
    add_cact("emote krzyczy: POMOCY, MORDUJA!!!");
    add_cact("emote mowi: Zostaniesz przeklety, a moi bracia mnie pomszcza.");

    dodaj_miedz(15+random(50));
    dodaj_srebro(10+random(40));

    ustaw_co_robimy(({
        PATH + "bronie/mlot_1.c",
        PATH + "bronie/mlot_2.c",
        PATH + "bronie/mlot_3.c",
        PATH + "zbroje/plytowka.c",
        PATH + "zbroje/przylbica.c",
        PATH + "zbroje/tarcza.c",
        PATH + "zbroje/puklerz.c",
        }));

    add_cmdsoul(PATH + "engine/ryc_soul1.c");
    update_hooks();

}

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"Haggard, Mistrz Kowalski z klanu Houg, krasnolud";
}

public void
wesprzyj(object ob)
{
    if (query_attack())
    {
        return ;
    }

    command("wesprzyj " + OB_NAME(ob));

    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Do boju!"); break;
            case 1: command("krzyknij W imie Sigmara!"); break;
            case 3: command("krzyknij Sigmar!"); break;
            case 4: command("krzyknij Za Zakon!"); break;
        }
        return ;
    }
}

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

void
attacked_by(object wrog)
{
    command("krzyknij Bracia! Wspomozcie mnie!");
    command("zmiazdz");
    set_alarm(0.1, 0.0, "pomocy");
    return ::attacked_by(wrog);
}

void
special_attack(object wrog)
{
    command("zmiazdz");
}