inherit "/d/Imperium/std/room.c";
#include "/sys/stdproperties.h"
#include "macros.h"

#define nie_widoczne 1

create_imperium_room()
{
    set_long("@@moj_dlugi_opis");
        
    set_short("Mala zakurzona komnata");

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

      add_item(({"kule", "niebieska kule"}), 
           "Niebieska kula cichutko brzeczac unosi sie"+
	       " w powietrzu. Gdy probujesz jej dotknac, okazuje"+
	       " sie byc dalej niz sadziles.\n");
      add_item( ({"okno", "ronokolorowe okno", "roznokolorowe okna",
           "okna"}), "Po dluzszej obserwacji dostrzegasz"+
           " poruszajace sie malenkie istotki, otaczajace je rosliny"+
	   ", domostwa....... Jednakze gdy ponownie zwracasz na nie"+
	   " swoj wzrok, nie mozesz ich juz spostrzec.\n");	 
      add_item("biurko", "Debowe, piekne rzezbione biurko."+
           " Znajduja sie na nim notatki, posegregowane zgodnie"+
	   " z przeznaczeniem\n");
      add_item(({"notatki","notatke","kartki","kartke"}),
           "Odrecznie napisane w raczej nieznanym ci jezyku,"+
           " chociaz dostrzegsz pewna wspolna ceche..."+
           "\nZostaly wykonane odrecznie\n");
      add_item(({"rosliny","donice","rosline"}),
           "W gustownie wykonczonych donica rosna egzotyczne"+
	   " rosliny. Ich aromat tlumi wszedobylski zapach kurzu\n");
     add_item("dywan", "Przepieknie wyszywany perski dywan, przykrywa"+
           " podloge, ktora byc moze nie zasluzyla sobie na owe"+
           " dzielo sztuki\n");	      
    add_item("krzesla", "Ciezkie debowe krzesla"+
           ", obite cieplym, pluszowym materialem. Nie wydaja sie byc"+
	   " zbyt wygodne.\n");
    add_item(({"krzeslo","krzeslo za biurkiem", "krzeslo przy biurku"}),
 	   "Ciezkie debowe krzeslo. Obite cieplym, pluszowym materalem"+
	   ". Nie wydaje sie byc zbyt wygodne.\n");
    add_item(({"obraz", "duzy obraz", "obraz kosciola"}), 
    	   "Obraz przedstawia wnetrze jakiejs swiatyni, wydaje sie"+
    	   " ze znasz skads to miejsce. Podchodzisz blizej, by "+
    	   "dojrzec wiecej szczegolow..... Nagle czujesz, ze jakas"+
    	   " sila wciaga cie do wnetrza obrazu. Z wysilkiem odwracasz wzork"+
    	   ".\n");
    add_item(({"lustro","zakurzone lustro","ozdobne lustro"}),
           "Spogladasz na lustro chcac sie w nim przejrzec, "+
           " jednakze cienka warstwa kurzu skutecznie to uniemozliwia."+
           " Nagle ze zdumieniem sposterzegasz, ze powierzchnia lustra"+
           " lekko faluje, rysujac drobne zmarszczki na kurzu.\n");
   add_item ("przycisk", "Lekko jarzacy sie przycisk.\n");
   add_cmd_item ("przycisk", "nacisnij", "@@do_nacisnij");
}


string do_nacisnij () {
  object *pl;
  int i, size;
  
  pl = users();
  pl -= ({this_player()});
  if (!(size = sizeof(pl)))
    return "Nacisnales przycisk.\n";
  i=-1;
  while (++i < size)  {
    tell_object(pl[i],"Witaj o " + pl[i]->query_wolacz() +
      " - z oddali doszedl Cie szept "+ 
      this_player()->query_name(PL_BIE) + ".\n");
  }
  say (QIMIE(this_player(), PL_MIA) + " wykonal tajemniczy gest i "+
     "nacisnal przycisk.\n");
  say ("Przycisk rozjarzyl sie lekko i po chwili zgasl.\n");
  return "Przycisk rozjarzyl sie lekko i po chwili zgasl.\n";
}


string moj_dlugi_opis() {
  return "\nZnajdujesz sie w malej, troszke zakurzonej komnacie."+
  " Panuje lekki polmrok. W powietrzu unosi sie z cichym brzekiem"+ 
  " niebieska kula. Wydaje sie, iz jest ona jedynym zrodlem swiatla."+
  " Rozgladajac sie wokol zauwazasz roznokolorowe okna."+
  " Na honorowym miejscu stoi rzezbione biurko. Panuje na nim"+
  " przykladny lad i porzadek. Zarowno przed jak i za biurkiem "+
  "znajduja sie przepieknie rzezbione, debowe krzesla."+
  " Gdy spogladasz na sciane po lewej stronie biurka,"+
  " twoj wzrok zatrzymuje sie na ozdobym lustrze. Wokonano je zapewne"+
  " za srebra; jednakze nie mozesz stwierdzic tego z cala"+
  " odpowiedzialnoscia, poniewaz pokryte jest spora warstwa kurzu."+
  " Ramke lustra zdobia motywy roslinne i ludzkie."+
  " Na scianie po prawej stronie biurka, znajduje sie natomiast"+
  " duzy, siegajacy ziemi obraz kosciola."+
  " Podloge przykrywa gruby, puszysty dywan. Tlumi on wysmienicie"+
  " twoje kroki. W rogach komnaty ustawine sa duze donice z"+
  " roznorodnymi roslinami. Nagle dochodzi do twojej swiadomosci mysl -"+
  " ta komnata nie posiada zadnych drzwi.\n";
}


void init (){
  ::init();
  add_action( "wchodzenie", "wejdz");
  add_action( "przechodzenie", "przejdz");
}


int wchodzenie( string str){
  string *wyjscia= ({"w lustro","w obraz"});   // sprawdzany tekst
  string *lokacje= ({"/d/Arkadia/wiz/wizroom.c",
      "/d/Arkadia/start/church.c"});   // lokacja do ktorej trafi gracz
  string *komentarz= ({"wnika w lustro.\n","wnika w obraz.\n"}); //opis wyjscia


  int ok=0; 
  int i;
  for (i=0; i<2; i++)
    if (str==wyjscia[i]){
       this_player()->move_living(komentarz[i], lokacje[i], 1);
       ok=1; 
    }
  if (!ok) {
    notify_fail("Gdzie chcesz wejsc???\n");
  }
  return ok;
}



int przechodzenie( string str){
  string *wyjscia= ({"przez lustro","przez obraz"});   // sprawdzany tekst
  string *lokacje= ({"/d/Arkadia/wiz/wizroom.c",
      "/d/Arkadia/start/church.c"});   // lokacja do ktorej trafi gracz
  string *komentarz= ({"wnika w lustro.\n","wnika w obraz.\n"}); //opis wyjscia

  int ok=0; 

  int i;
  for (i=0; i<2; i++)
    if (str==wyjscia[i]){
       this_player()->move_living(komentarz[i], lokacje[i], 1);
       ok=1; 
    };

  if (!ok){
    notify_fail("Gdzie chcesz wejsc???\n");
  }
  return ok;
}


void plik(object ob, string s){
   tell_object(ob, s);
   cat ("/d/Imperium/alfen/log/workroom.log");
   rm ("/d/Imperium/alfen/log/workroom.log");
}



void enter_inv(object ob, object skad){
  object p;
  
  :: enter_inv(ob, skad);
  
  if (((ob->query_name(PL_MIA))=="Alfen")&&(file_size("/d/Imperium/alfen/log/"+
    "workroom.log" )>0)) {
      set_alarm(4.0, 0.0, "plik", ob, "Panie w czasie Twej nieobecnosci, "+
       "swa wizyta zaszczycili Cie:\n");
  }
  
  if (!(p=find_player("alfen"))){
    tell_object(ob, "\nZza twych plecow dobiega Cie grobowy glos: "+
      "Pana nie ma w domu.\n Przyjdz pozniej!!\n");
//    ob->move(skad);
    log_file("workroom.log", ob->query_name(PL_MIA) + " " + ctime(time()) +
      "\n");
    return;
  }
  if (file_name(environment(p))!="/d/Imperium/alfen/workroom") {
      tell_object(ob, "Zza twych plecow dobiega Cie grobowy glos: "+
        "Pan jest zajety.\n");
//      ob->move(skad);
      log_file("workroom.log", ob->query_name(PL_MIA) + " " + ctime(time()) +
      "\n");
  }
}



void
czas (string str)
{
   set_this_player(find_player("alfen"));
   dump_array(str);
}