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


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

int gora(string str);

init()
{
   add_action(gora,"wespnij");
   add_action(gora,"wdrap");
                           
   ::init();
                              
 }
                                 

void
create_imperium_room()
{
/* rodzaj, i czy jasno .... */

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


/* co widac */

        set_short( "Dno studni.");

        set_long( "Na szczescie kamieniste dno studni na ktorym stoisz, dawno juz wyschlo. "+ 
        "Panuje tutaj lekki polmrok, jednak jestes w stanie przy odrobinie swiatla "+
        "dochadzacej z gory, rozrozniac ksztalty. "+
        "Nad glowa dynda ci sznur, po ktorym mozna sie stad wydostac "+
	"na gore, a wszedzie dookola otaczaja sie wyszczerzone kamieniste zalomy. "+
        "Kolo jednego z nich dostrzegasz szeroki i wysoki na okolo siedem stop otwor. "+
        "To zapewne tedy dawniej podzieme zrodlo zasilalo te studnie. \n");
	



/* pobawimy sie ? */


	 add_item ( "otwor",
	"Otwor prowadzi do wyzlobionego przez podziemne zrodlo tunelu, ktory prowadzi "+
	"lekko w gore. \n");
	 
	 
	 add_item ( ({"sznur","line"}),
	 "Dyndajacy ci nad glowa sznur, ktory prowadzi do wyjscia z tej studni. \n");
	 
	 add_cmd_item ( ({"sznur","line"}), ({"zerwij","urwij","utnij"}), "A jak stad wyjdziesz, bohaterze ? \n");
	 	
	 
    add_exit(NPATH + "wiocha/studnia2.c", "otwor", 0, 1);
    
    set_event_time(10.0, 200.0);
    add_event("Cos kapnelo ci na glowe. \n");
    
    set_events_on(1);
      
}

int 
gora(string str)
{
  mixed gdzie=({"sie po sznurze","sie na gore","po sznurze na gore"});
  
  if (member_array(str,gdzie)==-1)
  return notify_fail("Po czym i gdzie sie chcesz wspiac ? \n");
  

 if (this_player()->query_prop(OBJ_I_WEIGHT)>(90*1000))
 { write("Lapiesz za muskajcy cie po twarzy sznur, i probojesz wspiac sie po nim, "+
 "jednak z gory dochadza sie niepokojace trzaski, i cos sypie ci sie na twarz. "+
 "Puszczasz line, z powrotem stoisz na dnie. Chyba jestes za ciezki na takie wyprawy. \n");
 say(QCIMIE(this_player(), PL_MIA) + " lapie za line, i probuje sie po niej wspiac, "+
 "jednak dochadza was niepokace trzaski. " + QCIMIE(this_player(), PL_MIA) + " puszcza line, "+
 "i z niepocieszona mina rozglada sie wokol. Chyba jest za ciezki na takie karkolomne wyprawy. \n");
 return 1;
 }
 
 write ("Sprawnie podciagajac sie na linie wychodzisz ze studni. \n");
 say(QCIMIE(this_player(), PL_MIA) + " sprawnie sie podciagajac wychodzi ze studni. \n");

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