/* Plik:     wiesniaczka.c 
 * Autor: Kaes i Karraluch 
 * Przerobki: Borzoj i Tigr
 * Data: 12.11.97
 * Last update: 21.06.98
 * Opis: wiesniaczka i nic wiecej
 */

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

string dlugi_opis(int postawa);
      
create_monster()
{
  int postawa=0;
  int k=0;
  
  mixed postura=({({"drobny","drobni"}),({"chudy","chudzi"}),({"prosty",
    "prosci"}),({"wysoki","wysocy"}),({"tlusty","tlusci"})});
  
  mixed wyglad=({({"ladny","ladni"}),({"brzydki","brzydcy"}),
    ({"dlugowlosy","dlugowlosi"}),({"wesoly","weseli"})});
  
  ustaw_nazwe(({"wiesniaczka","wiesniaczki","wiesniaczce","wiesniaczke",
    "wiesniaczka","wiesniaczce"}),({"wiesniaczki","wiesniaczek","wiesniaczkom",
    "wiesniaczek","wiesniaczkami","wiesniaczkach"}),PL_ZENSKI);

  ustaw_odmiane_rasy(PL_CZLOWIEK);
  set_gender(G_FEMALE);
  
  postawa=random(5);
  k=random(4);
  
  dodaj_przym(wyglad[k][0],wyglad[k][1]);
  dodaj_przym(postura[postawa][0],postura[postawa][1]);
  
  add_prop(LIVE_I_NEVERKNOWN,1); //nigdy nie jestes mu przedstawiony
  add_prop(CONT_I_WEIGHT,45000+postawa*5000); //waga
  add_prop(CONT_I_HEIGHT,140+postawa*7); //wzrost
  
  set_alignment(20*k);
  
  set_long(dlugi_opis(postawa));
  set_stats(({30+postawa*6,30+postawa*4,30+postawa*4,25+random(3)*4,
    25+random(3)*9,30+postawa*4})); //str,dex,con,int,wis,dis

  set_skill(SS_AWARENESS, 25+3*k);
  set_skill(SS_UNARM_COMBAT, 20 + 3*postawa);
  set_skill(SS_DEFENCE, 40);
  set_skill(SS_WEP_KNIFE, 15 + 3 * random(3));
  set_skill(SS_HIDE, 13 + random(10));
  
  if (random(3)>0)
      add_weapon(TPATH + "/bronie/noz_wie.c");
  
  dodaj_miedz(3+random(6));
  dodaj_srebro(1);
  
  ustaw_whimpy(50,2,1);
  
  set_act_time(10+random(5)); //czestosc zachowan
  
  set_random_move(20+random(10));

  add_act("emote ociera pot z czola.");
  add_act("powiedz Czego tu szukasz podrozniku?");
  add_act("emote przyglada sie tobie podejrzliwie.");
  add_act("emote poprawia wlosy.");
  add_act("usmiechnij sie cieplo");
  add_act("spojrzyj ciekawsko"); 
  
  jak_pojawiac_sie(" przybywa.");
  jak_znikac(" kieruje sie w strone domu.");
  jak_znikac_podczas_walki(" wybiega w przerazeniu.");
} //create_monster

string dlugi_opis(int postawa)
{
  string poczatek_opisu="Stoi przed toba kobieta w srednim wieku. ";
  string *srodek_opisu=({"Jest bardzo drobna i wyglada na chorowita. ",
    "Jest dosyc chuda i nie wyglada najlepiej. ", "Nic szczegolnego nie ma "+
    "w jej wygladzie. ","Jest dosyc dobrze zbudowana jak na kobiete. ",
    "Jest gruba i potezna. "});
  string koniec_opisu="Jest ubrana w proste lniane rzeczy - spodnice i "+
    "koszule, ktore maja na sobie slady dlugiego uzywania do prac rolnych. "+
    "Jedynie kolorowa chustka na glowie wyglada na nowa.\n";
  return poczatek_opisu+srodek_opisu[postawa]+koniec_opisu;
} //dlugi_opis

wspieraj(object kogo)
{
  if (!query_attack())
     {
        command("wesprzyj " + OB_NAME(kogo));
        if (query_attack())
            command("krzyknij Przestan, niegodziw" + 
        	(kogo->query_attack())->koncowka("cze.","a."));
     }
}

int query_wiesniaczka()
{
  return 1;
}

int
czy_wiesniak(object kto)
{
  return kto->query_wiesniak();
}

popros_o_pomoc(mixed tych)
{
   int ile,i; 
   
   ile = sizeof(tych);
   
   for(i=0;i<ile;i++)
      tych[i]->wspieraj(this_object());
}

attacked_by(object wrog)
{
  mixed pomoc;
  
  command("krzyknij Pomocy!");
  pomoc = filter(all_inventory(environment(this_object())),czy_wiesniak);

  set_alarm(1.0,0.0,&popros_o_pomoc(pomoc));
  
  ::attacked_by(wrog);
}