/* Krypta pod Swiatynia Sigmara
 * Autor: Lakshmi
 * Data:  07.09.98
 */

#include "zamek.h"
inherit STD +"krypta_std.c";
int stan = 0;
string dlugi_opis();

create_krypta_room()
{
        set_long("@@dlugi_opis@@");

	add_exit(PATH + "krypt_b1.c","wschod",0,0,0);
        add_exit(PATH + "sig_b.c","gora",0,0,0);

        add_item(({"kolumne","masywna kolumne"}),
	           "Jest to najzwyklejsza na swiecie granitowa kolumna "+
	           "umiejscowiona dokladnie posrodku tego pomieszczenia.\n");
	           
	add_item(({"oltarz"}),
	           "Centralne miejsce w tej komnatce zajmuje oltarz. Jest on "+
	           "wyrzezbiony w czarnym marmurze i co dziwne, nikt nie probowal "+
	           "go zniszczyc.\n");
	           
	add_item(({"sciane","sciany"}),
	            "Najnormalniejsze pod sloncem sciany z ciosanego kamienia. "+
	            "Jednak komus sie musialy niepodobac, gdyz znac na nich slady jego "+
	            "ktore raczej nie powstaly w wyniku samego dzialania czasu. "+
	            "Na jednej ze scian zauwazasz niewielka dzwignie.\n");
	             
	add_item(({"dzwignie"}),
	           "Niewielka dzwignia w scianie. Moze warto ja pociagnac?\n");           
	           
	set_alarm(0.0,0.0,"stan");
}
void
init()
{
::init();
add_action("pociagnij","pociagnij");
}

int
pociagnij(string str)
{
 if (str != "dzwignie")
    { 
    return notify_fail("Co chcesz pociagnac?\n");
    write("Ciagniesz do siebie dzwignie.\n");
    say(QCIMIE(TP,PL_MIA) + " jednym szybkim ruchem pociaga za dzwignie.\n");
    }
    
 if (stan == 0)
  {
  tell_room(environment(this_player()), "Nagle czujesz dosyc silne drzenie, "+
           "a po chwili widzisz jak po kolumnie oltarz powoli podjezdza w gore "+
           "zakrywajac przejscie.\n");
  remove_exit("gora");
  stan = 1;
  return 1;
  }
  
 else
     {
     tell_room(environment(this_player()), "Wsrod cichego chrobotu oltarz "+
              "powoli opuszcza sie po kolumnie.\n");
     add_exit(PATH + "sig_b.c","gora",0,0,0);
     stan = 0;
     return 1;
     }
}

string 
dlugi_opis()
{
      if (!stan)
        return "Znajdujesz sie w mrocznej krypcie, a dokladnie, w pomieszczeniu "+
               "tuz pod nawa glowna swiatyni Sigmara Mlotodzierzcy. Jest to "+
               "niewielka, prawie kwadratowa komnata z kolumna posrodku. W chwili "+
               "obecnej jej centralne miejsce zajmuje wielki oltarz i masywna kolumna. "+
               "Na prostych kamiennych scianach wyraznie widac nie tylko "+
               "niszczace dzialanie czasu, ale i istot prawdopodobnie ludzkich, gdyz "+
               "dosyc wyraznie swiadczy o tym charakter zniszczen.\n";
      
      else
        return "Stoisz w mrocznej krypcie, a dokladnie, w pomieszczeniu znajdujacym "+
               "sie tuz pod nawa glowna swiatyni Sigmara Mlotodzierzcy. Jest to "+
               "niewielka, prawie kwadratowa komnata z kolumna posrodku. W tej chwili "+
               "jest ona absolutnie pusta, nie liczac oczywiscie kolumny, stanowiacej "+
               "integralna czesc tego pomieszczenia. Na prostych kamiennych scianach "+
               "wyraznie widac nie tylko niszczace dzialanie czasu, ale i prawdopodobnie "+
               "istot ludzkich, o czym wyraznie swiadczy charakter zniszczen.\n";
}