/* Przedsionek gildii halflingow */

#include "halfy.h"

inherit STD_ROOM;

#include "tigr.h"

#define KRAINA "/d/Imperium/Krina/RATUSZ/b20"

create_halfy_room()
{
   set_short("Przedsionek smajala Zgromadzenia Halflingow");
   
   set_long("Znajdujesz sie w przedsionku smajala Zgromadzenia Halflingow. " +
   	"Niewielkie schodki pnace sie do gory prowadza do drzwi w poludniowej " +
   	"scianie, ktore lacza smajal ze swiatem zewnetrznym. Pomieszczenie to " +
   	"oswietla jeden niewielki kaganek. W jego swietle dostrzegasz na " +
   	"scianie niewielka tablice. Kolo sciany stoi stolik, na ktorym lezy " +
   	"pioro, kalamarz i stos papierow do skladania podan.\n");
   
   add_item( ({"drzwi","schodzki"}),
   	"drewniane schodzki prowadza do drzwi w poludniowej scianie, " +
   	"prowadzacych na zewnatrz.\n");
   
   add_item("kaganek","Zwisajacy z sufitu kaganek oswietla cale pomieszczenie.\n");
   
   add_item("tablice","Jest to drewniana podniszczona tablica na ktorej " +
   	"ksztaltnymi i wyraznymi literami wyryty jest napis. Mozesz go przeczytac.\n");
   
   add_read_item("tablice","@@read_tabl");
   
   add_exit(GDIR + "kor1","zachod",0,1);
   add_exit(KRAINA,"poludnie",0,1);   
   
//   dodaj_npc(NDIR + "straz");
}

string
read_tabl()
{
   return "\t\tSiedziba Zgromadzenia Halflingow\n" +
   	"Nie mozesz wejsc dalej, jesli nie jestes czlonkiem Zgromadzenia. " +
   	"Jezeli jestes halflinka lub halflingiem, to mozesz <zlozyc podanie>, " +
   	"w tym miejscu. Powinno ono zawierac twoj zyciorys, a takze cele zyciowy, " +
   	"jak i powod, dla ktorego chcesz do nas dolaczyc. Nie zapomnij przedtym " +
   	"zapoznac sie z zasadami.\n";
   	
}

koniec_zloz(string str)
{
   if (!strlen(str)) 
      write("Po dlugich rozmysleniach decydujesz niczego nie pisac.\n");
   else
         write_file(TP->query_real_name(PL_DOP) + ".nowe",str +
           "\nNapisane: " +ctime(time()) + "\n\n");
}

int
do_zloz(string str)
{
   if (str!="podanie") return notify_fail("Co chcesz zlozyc?\n");
   
   if (!CZY_HALF(TP)) return notify_fail("Jeno halflinki i halflingi moga skladac " +
   	"tu podania.\n");
   
   if (CZY_NASZ(TP)) return notify_fail("Przeciez juz jestes czlonkiem Zgromadzenia!~\n");
   
   write("Bierzesz papier, pioro i zaczynasz pisac podanie.\n");
   
   clone_object("/obj/edit")->edit(koniec_zloz);
   return 1;
   	
}


init()
{
   ::init();
   add_action(do_zloz,"zloz");
}