/* Plik:         cmentar2.c
 * Autor:        Kaes
 * Data:         98
 * Opis:         cmentarz 2
*/

#include "/sys/stdproperties.h"
#include "kaes.h"
inherit "/d/Imperium/std/room";
string opis_pory_roku();
object drzwi;

void
create_imperium_room()
{
   add_prop(ROOM_I_LIGHT,1);

   add_prop(ROOM_I_INSIDE,0);

   set_short("Stary cmentarz");

   set_long("@@dlugi_opis");


   add_exit(PATH+"lokacje/cmentar1.c","polnocny-zachod");
   add_exit(PATH+"lokacje/drzwi1.c","polnoc");

   add_item(({"wioske","bydynki","zabudowania"}),"Domy w wiosce sa wszystkie drewniane, "+
    "zbudowane w ten sam sposob. Sa dosyc niewielkie, niskie z jednymi szerokimi "+
    "drzwiami. Na pierwszy rzut oka wydaja sie kruche, jednak po dokladniejszych "+
    "ogledzinach widac, ze pewnie stoja na ziemi. Wszystkie domy nie maja drzwi, "+
    "tylko jakas szmate szczelnie zaslaniajaca wejscie.\n");
   add_item(({"sciezke","droge"}),"Droga w wiosce jest wylozona jasnym kamieniem, "+
     "bardzo wygladzonym, i o dosyc regularnych ksztaltach.\n");
   add_item(({"placyk","plac"}),"Na polnoc znajduje sie maly placyk znajdujacy "+
    "sie posrodku wioski.\n");
   add_item(({"cmentarz","groby","nagrobki"}),
      " Niektore groby wygladaja na bardzo stare, jednak niektore sprawiaja "+
      "wrazenie calkiem nowych. Kawalek dalej znajduje sie calkiem spory "+
      "grobowiec.\n");
   add_item(({"grobowiec"}),
      "Jego wyglad jest na tyle nietypowy, ze nie jestes calkiem pewien "+
      "czy to jest grobowiec. Nie widzisz zadnych drzwi, badz innych otworow "+
      "przez ktore moglbys sie przedostac. Jego tworca albo byl slepy albo... "+
      "niespelna rozumu.\n");
   reset_imperium_room();
   set_alarm(5.0,60.0,"eventsy");
}

void eventsy()
{
   set_event_time(20.0,150.0);
   if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
    {clear_events();
     add_event("Zapada nagla cisza, z rzadka przerywana swistem wiatru.\n");
     add_event("W oddali slyszysz dlugie, przeciagle wycie.\n");
     add_event("Poprzez opary mgly, widzisz duze, czerwone oczy, ktore szybko "+
       "znikaja w mlecznej dali.\n");
     add_event("Gdy mgla rozrzedza sie na chwilke, widzisz przesuwajacy sie cien. "+
       "Bezszelestnie, powoli, az rozwiewa sie rownie nagle, jak sie pojawil.\n");
     add_event("Na jednym z grobow poruszyla sie ziemia... a moze ci sie wydawalo?\n");
    }
    else
     {clear_events();
      add_event("Slyszysz szczekanie psow.\n");
      add_event("Przez chwile wieje cieplejszy wiatr.\n");
      add_event("Nad glowa slyszysz zlowrobne krakanie.\n");
      add_event("Kolo glowy przelatuja ci nasiona jakiejs rosliny.\n");
      add_event("Jeden z kamieni obsunal sie na ziemie.\n");

     }
   set_events_on(1);
}

string dlugi_opis()
{
 return("\nStoisz w srodku starego, niewielkiego cmentarza polozonego na "+
   "poludniowym krancu wioski. Znajduje sie tutaj mnostwo grobow, wiekszych, "+
   "mniejszych, kamiennych lub ziemnych. Z tego wszystkiego wybija sie jeden "+
   "grobowiec, usytuowany dokladnie posrodku. Duzy, kamienny, "+
       opis_pory_roku());
}

string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+="o fantastycznych ksztaltach przywodzacych na mysl "+
   "wiele rzeczy oprocz grobu. Z samego przodu znajduja sie duze, kamienne drzwi "+
   "dopasowane do wneki. Mgla utrudnia obserwacje, a zimne, nocne powietrze "+
   "daje ci sie porzadnie we znaki.\n";
  else  opis+="masywny, o bardzo dziwnym ksztalcie. Z samego przodu "+
   "znajduja sie potezne, kamienne drzwi dopasowane do wneki. Okolica jest "+
   "oswietlona mocnym, slonecznym swiatlem, ogrzewajacym twoje cialo.\n";
  return opis;
}

void reset_imperium_room()
{
  if(!drzwi){ 
   drzwi=clone_object(PATH+"lokacje/drzwi1.c");
   drzwi->move(this_object());}
}