/* Plik:     brat2.c
 * Autor:    Kaes 
 * Data:     98
*/

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

create_monster()
{
 ustaw_imie(({"olin","olina","olinowi","olina","olinem","olinie"}),
            PL_MESKI_OS);
 set_gender(G_MALE);
 ustaw_odmiane_rasy(PL_MEZCZYZNA);
 dodaj_przym("gruby","grubi");
 dodaj_przym("niemily","niemili");
 set_alignment(50);
 add_prop(CONT_I_WEIGHT,150000);
 add_prop(CONT_I_HEIGHT,146);
 set_long("@@dlugi_opis");
 set_stats(({55+random(10),20+random(10),30+random(10),25,30,15}));
 
 remove_prop(NPC_M_NO_ACCEPT_GIVE);
 add_ask(({"przedmiot","pierscien","przejscie"}),VBFC_ME("brat1"));
 set_skill(SS_BLIND_COMBAT,35);
 set_skill(SS_WEP_SWORD, 20+random(10));
 set_skill(SS_DEFENCE, 15+random(15));
 set_default_answer(QCIMIE(this_object(),PL_MIA)+" smieje sie oblesnie.\n");
 set_act_time(10+random(12));
 add_act("emote patrzy na ciebie z szerokim usmiechem.");
 add_act("emote klepie sie po brzuchu.");
 set_act_time(5);
 add_cact("emote krzyczy: Zginiesz!");
 add_cact("emote mowi: Nie masz zadnych szans!");
}

string dlugi_opis()
{
   return("To niski, niemilosiernie otyly mezczyzna. Czerwona twarz "
   	+ "usmiecha sie do ciebie, a chciwe oczka oceniaja twoja "
   	+ "majetnosc. Okragla glowa jest calkiem pozbawiona wlosow, "
   	+ "splywaja po niej kropelki potu. Ubrany jest w szate bogato "+
   	  "wyszywana zlotymi nicmi.\n");
}

void add_introduced(string imie)
{
 set_alarm(2.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"Olin, Jeden z Braci Straznikow, czlowiek";
}
 
varargs string
brat1(int faza)
{ 
  gracz=this_player();
  switch(faza)
  {
  case 0:
    if(gracz->test_bit("imperium",0,7))
    {
      
      gracz->catch_msg(short(gracz,PL_MIA) + " patrzy na ciebie zaciskajac zeby.");
      command("emote mowi: Czyzbys mial" + gracz->koncowka("","a") +
        " dla mnie cos nowego?");
      return "";
    }
    if(gracz->query_prop("_07_kaes_daje_lapowke_"))
    {
      command("powiedz No? Masz cos dla mnie?");
      return "";
    }
     gracz->catch_msg(short(gracz,PL_MIA) + 
     " patrzy na ciebie przez chwile z ironicznym usmiechem.");
     command("emote mowi: A wiec chcesz przejsc dalej?");
     set_alarm(4.0,0.0,"brat1",(faza + 1));
     break;
    case 1:
     command("emote mowi: W porzadku. Przepuszcze cie, jednak nie za darmo!");
     set_alarm(3.0,0.0,"brat1",(faza + 1));
     break;
    case 2:
     command("emote mowi: Przyniesiesz mi cos co mi sie spodoba albo przyda.");
     command("emote mowi: Tylko wtedy cie przepuszcze.");
     gracz->add_prop("_07_kaes_daje_lapowke_",1);
     break;
       
  }
  return"";
}

void 
movniecie(object gracz)
{
 command("emote usmiecha sie zadowolony.");
 gracz->move_living("wschod",PATH+"lokacje/salabr3.c");
 return;
}

void 
enter_inv(object ob, object from)
{
   ::enter_inv(ob, from);

   if(ob->id("_07_kaes_lapowka_"))
   {
     if(!from->query_prop("_07_kaes_daje_lapowke_"))
     {
       set_alarm(2.0,0.0,"command",("emote mowi: O! Ladne, podoba mi sie."));
       ob->remove_object();   
       return;
     } 
     set_alarm(4.0,0.0,&movniecie(from)); 
  
     return;
   }
   else
   {
     set_alarm(2.0,0.0,"command",("emote patrzy znudzony i mowi: Nie potrzebuje tego wprawdzie, ale..."));
   }
   return;
 }