/*Plik: wioska4.c
 *Autor: Tigr
 *Data: 14.03.1997
 *Update: 21.06.1998
 *Opis: Wioska w poblizu Dimenau
*/


#include "tigr.h"
inherit TPATH + "/std/w_room.c";
inherit "/lib/drink_water.c";

int ile_wody;

init()
{
   init_drink_water();
   ::init();
}

string wiadro(int ile, int przyp);

drink_effect(string str)
{
    if (ile_wody) 
       {
           write("Pijesz nieco wody z " + wiadro(ile_wody,PL_DOP) + " wiadra.\n");
           say(QCIMIE(this_player(),PL_MIA) + " pije nieco wody z wiadra przy studni.\n");
           ile_wody--;
           return;
       }
    write("Wiadro jest puste, wiec opuszczasz go do studni, zeby zaczerpnac wody. " +
          "Po chwili wyciagasz pelne wiadro ze studni i pijesz z niego nieco wody.\n");
    say(QCIMIE(this_player(),PL_MIA) + " opuszcza wiadro do studni, wyciagajac " +
          "po chwili pelne i pije z niego nieco wody.\n");
    ile_wody = 19;
}

create_imperium_room()
{
    set_short("Przy studni");
    set_long("@@dlugi_opis");
    set_drink_places(({"ze studni","z wiadra"}));
    
    ile_wody = 20;
    
    add_item("studnie","Zwykla studnia, wygladajaca jak kamienny pierscien " +
    	               "pokryty drewnianym daszkiem.\n" + 
    	               "Jest tam takze wiadro, ktorym wyciaga sie wode ze studni.\n");
    add_item("wiadro","@@opis_wiadra");
    add_item("wioske","@@opis_wioski");
    add_item(({"droge","ulice","sciezke"}),
    	     "Znajdujesz sie na wiejskiej uliczke, prowadzacej z zachodu na " +
    	     "wschod. Inna uliczka, a wlasciwie sciezka, kieruje sie na polnoc, " +
    	     "w strone widocznych stad kilku chatek. Z drugiej strony ulicy " +
    	     "dostrzegasz studnie.\n");
    add_item(({"budynek","karczme"}),"Na polnocnym zachodzie znajduje sie " +
    		"duzy drewniany dom. Wejscie do niego znajduje sie dalej na " +
    		"zachodzie.\n");
    add_item(({"chatki","chaty","chate","chatke"}),"Kilka chat znajduje sie na " +
    		"polnocy, zachodzie oraz wschodzie. Zadna z nich nie wyroznia sie " +
    		"sposrod pozostalych.\n");
    add_item(({"dom","dwupietrowy budynek"}),
    		"Dwupietrowy kamienny dom znajduje sie przy koncu ulicy " +
    		"na wschodzie. Stad widac juz wiecej szczegolow jego architektury. " +
    		"Dwie wiezyczki wyrastaja nad wejsciem, jeszcze dwie po " +
    		"bokach domu. fasade z szarego kamienia zaczyna pokrywac " +
    		"bluszcz. Dom nie wyglada na stary.\n");
    add_item("budynki","Na polnocnym zachodzie znajduje sie duzy drewniany budynek, " +
    		"na wschodzie zas dwupietrowy kamienny dom. Pozostale zabudowania to " +
    		"chaty wiesniakow.\n");
    
    dodaj_npca(TPATH + "/npc/wiesniaczka.c");
    dodaj_npca(TPATH + "/npc/wiesniaczka.c");
    dodaj_npca(TPATH + "/npc/wiesniaczka.c");
    dodaj_npca(TPATH + "/npc/wiesniak.c");
    dodaj_npca(TPATH + "/npc/dziecko.c");
    dodaj_npca(TPATH + "/npc/dziecko.c");
    
    dodaj_npca("/d/Imperium/vic/cyklop.c");
    
    add_exit(TPATH + "/lokacje/wioska3.c","zachod",0,2,0);
    add_exit(TPATH + "/lokacje/wioska5.c","wschod",0,2,0);
    add_exit(TPATH + "/lokacje/wioska6.c","polnoc",0,2,0);
}

string
dlugi_opis()
{
      return "Znajdujesz sie na drodze, przechodzacej przez wioske Tadrig. " +
             "Droga kieruje sie dalej na wschod, w strone dwupietrowego " +
             "budynku, zas na polnoc odchodzi sciezka, kierujaca sie do " +
             "dalszej czesci wioski. Przy drodze znajduje sie takze studnia, " +
             "z ktorej wiesniacy pobieraja wode. "
    	     + opis_pory_roku() + "\n";
}

string
opis_wiadra()
{
    return "Widzisz " + wiadro(ile_wody,PL_MIA) + " wiadro, " +
           "ktorym wyciaga sie wode ze studni.\n";
}

string
wiadro(int ile, int przyp)
{
    mixed pelne,puste;
    
    pelne = ({"pelne","pelnego"});
    puste = ({"puste","pustego"});
    
    switch (ile)
        {
          case 20: return pelne[przyp];
                   break;
          case 19:
          case 18:
          case 17:
          case 16:
          case 15: return "prawie " + pelne[przyp];
          	   break;
          case 14:
          case 13:
          case 12:
          case 11: return "w cwierci " + puste[przyp];
          	   break;
          case 10: return "w polowie " + pelne[przyp];
          	   break;
          case  9:
          case  8:
          case  7:
          case  6: return "w cwierci " + pelne[przyp];
          	   break;
          case  5:
          case  4:
          case  3:
          case  2:
          case  1: return "prawie " + puste[przyp];
          	   break;
          case  0: return puste[przyp];
          	   break;
       }
}
string
opis_wioski()
{
    return "Znajdujesz sie w samym centrum wioski, gdzie dniem panuje " +
           "niebywala aktywnosc. Tu takze znajduje sie studnia, z ktorej " +
           "wiesniacy biora wode. Stad mozesz dostrzec wiekszosc budynkow, " +
           "nalezacych do tej wioski. "
            + od_pory();
}