inherit "/d/Imperium/std/monster.c";
#include "local.h"

create_monster()
{

 ustaw_imie(({"malcolm","malcolma","malcolmowi","malcolma",
              "malcolmem","malcolmie"}),
     		PL_MESKI_OS);
 dodaj_nazwy(({"kapitan","kapitana","kapitanowi",
               "kapitana","kapitanem","kapitanie"}),
            ({"kapitanowie","kapitanow","kapitanom",
              "kapitanow","kapitanami","kapitanach"}), PL_MESKI_OS);
 
 set_gender(G_MALE);
 ustaw_odmiane_rasy(PL_CZLOWIEK);
 add_prop(CONT_I_WEIGHT, 75000);
 add_prop(CONT_I_HEIGHT, 175);
 
 dodaj_przym("ciemnowlosy","ciemnowlosi");
 dodaj_przym("przyjacielski","przyjacielscy");
 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,40);
 set_skill(SS_PARRY,99);
 set_skill(SS_DEFENCE, 99);
 set_skill(SS_WEP_SWORD,99);
 set_skill(SS_AWARENESS, 100);
 
 set_act_time(5+random(8));
 add_act("emote mowi: Do czorta ! Na tej rzece trzeba uwazac na lachy.");
 add_act("emote nuci pod nosem jakas zeglarska melodie.");
 add_act("emote mowi: Ehhh... napilbym sie zimnego piwa!");
 add_act("emote uwaznie obserwuje drugi brzeg.");
 set_aggressive(0);
 set_act_time(5);
 add_cact("emote mowi: Popelniles blad atakujac mnie!");
 add_cact("emote usmiecha sie spokojnie.");
 add_cact("emote patrzy na ciebie wsciekle.");

 set_default_answer(QCIMIE(this_object(), PL_MIA)+" mowi: Nie zawracaj mi glowy glupotami.\n");
}
string dlugi_opis()
{
 return("Ten ciemnowlosy, przyjacielsko wygladajacy mezczyzna, zdaje sie byc typowym zeglarzem. "+
 "Na prawym przedramieniu dostrzegasz tatuaz. Szrama na jego twarzy dowodzi ze " +
 "bral udzial w wielu burdach wywolywanych we wszystkich tawernach na calym swiecie. "+
 "Jednak teraz zajal sie zeglowaniem po wodach srodladowych, byc moze mial dosyc awanturniczego zycia.\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("Malcolm Froidin, kapitan barki 'Kahn-Gad', czlowiek");
}