/* Plik:     Kapitan.c -  do statku miedzy Novigradem a Nuln
 * Autor:    Kaes 
*/

inherit "/d/Imperium/std/monster.c";
#include "mith.h"
#include <stdproperties.h>

create_monster()
{
 ustaw_nazwe(({"kapitan","kapitana","kapitanowi","kapitana","kapitanem","kapitanie"}),
            ({"kapitanowie","kapitanow","kapitanom","kapitanow","kapitanami","kapitanach"}), PL_MESKI_OS);
 
 set_gender(G_MALE);
 ustaw_odmiane_rasy(PL_MEZCZYZNA);
 add_prop(CONT_I_WEIGHT, 70000);
 add_prop(CONT_I_HEIGHT, 185);
 
 dodaj_przym("sniady","sniadzi");
 dodaj_przym("spokojny","spokojni");
 set_alignment(100);
 set_long("@@dlugi_opis");
 set_stats(({60,60,50,55,60,50}));
 set_skill(SS_LANGUAGE,30);
 set_skill(SS_LOC_SENSE,30);
 set_skill(SS_SWIM,45);
 set_skill(SS_PARRY,15);
 set_skill(SS_WEP_SWORD,20);
 
 set_act_time(5+random(8));
 add_act("emote przyczesuje reka brode.");
 add_act("emote mowi: Silny wiatr dzisiaj.");
 add_act("emote nuci pod nosem jakas zeglarska melodie.");
 add_act("emote mowi: Ehhh... napilbym sie zimnego piwa!");
 add_act("emote zamysla sie na chwile.");
 add_act("emote patrzy na swoj tatuaz.");
 add_act("emote mowi cos cicho o jakiejs wyspie.");
 set_aggressive(0);
 set_act_time(5);
 add_cact("emote mowi: Popelniles blad atakujac mnie!");
 add_cact("emote usmiecha sie spokojnie.");
 add_cact("emote szacuje cie przez chwile wzrokiem.");
 add_cact("emote zbiera sily na dalsza walke.");
 
 add_prop(LIVE_I_NEVERKNOWN, 1);

 add_ask(({"statek","drakkar","kruka"}), VBFC_ME("statek_info"));
 add_ask("morze", VBFC_ME("morze_info"));
 set_default_answer(QCIMIE(this_object(), PL_MIA)+" mowi: Nie zawracaj mi glowy glupotami.\n");
}
string dlugi_opis()
{
 return(" Wysoki, sniady i opanowany mezczyzna. Wyglada na typowego wilka "+
   "morskiego, obytego w swiecie, znajacego wiele zwyczajow. Na jego prawym ramieniu "+
   "widzisz calkiem duzy tatuaz, przedstawiajacy weza morskiego owinientego wokol "+
   "statku. Jego twarz przykryta jest czesciowo pod bujna, lekko siwa juz broda. "+
   "Patrzac na niego stwierdzasz, ze twoje zycie w jego rekach bedzie bezpieczne.\n");
}

add_introduced(string imie)
{
 set_alarm(1.0,0.0,"return_info",imie);
}

varargs void return_info(string kto)
{
  command("przedstaw sie "+find_player(kto)->query_real_name(PL_CEL));
}

string query_presentation()
{
 return("Jacob Visenberg, Kapitan Ringhorn'a, czlowiek");
}  
 
string statek_info()
{
   command("emote przez chwile wyglada jakby cie nie slyszal, potem jego "+
     "oblicze rozjasnia sie i mowi: Tak, wspanialy statek, prawda?");
   return"";
}

string morze_info()
{
  command("emote zamysla sie na chwile i odpowiada: Morze to cale moje zycie. "+
    "Moj ojciec czesto zabieral mnie na dlugie rejsy, uczac mnie wielu rzeczy.");
   return"";
}