/* Plik:         laka1.c
 * Autor:        Kaes
 * Data:         29.11.91
 * Opis:         Laka na wschod
 * Zrobic:       Strumien, mozliwosc picia itd.
*/

#include "/sys/stdproperties.h"
#include "kaes.h"
#include "/d/Imperium/sys/alarm.h"
inherit "/d/Imperium/std/laka";
inherit "/lib/drink_water.c";
string opis_pory_roku();
object ludz;
void
create_laka_room()
{
   add_prop(ROOM_I_LIGHT,1);

   add_prop(ROOM_I_INSIDE,0);

   set_short("Mala laka we wschodniej czesci doliny");

   set_long("@@dlugi_opis");
   

   add_exit(PATH+"lokacje/jezioro.c","poludniowy-wschod");
   add_exit(PATH+"lokacje/sciezka1.c","zachod");

   add_item(({"strumien","potok","wode"}),
      "Strumien splywa kaskadami z gor, uspokajajac sie tutaj, a w dalszej "+
      "czesci tworzy male jeziorko. Woda jest dosyc zimna, prawdopodobnie "+
      "zrodlo znajduje sie w wysokich gorach.\n");
   add_item(({"oczko wodne","jezioro"}),
      "Z tej odleglosci trudno ci duzo zobaczyc, moze gdybys podszedl blizej?\n");
   add_item(({"sciezke","drozke"}),
      "Sciezka idzie w jedna strone wzdluz strumienia, a w druga na lake.\n");
   set_alarm(5.0,60.0,"eventsy");
   set_drink_places("ze strumienia");
   dodaj_npca(PATH+"npc/slepchil.c",DNI);
}
   
void init()
{
  ::init();
  init_drink_water();
  
}  

void eventsy()
{   
   set_event_time(20.0,150.0);
   if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
    {clear_events();
     add_event("Strumien wydaje sie przez chwile blyszczec zielona poswiata.\n");
     add_event("W oddali slyszysz glosny plusk.\n");
     add_event("Do twoich uszu dociera nieludzki krzyk...\n");
     add_event("Przez mgnienie oka, wydaje ci sie, ze widzisz... nie, to "+
       "niemozliwe.\n");
     }
    else 
     {clear_events();
      add_event("Po ziemi przesuwa sie cien duzego ptaka.\n");
      add_event("Widzisz duza ropuche wskakujaca do wody.\n");
      add_event("Czujesz na plecach powiew cieplego wiatru.\n");
      add_event("Strumien niesie nadgnile liscie.\n");
     }
   set_events_on(1);
}

string dlugi_opis()
{
 return("\nZnajdujesz sie na malej lace polozonej we wschodniej czesci "+
     "doliny. "+
       opis_pory_roku());
}
    
string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+="Przez srodek laki przeplywa srednich rozmiarow "+
   "potok, ktory w nocy sprawia wrazenie zywego. Wije sie miedzy kamieniami, "+
   "czasem probuje wydostac sie na brzeg, jakby chcial cie dopasc. Sciezka "+
   "prowadzi wzdluz niego, lub na lake na wzniesieniu.\n";
  else
   opis+="Przez sam jej srodek przeplywa srednich rozmiarow, wartki "+
   "potok. Woda, tworzac miejscami male kaskady plynie dalej gdzie widzisz "+
   "male oczko wodne. Sciezka prowadzi dalej, w tym kierunku, badz tez "+
   "na wzniesienie, skad mozesz dojsc do wioski.\n";
  return opis;
}