/* Plik:         pastwisko.c
 * Autor:        Kaes
 * Data:         30.11.91
 * Opis:         Pastwisko za jeziorem
 * Zrobic:       zwierzeta
*/

#include "/sys/stdproperties.h"
#include "kaes.h"
#include "/d/Imperium/sys/alarm.h"
inherit "/d/Imperium/std/laka";
function opis_pory_roku();

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

   add_prop(ROOM_I_INSIDE,0);

   set_short("Pastwisko za jeziorem");

   set_long("@@dlugi_opis");
  

   add_exit(PATH+"lokacje/jezioro.c","polnoc");
   add_exit(PATH+"lokacje/las1.c","poludnie");

   add_item(({"pastwisko","lake","trawe","skaly"}),
      "Nie zobaczysz juz nic wiecej.\n");
   add_item(({"oczko wodne","jezioro","las","drzewa"}),
      "Z tej odleglosci trudno ci duzo zobaczyc, moze gdybys podszedl blizej?\n");
   add_item(({"sciezke","drozke"}),
      "Sciezka wychodzi z lasu i prowadzi nad jeizoro.\n");
   add_item(({"slady","kopyta","slady kopyt"}),
      "Widzisz mnostwo sladow kopyt odcisnietych w blocie przez zwierzeta "+
     "pasace sie tutaj.\n");
    set_alarm(5.0,60.0,"eventsy");
    dodaj_npca(PATH+"npc/stwor.c", NOCE);
 }
 
 void eventsy()
 {
   set_event_time(20.0,150.0);
   if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
    {clear_events();
     add_event("Galezie w lesie poruszaja sie pod naglym podmuchem wiatru.\n");
     add_event("W oddali slyszysz glosny plusk.\n");
     add_event("Kolo twarzy przelatuje ci galaz niesiona przez wiatr. Ufff... "+
      "byla blisko.\n");
     add_event("Slyszysz trzask lamanych galezi.\n");
     }
    else
     {clear_events();
      add_event("Slyszysz beczenie baranow.\n");
      add_event("Stoisz w blocie.\n");
      add_event("Czujesz na plecach powiew cieplego wiatru.\n");
      add_event("Z kretowiska wysuwa sie ciekawy ryjek, po czym chowa sie "+
       "pod ziemia.\n");
     }
   set_events_on(1);
}

string dlugi_opis()
{
   return("\nZnajdujesz sie na malym pastwisku lezacym tuz za jeziorem. "+
       opis_pory_roku());
}
   
string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+="Mimo ciemnosci, widzisz odcisniete liczne "+
   "slady kopyt. Przed toba widzisz zarysy gestego lasu, gdzie mgla "+
   "jest troche rozrzedzona. Pastwisko z drugiej strony, dosyc blisko, "+
   "otaczaja wysokie, poszarpane skaly. Na twarzy czujesz chlod nocy.\n";
  else opis+="Wszedzie widac odcisniete w blocie slady kopyt. Pastwisko "+
   "jest nieogrodzone z zadnej strony, ale zwierzeta i tak nie maja "+
   "stad gdzie uciec, gdyz laka z jednej strony otoczona jest skalami, "+
   "a z drugiej gestym lasem. Przed soba widzisz wejscie do tego lasu, "+
   "a za plecami jest sciezka prowadzaca do jeziora.\n";
  return opis;
}