/* Plik:         las1.c
 * Autor:        Kaes
 * Data:         30.11.91
 * Opis:         Las
*/

#include "/sys/stdproperties.h"
#include "kaes.h"

inherit "/d/Imperium/std/las";

string opis_pory_roku;

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

   add_prop(ROOM_I_INSIDE,0);

   set_short("Sciezka przez las");

   set_long("@@dlugi_opis");

   add_exit(PATH+"lokacje/pastwisko.c","polnoc");
   add_exit(PATH+"lokacje/las2.c","zachod");

   add_item(({"drzewa","las","konary"}),
      "Stoisz w starym, gestym lesie otaczajacym cie z kazdej strony.\n");
   add_item("dziuple",
      "W niektorych drzewach widzisz duze, puste dziuple.\n");
   add_item(({"sciezke","drozke","przecinke"}),
      "Sciezka prowadzi przez waska przecinke wycieta przez las.\n");
   add_item(({"polane","pastwisko"}),
      "Polana znajduje sie na polnoc od lasu.\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("Galezie w lesie poruszaja sie pod naglym podmuchem wiatru.\n");
     add_event("Cos z trudem przedziera sie przez las. Po chwili wszystko milknie.\n");
     add_event("Gdzies niedaleko, slyszysz skrzypienie starych drzew.\n");
     add_event("Mgla na chwile sie unosi, ukazujac ci wszedzie wokol ten sam widok: las.\n");
    }
    else
     {clear_events();
      add_event("Slyszysz beczenie baranow.\n");
      add_event("Zza drzew wysuwa sie ciekawy swiata dzik, po czym znika w lesie.\n");
      add_event("Z jednej dziupli wylatuje czerwony ptak i odlatuje ze spiewem.\n");
      add_event("Niedaleko ciebie spada stara galaz.\n");
     }
   set_events_on(1);
}

string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+="W lesie mgla jest rzadsza, aczkolwiek "+
    "las jest na tyle gesty, ze niewiele widzisz. Wiekowe drzewa zdaja "+
    "sie nachylac w twoim kierunku, straszac pustymi dziuplami. Oprocz "+
    "rozwidlenia na polnoc wszedzie widzisz tylko stary, gesty, zamglony las.\n";
  else 
    opis+="Gdzieniegdzie widzisz na ziemi odcisniete "+
    "slady zwierzat, pozdzierana kore z drzew. Przez galezie z trudem "+
    "przeswituje slonce, oswietlajac nieliczne miejsca. Z wyjatkiem przecinki "+
    "przez ktora idzie sciezka, nie widzisz zadnego innego przejscia, wszedzie "+
    "tylko stary, gesty las.\n";
  return opis;
}

string dlugi_opis()
{
  return("Stoisz w niewielkim aczkolwiek gestym lesie. Sciezka tutaj "+
     "rozwidla sie w dwie strony, obie prowadza w rozne czesci lasu, a w "+
     "przeciwnym kierunku wychodzi na polane. "
       + opis_pory_roku());
}