/* Plik:  dziadek.c
 * Autor: Kaes i Karraluch
 * Data:  4.11.97
 * Last update:  4.11.97
 * Opis   npc - dziadek wieziony w lochu przez setha
 * A very big help by Aslan (again) :)))
*/

inherit "/d/Imperium/std/monster.c";
#include "kaes.h"
#include "/sys/stdproperties.h"
object gracz;

create_monster()
{
 ustaw_nazwe(({"starzec","starca","starcowi","starca","starcem","starcu"}),
      ({"","","","","",""}),PL_MESKI_OS);
 set_long("@@dlugi_opis");
 ustaw_odmiane_rasy(PL_MEZCZYZNA);
 set_gender(G_MALE);
 dodaj_przym("stary","stary");
 dodaj_przym("pokrwawiony","pokrwawieni");
 set_alignment(100);
 set_stats(10,11,10,45,50,25);
 set_skill(SS_HIDE,20);
 set_skill(SS_APPR_VAL,10);
 set_skill(SS_LANGUAGE,10);
 add_prop(CONT_I_WEIGHT,80000);
 add_prop(CONT_I_HEIGHT,110);
 set_act_time(10+random(20));
 add_act("emote jeczy cicho.");
 add_act("emote szepcze: Pomoz mi.");
 add_act("emote odsuwa sie w glab lochu.");
 add_act("emote patrzy na ciebie z przestrachem.");
 add_ask(({"loch","lochy","piwnice","korytarze","podziemia"}), VBFC_ME("lochy_info"));
 add_ask("setha", VBFC_ME("seth_info"));
 add_ask(({"syna","manuela"}), VBFC_ME("q_info"));
 set_default_answer(QCTNAME(this_object()) + " mowi: Co? Nie bardzo wiem o co "+
   "pytasz.\n");

    set_alarm(0.1, 20.0, "set_start_hp");
}

void
set_start_hp()
{
    set_hp(20);
}

string lochy_info()
{
 command("emote po chwili zaczyna mowic: Uciekaj stad. Mi juz nie pomozesz, "+
   "jednak mozesz jeszcze ratowac siebie. Nic tutaj nie znajdziesz oprocz "+
   "okrutnej smierci z rak Setha...");
 return "";
}

string seth_info()
{
 command("emote kuli sie przerazony.\nPo chwili jeczy: Nie, nie wymawiaj "+
     "tego imienia na glos, uciekaj stad dopoki nie wpadles w jego rece!");
 return "";
}

string dlugi_opis()
{ 
  return("Pokrwawiony, lezacy na ziemi stary czlowiek, wcisniety w kat "+
    "sciany. Jest on calkowicie nagi, a na calym jego ciele widzisz "+
    "podluzne pregi. W jego oczach widac zastygly strach, a cale cialo "+
    "drzy od czasu do czasu w naglych spazmach. Wyglada na to, ze jest on "+
    "tu juz od bardzo dawna.\n");
}

string q_info()
{
  command("emote podnosi glowe ze zdziwieniem.");
  command("emote odpowiada: "+
   "Znasz mojego syna? Mam do ciebie prosbe ...");
  command("emote po chwili ciagnie drzacym glosem: Ja juz nie zobacze swiatla "+
   "slonecznego. Jednak zanies memu synowi to, nad czym pracowalem przez cale "+
   "moje zycie ...");
  command("emote zbiera sily przez chwile po czym mowi: W jednej z komnat "+
   "znajduje sie maly notes. Prawdopodobnie w sali mojego ciemiezyciela. "+
   "Zanies go Manuelowi, on bedzie wiedzial co z nim zrobic.");
  command("emote powoli przymyka oczy, po czym osuwa sie na ziemie ...");
  this_player()->add_prop("kaesquest_0_2_rozmawial_z_ojcem",1);
  this_player()->set_bit(3,4);
  set_hp(0);
  do_die(0);
  return "";
}