/* krypta */
/* autor : dhor */
/* the very first version :))))))) */


inherit "/d/Imperium/std/room";
#include </sys/stdproperties.h>
#include <macros.h>
#include "dhor.h"

int przecz(string str);

init()
{
 add_action(przecz,"przeczolgaj");
 add_action(przecz,"czolgaj");
 
 ::init();
 
}



void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

        add_prop ( ROOM_I_INSIDE, 1); // czy jest to lokacja na polu, czy pokoj 
        add_prop ( ROOM_I_LIGHT, 0); // jasno czy ciemno


/* co widac */

        set_short( "Podziemna krypta.");


        set_long( "Jestes w dosc szerokim korytarzu, ktorego "+
        "boczne sciany sa podtrzymywane "+
        "przez dwie masywne kamienne kolumny. Nad jednej z nich "+
        "znajduje sie jakas pokryta kurzem i wszechobecnym piachem "+
        "plaskorzezba, sypiaca sie juz ze starosci. \n");
	




/* pobawimy sie ? */



        add_item ( "sciany" ,
        "Zbudowane z kamiennych blokow sciany. Czas wyryl juz na nich wlasciwe "+
        "pietno, i widac tu i owdzie pokazne pekniecia. \n");
        
        

	add_cmd_item ( ({"sciany","sciane"}), ({"dotknij","nacisnij"}), "Podchodzisz "+
	"sciany i probojesz poruszyc kamiennymi blokami. Jednak trzymaja sie mocno. \n");
	
	
    add_exit(NPATH + "kurhan2/krypta18.c", "poludnie", "@@bij", 1);
    add_exit(NPATH + "kurhan2/krypta17.c", "polnoc", 0, 1);
    dodaj_npca(NPC + "szkielet.c");
    
    set_event_time(10.0, 100.0);
    add_event("Cos trzasnelo ci pod stopami! \n");
    add_event("Z oddali dochodzi cie niewyrazny szept. To na pewno tylko powiew wiatru. \n");
    add_event("Troche piachu obsunelo sie z sufitu. \n");

    
    set_events_on(1);
      
    add_item ( ({"podloge","posadzke"}),
    "Pokryta piachem posadzka, zlozona z kamiennych plyt. "+
    "Zauwazasz, ze czesc korytarza przed toba jest wylozona "+
    "jednolita plyta, o wyraznie zarysowanch szparach. Masz wrazenie, "+
    "ze cos sie pod nia kryje. \n");	        

    add_item ( ({"sciany","sciane"}),
    "Zbudowane z kamiennych blokow sciany. Czas wyryl juz na nich wlasciwe "+
    "pietno, i widac tu i owdzie pokazne pekniecia. Gdy przygladasz sie "+
    "dokladniej scianie, zauwazasz na wysokosci dwoch i pol stopy od posadzki "+
    "dwie szczeliny, rownolegle do siebie, a dlugie na jakies piec stop. Wyglada "+
    "to dosc podejrzanie, gdyz nie sa one osnute pajeczna, jak wszystko wokol. \n");

}

int
przecz(string str)
{
  mixed jak=({"sie na poludnie"});
  
  if (member_array(str,jak)==-1)
  return notify_fail("Gdzie chcesz sie przeczolgac? \n");
  
  if (this_object()->query_prop(OBJ_I_LIGHT)==0)
  {
  write("Kladziesz sie na zakurzonej posadzce i przywierajac do niej "+
  "plasko, ryjac nosem w pokrywajacym ja piachu, po omacku "+
  "posuwasz "+ str +". Nagle, w polowie drogi, rozlegl sie szczek "+
  "i w ciemnosciach cos ze swistem przecielo powietrze nad toba! \n");
  say("Slyszysz jakies szuranie w ciemnosciach i nagle cos ze swistem "+
  "przecina powietrze! \n");
  }  
  else
  {
  write("Kladziesz sie na zakurzonej posadzce i przywierajac do niej "+
  "plasko, ryjac nosem w pokrywajacym ja piachu, po omacku "+
  "posuwasz "+ str +". Nagle, w polowie drogi, rozlegl sie szczek "+
  "i ze sciany wychynely dwa ostrza przecinajac ze zlowrogim swistem "+
  "powietrze nad toba! \n");
  say(QCIMIE(TP,PL_MIA) +" przywiera plasko do posadzki i ryjac nosem "+
  "w pokrywajacym ja piachu, posuwa " + str + ". Nagle rozlegl sie szczek "+
  "i nad " + QCIMIE(TP, PL_NAR ) + " powietrze przecinaja dwa ostrza "+
  "ktore wychynely ze sciany! \n");
   }
    
  TP->move_living("M", NPATH + "kurhan2/krypta19.c", 1, 0);
  
  return 1;
}

int
bij(string str)
{
  str=("sie na poludnie");
  
  if (this_object()->query_prop(OBJ_I_LIGHT)==0)
  {
  write("Wolny krokiem kierujesz " + str + ". Nagle rozlegl sie szczek "+
  "i cos przecielo ze swistem powietrze, raniac cie dotkliwie! \n");
  say("Slyszysz kroki oddalajace sie w ciemnosc i nagle rozlega sie "+
  "swist przecinanego powietrza i okrzyk bolu! \n");
  }  
  else
  {
  write("Wolny krokiem kierujesz " + str + ". Nagle rozlegl sie szczek "+
  "i ze sciany ze swistem wylecialy poziomo lecace dwa ostrza, raniac cie "+
  "dotkliwie! \n");
  say(QCIMIE(TP,PL_MIA) +" kieruje " + str +", gdy nagle rozlega sie szczek "+
  "i ze sciany wylecialy w strone "+ QCIMIE(TP, PL_BIE ) +" dwa lecace poziomo "+
  "ostrza! \n");
   }
  TP->heal_hp(-((TP->query_max_hp())/2));

  if (TP->query_hp()==0)
  TP->do_die();
  return 1;
 }