/* Plik:         jezioro.c
 * Autor:        Kaes
 * Data:         30.11.91
 * Opis:         Jezioro - wschod doliny
 * Zrobic:       wchodzenie do wody, do jeziora
*/

#include "/sys/stdproperties.h"
#include "kaes.h"
inherit "/d/Imperium/std/room";
inherit "/lib/drink_water.c";

string opis_pory_roku();
string opis_jeziora(int faza,object gracz);
object figura;
void
create_imperium_room()
{
   add_prop(ROOM_I_LIGHT,1);

   add_prop(ROOM_I_INSIDE,0);

   set_short("Male jeziorko we wschodniej czesci doliny");

   set_long("@@dlugi_opis");
   

   add_exit(PATH+"lokacje/laka1.c","polnocny-zachod");
   add_exit(PATH+"lokacje/pastwisko.c","poludnie");

   add_item(({"jeziorko","jezioro","wode","oczko wodne"}),
      "Jest to male jezioro, do ktorego wpada kilka gorskich potokow.\n");
   add_item(({"krzaki"}),
      "Na malym cyplu rosna duze krzaki, zaslaniajace kawalek jeziora. Wydaje sie, "+
      "ze bez trudu mozna by w nie wejsc.\n");
   add_item(({"laki","lake","pastwiska","pastwisko","lasy","las"}),
      " Z miejsca gdzie stoisz, nie widzisz tam nic ciekawego.\n");
   add_item(({"sciezke","drozke"}),
      "Sciezka prowadzi na wschod, wzdluz strumienia oraz w druga strone.\n");
   add_item(({"strumien","strumienie","potok","potoki"}),
      "Kilka potokow wpadajacych kaskadami do jeziora.\n");
   set_alarm(5.0,60.0,"eventsy");

    set_drink_places("z jeziora");

}
void init()
{
 ::init();
 add_action("krzaki","wejdz");
 init_drink_water();
}

void eventsy()
{ 
   set_event_time(20.0,150.0);
   if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
    {clear_events();
     add_event("Na powierzchni wody pojawiaja sie babelki powietrza.\n");
     add_event("Poprzez mgle slyszysz glosny plusk.\n");
     add_event("Do twoich uszu dociera nieludzki krzyk...\n");
     add_event("Slyszysz przez chwile wzmozony szum wody.\n");
     }
    else
     {clear_events();
      add_event("Widzisz duza rybe plynaca spokojnie pod woda.\n");
      add_event("Delikatny wiatr poruszyl spokojna powierzchnia wody.\n");
      add_event("Male zwierze podchodzi do wody, pije ja powoli, po czym rownie "+
        "wolno znika w trawie.\n");
      add_event("Slyszysz piekny spiew ptakow.\n");
     }
   set_events_on(1);
}

string dlugi_opis()
{
  return("\nZnajdujesz sie nad malym jeziorkiem, polozonym we wschodniej "+
    "czesci doliny. "+
       opis_pory_roku());
}       

int
krzaki(string str)
{
  
  if(str == "w krzaki")
  {
    if(pora_dnia()!="noc"&&pora_dnia()!="polnoc")
    {
     write("Wchodzisz w krzaki, jednak nie widzisz tu nic ciekawego i "+
      "wychodzisz po chwili.\n");
     say(QCIMIE(this_player(), PL_MIA)+" znika na chwile w krzakach, po czym wychodzi "+
      "stamtad zniechecon"+this_player()->koncowka("y","a")+".\n");
      return 1;
  }
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
  {
     if(this_player()->query_prop("_kaes_byl_nad_jeziorem_i_juz_ogladal_"))
     {
       write("Wchodzisz ostroznie w krzaki. Jednak tym razem nic ciekawego "+
         "sie nie dzieje.\n");
       say(QCIMIE(this_player(), PL_MIA)+" wchodzi ostroznie w krzaki. Po chwili "+
         "wraca na brzeg.\n");
         return 1;
     }
     else  
     {
        opis_jeziora(0,this_player());
        return 1;
     }
   }
 }
 else
 {
   if(str == "do wody" || str == "do jeziora")
   {
         if(pora_dnia()=="noc"||pora_dnia()=="polnoc")
          {
           write("Wolalbys nie wchodzic o tej porze do wody.\n");
           return 1;
          }
         else 
          {
           write("Wchodzisz do zimnej wody. Splukujesz brud z calego ciala. "+
          "Woda siega ci tu ledwie do pasa. Ach, co za przyjemne uczucie!\n");
           say(QCIMIE(this_player(), PL_MIA)+" wchodzi do wody i pluska sie wesolo.\n");
          return 1;
          }
       }
      else
      {
      notify_fail("Wejdz gdzie?\n");
      return 0;
      }
     }
}

string
opis_jeziora(int faza, object gracz)
{
   switch(faza)
    {
     case 0:
      write("Na poczatku woda jeziora jest spokojna. Po chwili jednak "+
       "cos zaczyna sie burzyc, zielona poswiata przybiera na sile. "+
       "Z dna wynurza sie czarny ksztalt, woda wokol niego szaleje, "+
       "dymi, syczy. Wyglada tak, jakby nawet ona chciala odsunac sie od "+
       "tajemniczej istoty.\n");
      set_alarm(5.0,0.0,&opis_jeziora(faza + 1, gracz));
      break;
     case 1:
      write("Istota unosi sie ponad powierzchnia wody. Poswiata pulsuje, "+
       "zmieniajac kolory w szybkich odstepach czasu. Po chwili stabilizuje "+
       "sie, i oswietla cala okolice na krwisto czerwony kolor.\n");
      set_alarm(4.0,0.0,&opis_jeziora(faza + 1, gracz));
      break;
     case 2:
      write("Czarna postac zrzuca swe odzienie, i spod czarnych szat ukazuje sie "+
       "piekna dziewczyna. Jej kruczoczarne, dlugie wlosy blyszcza w czerwonym "+
       "swietle, a oczy zdaja sie lsnic swoim wlasnym blaskiem.\n");
      set_alarm(5.0,0.0,&opis_jeziora(faza + 1,gracz));
      break;
     case 3:
      write("Po chwili robi sie coraz ciemniej. Dziewczyna rozglada sie powoli, "+
       "a jej wzrok kieruje sie w twoja strone. Blask w jej oczach nasila sie, "+
       "po czym wybucha tysiacem promieni, oslepiajac cie na chwile.\n");
      set_alarm(4.0,0.0,&opis_jeziora(faza + 1,gracz));
      break;
     case 4:
      write("Gdy odzyskujesz wzrok panuje calkowita cisza. Jezioro wyglada tak jak "+
       "dawniej, nie ma sladu po ostatnich wydarzeniach. Wyczolgujesz sie szybko z "+
       "krzakow. W kieszeni czujesz dziwny przedmiot.\n");
     figura=clone_object(PATH+"object/figura.c");
     figura->move(gracz);       
      gracz->add_prop("_kaes_byl_nad_jeziorem_i_juz_ogladal_",1);
      say(QCIMIE(gracz, PL_MIA)+" wyczolguje sie z krzakow. Wyglada na "+
       "dosyc przestraszon" + gracz->koncowka("ego","a") + ".\n");
      break;
     }
   return "";
}

string
opis_pory_roku()
{
  string opis="";
  if(pora_dnia()=="noc"||pora_dnia()=="polnoc") opis+="Wplywa do niego zarowno potok splywajacy ze "+
   "wzgorza na zachod, jak i kilka mniejszych strumieni splywajacych kaskadami "+
   "z gor i wpadajacych do niego z szumem. Woda wydaje sie lekko pulsowac "+
   "zgnilo-zielonym swiatlem pochodzacym z glebin. Mgla unosi sie nad powierzchnia "+
   "wody, miejscami delikatnie wirujac. Z prawej strony widzisz rosnace "+
   "nad brzegiem dosyc rzadkie krzaki, mniej wiecej twojego wzrostu.\n";
  else  opis+="Wplywa do niego zarowno potok splywajacy ze wzgorza na zachod, "+
    "jak i kilka mniejszych strumieni splywajacych pieknymi kaskadami z gor. "+
    "Woda jest idealnie czysta, jezioro nie wydaje sie byc glebokie. Zejscie do wody "+
    "jest lagodne i piaszczyste. Po prawej stronie widzisz wysokie krzaki.\n";
    return opis;   
}