/* wiocha */
/* autor : dhor */
/* the very first version :))))))) */


inherit "/d/Imperium/std/room";
#include </sys/stdproperties.h>
#include <macros.h>
#include </d/Imperium/dhor/project/dhor.h>

int zejdz(string str);
// int opusc(string str);

init()
{
   add_action(zejdz,"zsun");

   ::init();
                     
}
                                 
void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

        add_prop ( ROOM_I_INSIDE, 0); // czy jest to lokacja na polu, czy pokoj 
        add_prop ( ROOM_I_LIGHT, 1); // jasno czy ciemno


/* co widac */

        set_short( "Plac wsrod zgliszczy.");

        set_long( "Przedzierasz sie wsrod porozrzucanych desek "+
        "i zweglonych kawalkow drewna, a po chwili docierasz do "+
	"uschnietego drzewa, ktore rozposciera nad toba swe "+
        "galezie niczym szpony zadnego twej krwii stwora. "+
        "Stoisz w centrum tej spustoszonej wioski, na placu "+
        "ktory powoli jest pozerany przez rozprzestrzeniajace "+
        "sie cierniste badyle. "+
        "Po lewej stronie widzisz zgliszcza prawdopodobnie jakiejs karczmy, "+
        "co wnioskujesz po ocalalym, o dziwo, szyldzie, ktory groteskowo "+
        "kolysze sie na wietrze. "+
        "Kolo drzewa zauwazasz studnie, nad ktora wznosi sie nienaruszona "+
        "cudem konstrukcja drewniana, a do nawinietego na kolowrot "+
        "sznura widzisz przymocowane wiadro. \n");
	



/* pobawimy sie ? */

        add_item
     ( ({"bela","bele"}),
       "Po drodze porozrzucane sa drewniane nadpalone bele,  "+
       "ktore zapewne pochodza z poliskich spalonych domostw. \n");

	add_cmd_item ( "bele", ({"wez","podnies"}), "Sa zdecydowanie za duze i nieporeczne, by nosic je ze soba. \n");
	
        add_item (
     ({"domostwa","zgliszcza"}),
       "Niegdys zamieszkane przez ludzi, teraz opustoszale, i straszace "+
       "szkieletami swych konstrukcji. \n");


        add_item ( "ruiny" ,
       "Rozsypujace sie zgliszcza niegdys tetniacej zyciem wioski. \n");
        
        
        add_item ( "studnie" ,
        "Na pozor zwyczajna, wiejska studnia, otoczona drewnianymi balami, "+
        "zakladanymi na siebie. Kolowrot jak i cala konstrukcja cudem ocalaly, "+
        "i byc moze studnia ta wciaz spelnia swe zadanie. \n");
         
         add_item ( "szyld",
        "Na dragu ledwo trzymajacym sie kawalka ocalalej sciany, widzisz "+
        "szyld, z wymalowanym na nim znakiem kufla piwa, a ponizej niego napis : "+
        "'Pod Peknietym Kuflem'. \n");        

	 add_item ( "drzewo",
	"Stojace obok studni uschniete drzewo, ktorego rozcapierzone galezie "+
	"pochylaja sie nad toba wyciagniete niby w drapieznym checi mordu. \n");

	 add_item ( "wiadro",
	"Przymocowane do mocnego sznura wiadro, nieco przyrdzewiale, ale nadal "+
	"bez wiekszych dziur. \n");
	 add_cmd_item ( "wiadro", ({"wez","zerwij","urwij","odczep","opusc","napelnij"}), "Ochoczo zabierasz sie do pracy, lecz po chwili z zazenowaniem stwierdzasz, "+
	 "ze to juz nie te lata, zeby bawic sie wiaderkiem. \n");
	 
	 
	 add_item ( ({"sznur","line"}),
	 "Gruby, nawiniety na kolowrot sznur, do ktorego jednego konca jest przymocowane stare wiadro, a drugi koniec ginie w czelusciach studni. "+
	 "Wyglada na dosc zuzyty. Wiadro do niego przymocowane jest zaklinowane pomiedzy kolowrotem, a rownolegla do niego bela potrzymujaca "+
	 "dziurawy daszek. \n");
	 
	 add_cmd_item ( ({"sznur","line"}), ({"zerwij","urwij","utnij"}), "A gdyby ktos chcial skorzystac ze studni ? \n");
	 	
    	 add_cmd_item ( "do studni", ({"zejdz","wejdz"}), "Razno przekladasz nogi przez otaczajace studnie belki, lecz "+
    	 "stwierdzasz, ze lepiej bedzie zsunac sie po linie na dol. \n");
    
    add_exit(NPATH + "wiocha/wiocha1.c", "polnoc", 0, 1);
    add_exit(NPATH + "wiocha/wiocha5.c", "poludnie", 0, 1);
    add_exit(NPATH + "wiocha/wiocha3.c", "wschod", 0, 1);
    add_exit(NPATH + "wiocha/wiocha4.c", "zachod", 0, 1);
    
    set_event_time(10.0, 200.0);
    add_event("Wydaje ci sie, ze gdzies z oddali dochodzi do ciebie placz dziecka. \n");
    add_event("Cos poruszylo sie w zgliszczach! \n");
    add_event("Czujesz chlodny powiew na plecach, az przechodza cie ciarki. \n");
    add_event("Przez moment masz wrazenie, ze ktos ci sie przyglada z ruin. Uf, to tylko zludzenie. \n");
    add_event("Nagle galezie drzewa poruszyly sie w twa strone! \n");
    add_event("Szyld skrzypi przerazliwie, poruszony naglym podmuchem wiatru. \n");
    
    set_events_on(1);
      
}

int 
zejdz(string str)
{
 mixed gdzie=({"sie po sznurze do studni","sie po sznurze","sie do studni","sie po linie do studni","sie po linie"});
 
 	if (member_array(str,gdzie)==-1)
 	return notify_fail("Po czym i gdzie sie chcesz zsunac ? \n");
 
 if (this_player()->query_prop(OBJ_I_WEIGHT)>(90*1000))
 { write("Probujesz spuscic sie po linie do studni, ale jak tylko zawisasz na linie, cala konstrukcja zaczyna "+
 "niebezpiecznie trzeszczec! Ledwo udaje ci sie zlapac z powrotem za gorne belki otaczajace studnie, i wygramolic "+
 "z powrotem. Chyba jestes za ciezki na takie wyprawy. \n");
 say(QCIMIE(this_player(), PL_MIA) + " probuje wejsc po linie do studni, ale jak tylko zawisa na linie, "+
 "cala konstrukcja zaczyna niebezpiecznie trzeszczec. " + QCIMIE(this_player(), PL_MIA) + " szybko lapie sie "+
 "belek otaczajacych studnie, podciaga z powrotem na gore. Chyba jest za ciezki na takie karkolomne wyprawy. \n");
 return 1;
 }
 
 write ("Opuszczasz sie po linie do studni. \n");
 say(QCIMIE(this_player(), PL_MIA) + " z trudem opuszcza sie po linie do srodka studni. \n");

 this_player()->move_living("M", NPATH + "wiocha/studnia1.c", 1, 0);
 
 return 1;
}