/* Plik:	kaplan.c
 * Autor:	Rangar
 * Data:	20.10.1997
 * Last Update:	07.11.1997
 * Komentarz:	Glowny Kaplan w swiatyni Chaosu w kurhanie.
 */

inherit "/d/Imperium/std/monster.c";
// Inherituj ten plik
#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include "local.h"
#include <wa_types.h>
#include <filter_funs.h>
// Wszystkie te includy mozesz w local.h wsadzic

#define WEP HOME + "bronie/sztyletz.c"
#define ARM HOME + "bronie/plaszcz2.c"
#define ARM2 HOME + "bronie/kolczuga.c"
#define ARM3 HOME + "bronie/diadem.c"

create_monster()
{
    set_long("Wysoki i grozny kaplan. Jest ubrany w kruczoczarna, dluga szate, ma na glowie stalowy diadem"+
             " z krwawnikiem i czarna, polyskliwa kolczuge z nieznanego ci materialu. Jego pociagla twarz"+
             " i waski nos przywodza ci na mysl szlachcica lub uczonego. Jego dlugie, brazowe wlosy"+
             " opadaja na ramiona niczym krolewski plaszcz. Ma rece o dlugich, delikatnych palcach"+
             " muzyka lub czarodzieja, to pewne ze bez trudu moze ulozyc najbardziej skomplikowany"+
             " gest. Na jego wysokim, arystokratycznym czole uformowal sie mars, kiedy cie zauwazyl,"+
             " jednak kaplan wydaje sie ignorowac cie na razie, chyba ze uczynisz cos naprawde glupiego.\n");
             
    ustaw_nazwe(({"xavier","xaviera","xavierowi","xaviera","xavierem","xavierze"}),
                ({"","","","","",""}),PL_MESKI_NZYW);

    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    dodaj_przym("grozny","grozni");  
    dodaj_przym("charyzmatyczny","charyzmatyczni");

    set_gender(G_MALE);
      
    set_stats(({48,54,56,50,53,50}));
    set_skill(SS_DEFENCE, random(20)+45);
    set_skill(SS_PARRY, random(10)+40);
    set_skill(SS_WEP_KNIFE,random(50)+40);    
    set_chat_time(2+random(10));
    set_act_time(5+random(10));
    
    add_act("emote intonuje jakis zaspiew, wykonujac skomplikowane gesty nad oltarzem.");
    add_act("emote wykonuje kilkufazowy gest nad oltarzem.");
    add_act("emote badawczo patrzy na ciebie. Masz wrazenie, ze jego bezlitosne oczy odkrywaja kazdy sekret twej duszy.");
    add_act("emote wznosi rece ku sufitowi, wypowiadajac jakies zaklecia.");
    add_act("emote pochyla w modlitwie glowe.");
    add_act("emote wyjmuje z szaty zloty proszek i posypuje nim symbole wyryte na oltarzu.");
    add_act("emote recytuje modlitwe, gestykulujac z uniesieniem.");
    add_act("emote otwiera ksiege i czyta polglosem.");

    add_act("emote mowi: I osmego dnia bitwy Pan nasz w koncu przemowil.");
    add_act("emote mowi: A zatem kiedy ksiezyce ustawia sie obok Pana, przeznaczenie sie dopelni.");
    add_act("emote mowi: Juz niedlugo Objawieniec przybedzie. Cieszmy sie i radujmy, oczekujac sprawiedliwosci.");
    add_act("emote mowi: Przybadz, Objawiencze, przybadz i osadz ich sprawiedliwie, osadz ich i ukaraj.");
    add_act("emote mowi: Juz niedlugo, juz niedlugo...");
    add_act("emote mowi: Czy przychodzisz od Deluviana?");
    add_act("emote mowi: Thesla grate, mori tempe, es intervalia!");
    add_act("emote mowi: Deluvian jest mi winien przysluge...");
    add_act("emote mowi: Niech woda oczysci to cialo, niechaj dusza podazy do Pana!");

    add_cact("emote mowi: Nostra terri re!");
    add_cact("emote mowi: Tsien cie ukarze!");
    add_cact("emote mowi: Jeszcze dzis twoj duch stanie przed Panem!");
    add_cact("emote mowi: Niech Stworca-Niszczyciel zabierze twa dusze!");
    add_cact("emote mowi: Bracia, nie przerywajcie modlow! Musimy wykonac misje!");
    add_cact("emote mowi: Na siedem piekiel, odwazny jestes, smiertelniku. Wkrotce spotkasz mojego Pana!");
    add_cact("emote mowi: Uciekaj, smiertelniku, uciekaj, dopoki mozesz. Chwila przyjscia Objawienca jest juz blisko!");

    add_cact("emote wykonuje lewa reka skomplikowany gest w twoim kierunku.\n"+
             "Zostales oslepiony!\nNic nie widzisz!\n\nOgluszajacy pisk powala cie na kolana!");
    add_cact("emote blyska oczami i obraca sztylet w dloni.");
    add_cact("emote szykuje sie do zadania decydujacego pchniecia.");
    add_cact("emote lekko zacina cie swoim sztyletem. Dretwieja ci rece!\nNa szczescie szybko odzyskujesz czucie w dloniach.");

    set_alignment(-300);

    add_weapon(WEP);
    add_armour(ARM);
    add_armour(ARM2);
    add_armour(ARM3);
}

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"Xavier Sellien Aubrant, Wielki Kaplan Stworcy-Niszczyciela, czlowiek";
}
                                          
public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}

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