inherit "/d/Imperium/std/monster.c";
#include "macros.h"
#include "ss_types.h"
#include "/sys/stdproperties.h"

void add_introduced(string imie);
varargs void return_intro(string kto);
string query_presentation();

create_monster()
{
  ustaw_imie(({"Alfred Toresh","Alfreda Toresha","Alfredowi Toreshowi",
    "Alfreda Toresha","Alfredem Toreshem","Alfredzie Toreshu"}));
  ustaw_nazwe(({"kapitan","kapitana","kapitanowi","kapitana","kapitanem",
    "kapitanie"}),({"kapitanowi","kapitanow","kapitanom","kapitanowie",
    "kapitanami","kapitanach"}),PL_MESKI_OS);
  ustaw_nazwe(({"alfred","alfreda","alfredowi","alfreda","alfredem",
    "alfredzie"}));
  ustaw_nazwe(({"Alfred","Alfreda","Alfredowi","Alfreda","Alfredem",
    "Alfredzie"}));
  ustaw_shorty(({"kapitan","kapitana","kapitanowi","kapitana","kapitanem",
    "kapitanie"}),({"kapitanowi","kapitanow","kapitanom","kapitanowie",
    "kapitanami","kapitanach"}),PL_MESKI_OS);
  set_gender(G_MALE);
  ustaw_odmiane_rasy(PL_MEZCZYZNA);
  dodaj_przym("potezny","potezni");
  dodaj_przym("brodaty","brodaci");
  add_prop(CONT_I_WEIGHT,80000); //waga
  add_prop(CONT_I_HEIGHT,180); //wzrost
  set_alignment(0);
  set_long("@@dlugi_opis");
  set_stats(({60,40,55,15,15,20})); //str,dex,con,int,wis,dis
  set_skill(SS_HIDE,40); //skille
  set_skill(SS_PARRY,30); //lista w /syss/ss_types.h
  set_act_time(10); //czestos zachowan
  set_aggressive(0); //ustawienie agresywnosci 1-atakuje 0-nie atakuje
} //create_monster

string dlugi_opis()
{
 return("Wstretny, niskiego wzrostu karzel. Wyglada pokracznie, jednak "+
  "wolisz przecenic poczatkowo jego mozliwosci. Jest caly brudny, ubrany "+
  "w potargane, krotkie spodnie. Twoja uwage przykuwaja jego rece, ktore "+
  "sa nieproporcjonalnie duze do reszty ciala. W swych dloniach trzyma "+
  "duzy, bojowy mlot, na ktory od czasu do czasu spoglada z czuloscia.\n");
} // dlugi_opis

void 
add_introduced(string imie)
{
  set_alarm(2.0,0.0,"return_intro",imie);
} // add_introduced

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

string
query_presentation()
{
  return
    "Alfred Toresh, Kapitan Smuklej Rybki, czlowiek";
} // query_presentation