/* Plik:         skaly1.c
 * Autor:        Kaes
 * Data:         98
 * Opis:         skaly niedaleko sadu
*/

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

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

   add_prop(ROOM_I_INSIDE,0);

   set_short("Zachodnia czesc doliny");

   set_long("@@dlugi_opis");


   add_exit(PATH+"lokacje/sad.c","polnocny-wschod");
   add_exit(PATH+"lokacje/laka2.c","wschod");

   add_item(({"sciezke","drozke"}),
      "Sciezka idzie w jedna strone wzdluz skal do sadu, a w druga na lake.\n");
   add_item(({"skaly","gory"}),
     "Wysokie, pionowe skaly odgradzaja doline od reszty swiata. Nie widzisz "+
     "zadnej mozliwosci wspinaczki.\n");
   add_item(({"sad","lake"}),
     "Moze podejdz blizej?\n");
   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("Do twoich uszu dociera nieludzki krzyk...\n");
     add_event("Ziemia nagle zadrzala.\n");
     add_event("Slyszysz osuwajace sie kamienie.\n");
     }
    else
     {clear_events();
      add_event("Po ziemi przesuwa sie cien duzego ptaka.\n");
      add_event("Czujesz na plecach powiew cieplego wiatru.\n");
      add_event("Mysz polna schowala sie szybko w malej norce.\n");
     }
   set_events_on(1);
}

string dlugi_opis()
{
 return("\nStoisz pod pionowymi skalami siegajacymi wysoko w niebo. Sciezka "+
  "prowadzi wzdluz nich miedzy male drzewa na polnocnym wschodzie, natomiast "+
  "na wschod prowadzi wprost na niewielka lake"+
       opis_pory_roku());
}

string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+=" spowita we mgle podobnie jak cala okolica. "+
   "Skaly sa gladkie, pozbawione jakichkolwiek mozliwosci wspinaczki. Sciezka "+
   "jest troche zarosnieta, prawdopodobnie jest dosyc rzadko uzywana.\n";
  else  opis+=", za ktora, w oddali widzisz niewielka wioske. "+
   "Skaly sa gladkie, pozbawione jakichkolwiek mozliwosci wspinaczki. Sciezka "+
   "jest troche zarosnieta, prawdopodobnie jest dosyc rzadko uzywana. Cala "+
   "okolica skapana jest w promieniach slonca a kamienie sa juz mocno nagrzane.\n";
  return opis;
}