/*
 * Biblioteka w palacu w Athel-Loren
 * by Tanis
 */
 
inherit "/d/Imperium/std/library_std";

// #include "library.h"
#include "lelf.h"

void
create_imperium_room()
{
  string *rada;
  int a;
  
  restore_object(EBIBLPATH+"saveob");
  admin=({});
  
  set_short("Biblioteka Lesnych Elfow");
  set_long("Znajdujesz sie w bardzo duzym, jasnym pomieszczeniu wypelnionym "
     + "dlugimi szafami z mnostwem ksiazek. Sala zbudowana jest z delikatnego, "
     + "bialego marmuru. Mimo, ze sciany sa z kamienia, wygladaja na bardzo lekkie, choc wytrzymale. "
     + "Miedzy regalami kreci sie kilku bibliotekarzy, ktorzy pomogaja znalezc "
     + "poszukiwane ksiazki, oraz odkladaja zwrocone na polke. Na scianie wisi duza tablica "
     + "z regulami biblioteki. Ta czesc biblioteki jest dostepna jedynie dla Lesnych Elfow, czesc "
	 + "ogolnodostepna jest na polnoc stad.\n");

  add_item(({"szafe", "szafy", "ksiazki"}), 
    "Szafy wypelnione ksiazkami sa w calym pomieszczeniu. Wykonano je z mocnego drewna. " +
    "Ze wzgledu na ilosc ksiazek na nich ulozonych, w poszukiwaniach wybranego tytulu pomagaja krecacy sie po sali " +
    "bibliotekarze.\n");
  add_item(({"bibliotekarza", "bibliotekarzy"}), 
    "Bibliotekarze krzataja sie po calym pomieszczeniu zajeci " +
    "inwentaryzacja ksiazek i obslugiwaniem wypozyczajacych.\n");
  add_item("tablice","Na tablicy jest cos napisane ... Pewnie da sie to przeczytac !\n");
  add_cmd_item(({"tablice", "zasady"}), "przeczytaj", 
    "Biblioteka w Athel Loren.\n" +
    " Zasady korzystania z biblioteki :\n" +
    "  - Z biblioteki moze bezplatnie korzystac kazdy chetny\n" +
    "  - Wypozyczone ksiazki nalezy zwrocic niezwlocznie po przeczytaniu\n" +
    "  - W bibliotece nalezy zachowac bezwgledny spokoj i cisze\n" +
    "  - W bibliotece nalezy zachowywac sie tak, aby nie utrudniac innym korzystania z niej\n"+
    "Aby zorientowac sie, jakie ksiazki mozna wypozyczyc, nalezy " +
    "wykonac komende <spis>. Komendy <wypozycz> i <zwroc> nie wymagaja " +
    "komentarza. Kazdy z korzystajacych z biblioteki moze rowniez " +
    "napisac wlasna ksiazke (z pomoca komendy <napisz>) i przedstawic " +
    "ja administracji biblioteki. Jezeli ksiazka zostanie uznana za " +
    "wartosciowa, zostanie opublikowana i udostepniona innym.\n");

/* Tutaj znajduja sie wyjscia. wyjdz() nie pozwala graczowi wyjsc bez zwrotu
    wypozyczonych ksiazek  */    

  add_exit(BIBLPATH + "biblioteka.c", "polnoc","@@wyjdz");

/* Pokoj administratora biblioteki */
  add_exit(EBIBLPATH + "eadmin.c","wschod","@@wcheck",1);

  add_prop(ROOM_I_LIGHT, 5);
  add_prop(ROOM_I_INSIDE, 1);

  set_event_time(20.0, 130.0);
  add_event("Z glebi sali dobiega cie glosny zgrzyt odsuwanego krzesla.\n");
  add_event("Niezmacona cisze tego miejsca rozdziera przerazliwy zgrzyt " +
  	    "gilotyny tnacej papier.\n");
  add_event("Jeden z bibliotekarzy przechodzi kolo ciebie, niosac cale narecze ksiazek.\n");
  set_events_on(1);
  
  set_katalog_biblioteki(EBIBLPATH);
  set_katalog_usunietych(EBIBLPATH+"usuniete/");
  set_zarzadca(EBIBLZARZADCA);
  set_nazwa_dop("Biblioteki Lesnych Elfow");
  
  rada=(GILDIA)->lista_osob(JEST_RADNYM);
  rada+=m_indices(SPECJALNE_PRAWA_DOSTEPU);
    
  for(a=0;a<sizeof(rada);a++)
  {
      if((GILDIA)->query_prawa(rada[a])>=LEV_RADNY) add_admin(rada[a]);
  }
}

void 
init()
{
  ::init(); 
  init_library();
}