inherit "/d/Imperium/std/monster";
inherit "/lib/trade";


#include "ogolne.h"

#define GOLAB	"/d/Imperium/std/golab"

void
create_monster()
{
    ustaw_nazwe(({"Eldirian", "Eldiriana",
    		  "Eldirianowi", "Eldiriana",
    		  "Eldirianem", "Eldirianie"}), allocate(6), PL_MESKI_OS);

    dodaj_nazwy( ({"eldirian","eldiriana","eldirianowi","eldiriana","eldirianem","eldirianie"}),
    		 ({"eldirian","eldiriana","eldirianowi","eldiriana","eldirianem","eldirianie"}),
    		 PL_MESKI_OS);

    set_long ("W tym elfie na pierwszy rzut oka rozpoznajesz sklepikarza. Choc nie wyroznia sie specjalnie "
        + "strojem, gdyz nosi zwykle, skorzane ubranie, to po sposobie zachowania widac, ze masz do czynienia z fachowcem. "+
        "Z miloscia, charakterystyczna dla wiekszosci elfow, patrzy na ptaki, ktorymi "+
        "handluje.\n");

    dodaj_przym("wysoki","wysocy");
    dodaj_przym ("surowy","surowi");
    
    set_gender(G_MALE);
    
    ustaw_odmiane_rasy (PL_ELF);
      
    add_act("emote sprzata klatki z golebiami.");
    add_act("emote karmi golebie.");
    add_act("emote czule spoglada na swoje golebie.");
    add_act("emote pyta: Moze potrzeba golebia?");
    add_act("emote mowi: Moge wypozyczyc bardzo dobre golebie.");
    add_act("emote mowi: Moje golebie moga dotrzec prawie wszedzie.");
            
    set_alignment(230);

    add_prop(CONT_I_HEIGHT, 180);
    add_prop(CONT_I_WEIGHT, 65000);

    config_default_trade();
}

int kup(string str)
{
 string how="";
 int *res;

 if(!str) return 0;
 
 if(str!="golebia") {
     sscanf(str,"golebia za %s",how);
     sscanf(str,"%s za "+ how,str);
   }
  res=pay(20,this_player(),how,0,0,0,0);

   if(sizeof(res)==1) {
    if(how=="") how="pieniadze";
      if(res[0]==0) write("Nie masz komu zaplacic.\n");
      if(res[0]==1) command("'Te "+how+" to za malo aby zaplacic za mojego golebia.");
      if(res[0]==2) write("Hmmm... Czym chcesz zaplacic?\n");
      if(res[0]==3) write("Masz za malo pienieedzy zeby kupic golebia.\n");
      if(res[0]==4) write("Nie przyjmuje takich pieniedzy jak "+how+".\n");
      return 1;
   }
   write("Placisz "+ this_object()->query_imie(this_player(),PL_CEL)+
       " i dostajesz od niego golebia.\n");
   say(QCIMIE(this_player(),PL_MIA)+" placi "+QIMIE(this_object(),PL_CEL)+
      " i dostaje swojego golebia.\n");

   if(res[7]>0){
     write("Niestety, nie mogac udzwignac reszty upuszczasz ja na podloge.\n");
     say(QCIMIE(this_object(),PL_MIA)+" upuszcza pieniadze na podloge.\n");
   }
   clone_object(GOLAB)->move(this_player());
   return 1;  
}


void init_living()
{
  add_action("kup","kup");
}  


string
query_presentation()
{
    return"Eldirian, Przyjaciel Golebi, elf.";
}


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

varargs void 
return_intro(string kto)
{
    command("przedstaw sie " + find_player(kto)->query_real_name(PL_CEL));
}
// Dwie powyzsze funkcje pozwalaja naszemu elfowi przedstawiac sie.