/*
 * BAGNO13.c dziecko bagna
 * Autor: Mithandir
 * Projekt: Bagna by Tanis i Mithandir
 */

inherit "/d/Imperium/Kraina/BAGNO/bagno.c";

#include "bagno.h"
// Mam nadzieje, ze wszystko juz jest zadeklarowane

int na_drzewo(string parametr);

void
create_bagno_kraina()
{
    // Tu byly smieci();

add_item(({"drzewo","drzewa"}),"Rosna tutaj gesta kupa wielkie, stare "
	+"drzewa. Jedno z nich ma grube, mocne galezie niezbyt wysoko nad "
	+"ziemia. Chyba moglbys sie po nich wspiac, ale przez gesta mgle nie "
	+"widzisz korony drzewa.\n");
add_item(({"krzak,krzaki"}),"Wolne miejsca miedzy drzewami sa gesto "
	+"zarosniete przez krzaki.\n");

     // Przedmioty, ktore mozna obejrzec w tej lokacji


     // Zdarzenia losowe,

add_exit(NPATH+"bagno16.c","poludnie");
add_exit("/d/Imperium/Rangerzy/lokacje/10.c","polnoc",0,0,1);

     // Wyjscia z tej lokacji.

}

string
dlugi_opis()
{
    return("Stoisz w miejscu, gdzie galaretowaty grunt bagien zmienia sie w "
	+"twarde i pewne lesne runo. Gdziekolwiek nie spojrzysz, widzisz "
	+"jednak blotnista maz. Tylko na polnocy bagno zastepuje duza i "
	+"gesta kepa drzew, dodatkowo zarosnieta "
	+"krzakami. Wyrastaja one prosto z mazi i sa ze wszystkich stron "
        +"otoczone sa przez bagno, tak ze nie masz szans ich obejsc bez "
        +"ryzyka "
	+"utoniecia w bagnie. Jedyny skrawek pewnego gruntu prowadzi na "
	+"poludnie.\n");

     // Dlugi opis, maskujacy funkcje dlugi_opis z rodzica.

}

void
init()
{
	/* Maskujemu init(), zeby gracz mogl wejsc na drzewo. Nie wiem, czemu
	 * nie mozemy tego zrobic add_cmd_item(), ale tak kaza w przykladach.
	 */
	::init();


	add_action(na_drzewo,"wespnij");
	add_action(na_drzewo,"wejdz");
}

int
na_drzewo(string parametr)
{
	notify_fail("Wejdz na co?\n");

	if (!stringp(parametr))
	   return 0;

	if (parametr!="na drzewo" && parametr !="sie na drzewo")
	   return 0;

	if (this_player()->query_skill(SS_CLIMB)<=random(20))
	{
                write("Probujesz wejsc na drzewo, ale niestety nie udaje ci "
	+"sie i bolesnie spadasz na ziemie.\n");
		say(QCTNAME(this_player()) + " probuje sie wspiac na drzewo, "
	+"ale nie udaje mu sie i spada na ziemie.\n");

		this_player()->reduce_hit_points(random(10));

		return 1;
	}

	this_player()->move_living("wspinajac sie na "
	+"drzewo",NPATH+"pomost3.c",1);
	return 1;
}